Gracias Myakire:
Mira el Do while está así:
Código:
Do While Not rs.EOF AND CuantosRegistros < TamPagina
numero= numero+1
IF numero < 3 AND PaginaActual = 1 THEN%>
'::::::::::::::::::::::::::::::::::::::::::
'Aquí Iría el código que puse en este post
'::::::::::::::::::::::::::::::::::::::::::
<%
CuantosRegistros=CuantosRegistros + 1
rs.movenext
total= total+1
loop
%>
La paginación la hago así:
Código:
'::::::::DEFINIMOS VARIABLES PARA LA PAGINACIÓN
Dim Conn, rs, sSQL
Dim PaginaActual
Dim RegistrosTotales
Dim PaginasTotales
Dim TamPagina
Dim UltimoRegistro
Código:
' ::::::::::::: ÉSTO ES LOQ UE ESTUVE INTENTANDO
IF Request.Querystring("pagina") =1 THEN
Response.write("5")
TamPagina = 5
ELSE
Response.write("10")
TamPagina = 10
End If
Me di cuenta de que si hago esto en la segunda página, por ejemplo me mostraría a partir de dato 11 puesto que al convertir en 10 el TamPagina, pues la página uno tendría 10 registros y no 5 como quiero.
Código:
'::::::::::::::::::::::::::: AQUI SE ASIGNAN VARIABLES PARA PAGINACIÓN
if Request.Querystring("pagina") = "" then PaginaActual = 1 else PaginaActual = Cint(Request.Querystring("pagina"))
rs.PageSize = TamPagina
rs.CacheSize = TamPagina
rs.Open sSQL, Conn, 1, 2
PaginasTotales = rs.PageCount
if PaginaActual < 1 then PaginaActual = 1
if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales
if PaginasTotales=0 then
else
UltimoRegistro = rs.Absoluteposition
RegistrosTotales = rs.RecordCount
rs.AbsolutePage = PaginaActual
textotd = "Pagina " & PaginaActual & " de " & PaginasTotales
end if
IF RegistrosTotales = 0 Then
TextoSin="No se encontraron Registros"
else
TextoSin=""
END IF
%>
Esto es el código