Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/12/2004, 04:49
sqa212
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 22 años
Puntos: 0
Escribir en otra fila

Este es el codigo que utilizo para mostrar en una paginacion las distintas paginas que se generan en la consulta.
El problema es que si la consulta arroja muchos registros me aparece la paginación en una sola linea por ejemplo:

Página 1 de 52 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 Todo esto aparece en una sola linea!!

¿Como podria modificar el codigo para que cada 20 paginas mostradas en la paginacion siguiera en otra fila mas abajo?
Por ejemplo:
Página 1 de 52 1 2 3 4 .....20
21 22 23 .....40
etc



Este es el codigo:

<%
PagActual = Request.Querystring("pagina")
IF PagActual = "" THEN PagActual = 1
PagTotales = int(objRS.RecordCount \ 5)
IF objRS.RecordCount MOD 5<> 0 THEN PagTotales = PagTotales + 1
%>
<TABLE cellSpacing=1 cellPadding=3 border=0>
<TBODY>
<TR>
<TD>
Página
<%=PagActual%> de <%=PagTotales%>
</TD>
<%
FOR Quepagina = 1 TO PagTotales

IF Cint(Quepagina) = Cint(PagActual) THEN

%>
<TD>
<STRONG><%=Quepagina%></STRONG>
</TD>
<%ELSE%>
<TD>
<%
Response.Write " <a href=""categoria.asp?pagina=" & Quepagina & """>" & Quepagina &_
"</a>"%>
</TD>
<%
END IF
NEXT
%>
</TR></TBODY></TABLE>
Gracias por adelantado!