:: Quienes Somos
 
:: Productos
  - Buscar
  - Destacados
 
:: Servicios
  - Venta
  - Compra
  - Alquiler
  - Restauración
  - Réplicas
 
:: Ambientación
  - Decoración
 
:: Exportaciones
 
:: Contactenos
   

 

  
 

 

 

   
   
  <% set rs = CreateObject("ADODB.Recordset") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("PRO.mdb")) rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic sqltxt="SELECT * FROM productos " rs.Open sqltxt,conn tamanopagina=4 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) contador=1%>
<% do while not rs.eof and contador <= cint(tamanopagina) %>

 <%=inicio%> a <%=fin%> de un total de <%=rs.recordcount%> Página <%=paginaabsoluta%> de <%=rs.pagecount%>
.<%=RS("Filtype")%>" border=0 alt="<%=RS("titulo_prod")%>; Cod. <%=RS("id")%>"
<%= RS("titulo_prod")%>

, Cod Nº <%= RS("id")%>, "> Consulte por mail

Codigo: <%= RS("id")%>         
Detalle: <%= RS("detalles_prod")%>
 


<%rs.movenext contador=contador+1 loop%>

 

Pulsa en la página a la que deseas ir

<%j=0 if cint(paginaabsoluta) <> 1 then atras=cint(paginaabsoluta)-1 response.write "" j=j+1 end if for i = 1 to rs.pagecount j=j+1 if j>20 then response.write "" j=1 end if if cint(i) = cint(paginaabsoluta) then response.write "" else response.write "" end if next %> <%if cint(paginaabsoluta) <> rs.pagecount then atras=cint(paginaabsoluta)+1 response.write "" end if%>
"&"<<"&"
"&i&""&i&""&">>"&"
 




Diseño GHB Copyrigth 2011 - Todos los derechos reservados