Siguiente pagina en paginacion

[Fr@Nc3$c0]

Tengo el siguiente problema con la paginación de unos registros:

~~~~~~~~~~~~~~~~~~~~
'Muestro los enlaces
Response.Write("<br><hr>")
if PaginaActual > 1 then
Response.Write(" <A HREF=visitados_por.asp?pagina="&PaginaActual-1&">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write(" <A HREF=visitados_por.asp?pagina="&PaginaActual+1&">1 0 Siguientes</A>")
end if
~~~~~~~~~~~~~~~~~~~

Es la parte final, los registros de la primera pagina son correctos y salen perfectamente, el problema es cuando le doy a "10 siguientes" la cual me dice que la pagina no existe y realmente si existe.
Lo que no me detecta bien es el paso por url la variable o no se.
Porque puede ser?
Quieren el codigo entero?

gracias de antemano.

[ElAprendiz]

este problema lo he visto muchas veces con esta paginacion en el foro y es que muchos olvidan volver a recoger la variable "pagina". espero sea eso..sino pon el codigo completo


Un Saludo






Saludos

[Fr@Nc3$c0]

Te posteo el código:

<%
Dim Conn, RS, SQLQuery1
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

TamPagina = 10

'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 Conn = Server.CreateObject( "ADODB.Connection" )
Set RS = Server.CreateObject( "ADODB.Recordset" )
Conn.Open Application( "ConexionContadores" )
SQLQuery1 = " SELECT id, ip, software, lenguaje, fecha, hora FROM visitantes ORDER BY id desc "

' Defino el tamaño de las páginas
RS.PageSize = TamPagina
RS.CacheSize = TamPagina

' Abro el recordset
RS.Open SQLQuery1, Conn, 1, 1

'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
Response.Write( "Pagina " & PaginaActual & " de " &PaginasTotales)
Response.Write("<br><br>")
%>
<p align="center"><font color="#000000" size="4" face="Verdana, Arial, Helvetica, sans-serif" class="T&iacute;tulo1">&Uacute;ltimas
visitas recibidas</font></p>
<table border=1 align="center" cellpadding=3 cellspacing=0 bordercolor="#000000" bgcolor="#ccccc">
<tr bordercolor="#333333">
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Visitas</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Dirección
IP</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Navegador</font></strong></div></td>
<td bgcolor="#F0F0F0"><div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Idioma</font></strong></div></td>
<td bgcolor="#F0F0F0"><div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Fecha</font></strong></div></td>
<td bgcolor="#F0F0F0"><div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Hora</font></strong></div></td>
</tr>
<%
CuantosRegistros = 0
Do while not RS.EOF and CuantosRegistros < TamPagina
i = i + 1
%>
<tr bordercolor="#333333" bgcolor="#FFFFFF">
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=i%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("IP")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("Software")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("Lenguaje")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("Fecha")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("Hora")%></small></font></div></td>
</tr>
<%
CuantosRegistros = CuantosRegistros + 1
RS.MoveNext
loop
%>
</table>
<%
end if

RS.Close
Conn.Close
set RS = nothing
set Conn = nothing

'Muestro los enlaces
Response.Write("<br><hr>")
if PaginaActual > 1 then
Response.Write(" <A HREF=visitados_por.asp?pagina="&PaginaActual-1&">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write(" <A HREF=visitados_por.asp?pagina="&PaginaActual+1&">1 0 Siguientes</A>")
end if
%>


Espero encuentren el fallo.

El link de los 10 siguientes al pasar el mouse por encima muestra:

visitado_por.asp?pagina=2

en tal caso sería correcto pero no pasa del todo bien la variable.

Gracias Aprendiz.

[Fr@Nc3$c0]

El problema no lo encuentro, pero RESUMO:

Tengo una variable que la paso por link a la siguiente pagina, ésta esta pasada correctamente, pero al acceder a ella dice que no existe.

<a href="XXX.as?pagina= <%=&siguiente& %>"</a>

En la web se muestra el link correcto, pulso y TA CHAN:

The page cannot be found
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable.

--------------------------------------------------------------------------------

El link mostraba

XXX.asp?pagina=2

Que puede fallar?

[ElAprendiz]

mira yo utlizo el mismo codigo para paginar y no lo unico diferente que encontre fue esto
' Abro el recordset
RS.Open SQLQuery1, Conn, 1, 1

RS.Open SQLQuery1, Conn, 1, 2

si no es eso
1. estas seguro que tu pagina se llama visitado_por.asp
2. pues cuando me pasa algo asi lo que hago es no enviarle todo y asi voy quitando cosas hasta encontrar donde se cae..jeje

pues intentar linkear pero sin enviar la variable a ver que pasa si se cae significa que ya no es problema de codigo..

saludos

[Fr@Nc3$c0]

Gracias por contestar ElAprendiz...
La verdad es que me comí tanto la cabeza que lo solucioné de una manera muy sencilla, a que no sabes cual?

Tras la prueba que hice quedó claro que para pasar variables por URL no se puede utilizar nombres en las paginas que contengan carácteres como _ _ _ (visitados_por.asp)

Cambie el nombre de la pagina por visitantes.asp y funcionó correctamente.

Saludos!

[ElAprendiz]

que bueno!

pero me dejaste metido con eso del _


mmhh

[MsTech.DotNet]

Jajajaja la verdad que esta raro no??? porque no funciona poner un underscore en el nombre de una pagina asp para pasar parametros y variables por url???

Ta raro..!!!

Jajajajaja

Saludos...

[Fr@Nc3$c0]

Ya ven amigos, tal como leen

Si dudan de mi, hagan la prueba... estuve 2 días hasta que me dí cuenta .


Saludos.

[ElAprendiz]

jajaj

tas mal amigo pues como te comente yo utilizo la misma paginacion en una pagina llamada buscar_art.asp y funciona a la perfeccion.

debe ser por otra razon..en fin

[Fr@Nc3$c0]

pues no lo entiendo, fué cambiar eso y funcionar :D

asi queda :D

Saludos!

[dagui]

Hola.

Me imagino que el problema está aquí.

Response.Write(" <A HREF=visitados_por.asp?pagina="&PaginaActual-1&">10 Anteriores</A> ")

Debería ser
Response.Write(" <A HREF=% visitados_por.asp?pagina="&PaginaActual-1&%">10 Anteriores</A> ")

DONDE % es el caracter especial para imprimir las comillas o la comilla simple. El cual no conozco, pero se que existe.


De esta manera se pasa completamente al URL todo lo que queremos.

Saludos.

[Fr@Nc3$c0]

Madre mia, este tema ya estaba olvidado jejeje...
Ya lo solucioné en su día , volví a crear la página con el recordset, aunque después la borre y la hize en getrow! jeje, en fín.
Gracias por el interés.