Buenos días a todos, a ver si alguien me puede ayudar con este pequeño problema.
En una misma página estoy realizando 3 consultas distintas, para 3 tipos de registros, estos registros pueden tener innumerables cantidad de resultados, es por eso que necesito hacer un paginador para cada resultado.
El primer paginador funciona perfectamente si no coloco los demás paginadores no hay problema.
Colocando el paginador 2, sigue funcionando el primero, pero el problema está en que se muestra la cantidad de páginas que resultan de los cálculos pero no muestra ningún registro, y si selecciono la siguiente página me lleva a la página correspondiente del primer paginador.
El código es el siguiente, solo coloco lo más resaltante:
--------------------------------------------------------------------------------------
PAGINADOR 1:
pagina = TRIM( Request( "pagina" ) )
IF Request.Querystring("pagina") = "" THEN
pagina = 1
else
pagina=CInt(Request.Querystring("pagina"))
end if
' Abre el Recordset
Set prodRS = Server.CreateObject( "ADODB.Recordset" )
prodRS.CursorLocation = 3
prodRS.LockType=1
prodRS.PageSize = 1
Select ....
prodRS.Open SQL, conexion,3,1
if prodRS.eof and prodRS.bof then
response.write "Actualmente no hay registros tipo 1"
else
prodRS.AbsolutePage =pagina
WHILE NOT prodRS.EOF AND rowCount < prodRS.PageSize
rowCount = rowCount + 1
prodRS.MoveNext
WEND
'loop
%>
</table>
<%
IF prodRS.PageCount > 1 THEN
%>
<b>Páginas de inmuebles: </b>
<%
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pg ) THEN
%>
<a href="index.asp?pagina=<%=i%>"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
<% END IF %>
<%
NEXT
%>
----------------------------------------------
PAGINADOR 2:
pg2 = TRIM( Request( "pg2" ) )
IF Request.Querystring("pg2") = "" THEN
pg2 = 1
else
pg2=CInt(Request.Querystring("pg2"))
end if
' Abre el Recordset
Set tabla = Server.CreateObject( "ADODB.Recordset" )
tabla.CursorLocation = 3
tabla.LockType=1
tabla.PageSize = 1
SELECT...
tabla.Open SQL, conexion,3,1
if tabla.eof and tabla.bof then
response.write "Actualmente no hay REGISTRO TIPO 2"
else
tabla.AbsolutePage =pg2
WHILE NOT tabla.EOF AND rowCount < tabla.PageSize
rowCount = rowCount + 1
tabla.MoveNext
WEND
'loop
%>
</table>
<%
IF tabla.PageCount > 1 THEN
%>
<b>Páginas de inmuebles: </b>
<%
FOR i = 1 to tabla.PageCount
IF i <> cINT( pg2 ) THEN
%>
<a href="index.asp?pg2=<%=i%>"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
<% END IF %>
<%
NEXT
%>
------------------------------------------------------------------------
Gracias de antemano por la ayuda
