<% 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