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