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