utiliza este codigo teniendo en cuenta tus datos...
<html>
<head><title>Paginar resultados de consulta</title></head>
<%
DNI = Request.Form("DNI")
'Conexion a tu base de datos
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/userREG.mdb")
SQL="SELECT DNI, CGarantia, Cliente, DirCliente, TelCliente, Fecha FROM userVENTA Where DNI='" & DNI & "'"
'Configurar aqui los registros por página
num_registros = 5
'actualizamos la pagina actual
if (request.queryString("pag") <> "") then
pagina_actual = request.queryString("pag")
else
pagina_actual = 1
end if
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql,oConn,3,1
if rs.EOF then
response.redirect("errorBASE.asp")
end if
RS.pageSize = num_registros
RS.absolutePage = pagina_actual
cantidad_campos = RS.Fields.Count
%>
<body>
<div align="center">
Página actual: <%= pagina_actual %><br>
Cantidad de páginas: <%= RS.PageCount %><br>
Registros por página: <%= RS.PageSize %><br>
Registros totales: <%= RS.RecordCount %>
</div>
<br>
<table cellspacing="2" cellpadding="2" border="1" align="center">
<tr>
<%
For campo = 0 to cantidad_campos - 1 %>
<td align="center"><%=RS(campo).Name%></td>
<% Next %>
</tr>
<%
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to cantidad_campos - 1 %>
<td align="center"><%=RS(campo)%></td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>
<tr>
<td colspan="<%=cantidad_campos%>" align="center">
<%
i=1
Do While i < RS.PageCount
%>
<a href="verBASE.asp?pag=<%=i%>"><%=i%></a>
<%
i=i+1
Loop
%>
</td>
</tr>
</table>
<%
'Limpiamos los objetos (SIEMPRE)
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
</body></html>
sin embargo este codigo tiene un error: cuando el registro supera los datos por pagina, y supuestamente crea una pagina nueva... esta pagina "dos" no puede ser cargada en el server y no se pueden ver los registros que faltan... alguien tiene alguna idea a esto??? como se puede solucionar???
el error se ve aca tambien:
http://www.stilegno.com/ventas/protected.asp
en el pequeño form pongan 28910525
eso les dara un resultado... hay 8 registros, se muestran creo que 7... pero luego no puedo ver el que falta... :(