<% Dim Conn, rs, sqltxt, mTable Dim xni, xnj, xmarca set rs = CreateObject("ADODB.Recordset") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\liqestoc.mdb")) 'rs.CursorType = adOpenKeyset 'rs.LockType = adLockOptimistic sqltxt="select Distinct marca from articles where idfamilia='0009' And Mostrar=True Order By marca" rs.Open sqltxt,conn 'Response.Write(xmarca+"*"+Request.QueryString("vmarca")) 'Response.Write(">>>"+Request.Form("vmarca")+"<<<") If Request.QueryString("vmarca")="" Then xmarca=rs("marca") Else xmarca=Request.QueryString("vmarca") End if rs.Close xmarca=Request.QueryString("vmarca") 'sqltxt="select * from articles where idfamilia='"&Request.QueryString("idfamilia")&"' And mostrar=True Order By marca" 'sqltxt="select * from articles where idfamilia='0009' And marca='"&xmarca&"' And mostrar=True Order By marca" sqltxt="select * from articles where idfamilia='0009' And mostrar=True Order By marca" rs.Open sqltxt,conn If not rs.eof then mTable=rs.GetRows rs.Close Else mTable="" End if xni=0 strTemp = "#CCCCCC" %>
Codi Descripcio Situacio Marca Notes P.V.P Unitats
<% For xni=0 To UBound(mTable,2) %> ');>
<% If strTemp = "#CCCCCC" Then strTemp = "#FFFFFF" ElseIf strTemp = "#FFFFFF" THen strTemp = "#CCCCCC" End If contador=contador+1 next%>
<%= mTable(2,xni) %>

<%= mTable(4,xni)%>

<%= mTable(7,xni)%>

<%= mTable(13,xni)%>

<%= mTable(10,xni)%>

<%= mTable(14,xni)%>

<%= mTable(15,xni)%>
Los precios estan sujetos a variación según la tarifa vigente. Consulte para mayor seguridad.
El numero de vehículos a los que se puede aplicar este sistema crece diariamente, consultenos si el suyo no está en la lista.
 
Auto Diesel Vic, s.a. Ctra. de Manlleu nº 45, 08500 - Vic (Barcelona) - Spain
 admin@autodieselvic.com   +34 93 889 03 75