Ver Mensaje Individual
  #16 (permalink)  
Antiguo 17/07/2010, 03:43
Avatar de Cameron_2006
Cameron_2006
 
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 17 años, 11 meses
Puntos: 0
Respuesta: Varios paginadores en una misma página

Hola Adler, ahora no me da error, pero me lleva a la primera capa, te voy a decir como ha quedado (lo más resaltante) no vaya a ser que lo esté haciendo mal, a ver:

En cada pestaña de cada capa coloqué las anclas: de la siguiente manera:

<li class="TabbedPanelsTab" tabindex="0">INMUEBLES ALQUILER &nbsp;<a name="pagina" id="pagina"></a>
<li class="TabbedPanelsTab" tabindex="0">INMUEBLES VENTA &nbsp;<a name="pag2" id="pag2"></a>
<li class="TabbedPanelsTab" tabindex="0">OBRA NUEVA (PROMOCIONES) &nbsp;<a name="pag3" id="pag3"></a>

Luego en el primer PAGINADOR coloqué el código:

if Request.QueryString("IrA") = "" then

pagina = 1
pag2 = 1
pag3 = 1

else

cual = Request.Querystring("irA")

pagYancla = Split(cual, "-")

Select Case pagYancla(1)
Case 1
pagina = CInt(pagYancla(0))
pag2 = 1
pag3 = 1
Case 2
pagina = 1
pag2 = CInt(pagYancla(0))
pag3 = 1
Case 3
pagina = 1
pag2 = 1
pag3 = CInt(pagYancla(0))
Case Else
pagina = 1
pag2 = 1
pag3 = 1
End Select
end if


Modifiqué en cada paginador el siguiente código:

PAGINADOR 1

prodRS.AbsolutePage =pagina
WHILE NOT prodRS.EOF AND rowCount < prodRS.PageSize
rowCount = rowCount+ 1

<%
IF prodRS.PageCount > 1 THEN
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pagina ) THEN
%>
<a href="index.asp?irA=<%=i%>-1"><%=i%></a>


PAGINADOR 2

prodRS.AbsolutePage =pag2
WHILE NOT prodRS.EOF AND rowCount2 < prodRS.PageSize
rowCount2 = rowCount2 + 1
<%
IF prodRS.PageCount > 1 THEN
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pag2 ) THEN
%>
<a href="index.asp?irA=<%=i%>-2"><%=i%></a>

PAGINADOR 3

prodRS.AbsolutePage =pag3
WHILE NOT prodRS.EOF AND rowCount3 < prodRS.PageSize
rowCount3 = rowCount3 + 1

IF prodRS.PageCount > 1 THEN

<%
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pa3g ) THEN
%>


<a href="index.asp?irA=<%=i%>-3"><%=i%></a>


Gracias otra vez