Escribir en otra fila

[sqa212]

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!

[PMP]

Prueba con esto:

Código PHP:

  <%
Dim Contador
Contador = 0
 
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>"
 
Contador = Contador + 1
If Contador = 20 then
Response.write("<br>")
Contador = 0
end if
 
%>
</TD>
<%
END IF 
NEXT
%> 
   

[sqa212]

Gracias al final he usado tu codigo pero con estas modificaciones:
<%
Dim Contador
'Contador = 0
Contador =1

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>"

Contador = Contador + 1
If Contador = 20 then
'Response.write("<br>")
Response.write("</TD></TR><TR><TD>")
Contador = 0
end if

%>
</TD>
<%
END IF
NEXT
%>