<% Dim Conn, rs, sqltxt, mTable 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 sqltxt="select * from familia where lproducto=True" 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%>

 

Novedades/Ofertas

Productos

Liquidación Estocs

 

    		
  

  

    
       
    
  

  

    
       
    
  

  

    
      

        

           
          Familia
          Items
          Fecha
            Ult. Act.
        

        


		


  

    
    <% For xni=0 To UBound(mTable,2) %>
    

        

    

	<%
			If strTemp = "#CCCCCC" Then
				strTemp = "#FFFFFF"
			ElseIf strTemp = "#FFFFFF" THen
				strTemp = "#CCCCCC"
			End If
	
			next

			contador=contador+1

	%>
	
 
        
          
>

          		

  
         class="LinkSenseSubratllar">
          
<%=mTable(1,xni)%>

  <%=mTable(5,xni)%>

  
        
          
<%=mTable(6,xni)%>

    

  
 
        
          
<%=mTable(8,xni)%>

    


  




      




  

    
      

        

          
 

        

      

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