<% Dim Conn, rs, sqltxt, mTable, prmFamilia Dim xni, xnj 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 prmFamilia=Request.QueryString("idfamilia") sqltxt="select * from articles where idfamilia='"&Request.QueryString("idfamilia")&"' And mostrar=True Order By "&Request.QueryString("OrdenatPer") rs.Open sqltxt,conn mTable=rs.GetRows rs.Close set rs=nothing Conn.Close Set Conn=nothing 'tamanopagina=9999 'paginaabsoluta=request.querystring("paginaabsoluta") 'if paginaabsoluta="" then ' paginaabsoluta=1 'end if 'if paginaabsoluta=1 Then ' inicio=1 'else ' inicio=1+(paginaabsoluta-1)*tamanopagina 'end if 'fin=inicio+tamanopagina-1 'if fin > rs.recordcount then 'fin =rs.recordcount 'end if 'rs.pagesize= cint(tamanopagina) 'rs.absolutepage=cint(paginaabsoluta) strTemp = "#CCCCCC" contador=1 %>

 

<% If session("idioma")="esp" Then %> <%=request.QueryString("NomFamilia")%><% ElseIf session("idioma")="eng" Then%> <%=request.QueryString("NomFamilia")%><% Else %> <%=request.QueryString("NomFamilia")%><%End If%>


    
 

A continuación, la lista de artículos correspondientes a la familia <%=request.QueryString("NomFamilia")%>

PARA TALLERES y TIENDAS, PRECIOS ESPECIALS, PIDA INFORMACIÓN SIN COMPROMISO A CUALQUIER DELEGACIÓN O AL 93-8890375.

 

" class="LinkSenseSubratllar">Codi " class="LinkSenseSubratllar">Descripcio Situacio " class="LinkSenseSubratllar">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)%>

 

Auto Diesel Vic, s.a. Ctra. de Manlleu nº 45, 08500 - Vic (Barcelona) - admin@autodieselvic.com