Me baje el código de páginación de
Asp Facil .
Lo quiero implementar en una página que estoy creando.
Me manda el siguiente error.
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/sistema/Ventas/ListadoG.asp, line 60
Linea 60:
s.AbsolutePage=PaginaActual
Y este es de la linea 60 para arriba de mi código.
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/acceso.mdb") & "; Password=bonilla "
SQL="SELECT grado, seccion, CC, fecha, nombre, apellidop, apellidom, pago FROM " & _
"ventas ORDER BY apellidop"
set rs=oConn.Execute(SQL)
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
%>
<%
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else%>
<%
'Vamos a paginar
rs.AbsolutePage=PaginaActual
%>
En qué puede estar el error?...
Saludos y Gracias