Paginacion o Paginar con access

[Adler]

Hola

Fijate en esta sección del script, tienes cerrado el if

<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>


<%
else
cant_paginas =RS.PageCount

Veamos si lo hemos solucionado

Código asp:

<!--#include virtual="paginacion.asp"-->
Dim oConn, RS, sql, varName, pagina_actual, contador, cant_paginas, registros_mostrados
 
If Request.QueryString("pagina") = "" or Not IsNumeric(Request.QueryString("pagina")) Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("pagina"))
End If
 
contador = 10
 
 
RS.PageSize = contador
RS.CacheSize = contador
 
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM altacontactos WHERE (respuestas=0) and (CONTACTO & DIRECCION & FECHA) like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3 ,1
%>
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
%>
 
<%
else
cant_paginas =RS.PageCount
 
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
Call BarraDeNavegacion(cant_paginas, pagina_actual)
 
RS.AbsolutePage = pagina_actual
 
registros_mostrados= ""
 
do while not rs.EOF and registros_mostrados < contador
%>
 
'muestras los registros
 
 
<%
registros_mostrados = registros_mostrados + 1
RS.MoveNext
Loop
end if
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
 

Suerte