Funciona de P...
El punto, cosa que no se me había ocurrido, es que la primera página por espacio debería mostrar por decir algo 5 registros y la segunda 10 y así sucesivamente, ya que tengo más espacio.
He intentado esto:
Código:
if Request.Querystring("pagina") = "" then TamPagina = 5 else TamPagina = 10 END IF
nada!!! Me muestra desde el principio 10 registros
También esto:
Código:
if Request.Querystring("pagina") <=1 then TamPagina = 5 else if Request.Querystring("pagina") >=2 TamPagina = 10 END IF END IF
Tampoco funka Muestra la primera página 5 registros, pero como segunda página solo el último registro, se come 5 registros más menos, así es que no sé que más hacer.
Meto más código por si no queda claro por donde voy
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 me dijeron
'::::::::::::::::::::::::::::::::::::::::::
contador = 0
inicias el ciclo
contador = contador + 1
if contador < 3 AND PaginaActual = 1 then
response.write titulo & "<br>"
response.write fecha & "<br>"
response.write contenidocortado & "<br>"
else
response.write titulo & "<br>"
end if
%>
<%
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
Alguna Idea