duda al paginar en ASP

[LinosINK]

Hola a todos, tengo un listado de páginas web, consegui mostrarlas en páginas de 15 en 15 gracias a un código que encontre por aquí. Ahora necesitaba que me salieran tb las páginas y no solo siguiente y anterior. En plan como cuando buscas aquí en el foro que si son 10 páginas puedes ir pinchando a la página que quieres ir.

Buscando aquí encontre una función que hacia esto pero no consigo que me funcione con lo que ya tengo hecho.

Si alguien me pudiera ayudar se lo agradecería.

Saludos.

Código:

<%
Dim oConn, rs, SQL
Dim PaginaActual		
Dim PaginasTotales		
Dim TamPagina			
Dim CuantosRegistros	

TamPagina=15

if Request.Querystring("pagina")="" then
	PaginaActual=1
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

oConn.Open "DSN=dominio.com.prueba"
SQL="Select * from webs order by url asc"

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, oConn, 1, 2

PaginasTotales=rs.PageCount

if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then
	Response.Write("No se encontraron resultados.")
else
	rs.AbsolutePage=PaginaActual
	Response.Write("<font color=""#000000"" face=""Verdana"" size=""1""><B>Pagina " & PaginaActual & " de " & PaginasTotales & "</B></font>")
	Response.Write("<br><br>")
	Response.Write("<TABLE width=""570"" align=""center"">")
	Response.Write("<TR>")
	Response.Write("<td width=""130"" class=""pencab""><B>FECHA DE ALTA</B></td>")
	Response.Write("<td width=""268"" class=""pencab""><B>URL</B></td>")
	Response.Write("<td width=""168"" class=""pencab""><B>NOMBRE</B></td>")
	Response.Write("</TR>")
	CuantosRegistros=0
	do while not rs.EOF and CuantosRegistros < TamPagina
		Response.Write("<TR>"&VbCrLf)
		Response.Write("<TD class=""formatoIII"">"&rs.Fields("Fecha_alta")&"&nbsp;</TD>")
		Response.Write("<TD class=""formatoIII""><A HREF=JavaScript:AbrirFicha('EDU.asp?MOD=FW&H="& rs.Fields("url") & "')><B><font color=""#000000"">" & rs.Fields("url") & "</font></B></A></TD>")
		Response.Write("<TD class=""formatoIII"">"&rs.Fields("nombre")&"&nbsp;</TD>")
		Response.Write("</TR>")
		CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
	loop
	Response.Write("</TABLE>")

end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

Response.Write("<hr>")
if PaginaActual > 1 then
	Response.Write("<A HREF=EDU.asp?MOD=MW&pagina="& PaginaActual-1& "><font color=""#000000"" face=""Verdana"" size=""1""><B>15 Anteriores</B></font></A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
	Response.Write("<A HREF=EDU.asp?MOD=MW&pagina=" & PaginaActual+1 &"><font color=""#000000"" face=""Verdana"" size=""1""><B>15 Siguientes</B></font></A>")
end if

end Sub %>

[LinosINK]

Ya encontre algo buscando por el foro, la primera vez que busque no lo había encontrado

http://www.forosdelweb.com/f15/regalo-navidad-paginador-automatico-359237/