como mostrar un numero determinado de paginas de una paginacion??

[El_Metallick]

Hola amigos quisiera saber como hacer eso de que aparezcan solo n numero de paginas en esta paginacion

Código:

<%
Dim rs
Dim Conn
Dim sqltxt
Dim tamanopagina
Dim tamanoimg
Dim paginaabsoluta
Dim inicio
Dim fin
Dim contador
Dim j
Dim n
Dim i
Dim atras
Dim rate
Dim orden
Dim cancion
Server.ScriptTimeOut=180
tamanopagina=request.querystring("tamanopagina")
orden=request.querystring("orden")
if orden = "" then
orden="cancion"
end if
if tamanopagina = "" then
tamanopagina=10
end if
paginaabsoluta=request.querystring("paginaabsoluta")
if paginaabsoluta="" then
paginaabsoluta=1
end if
set rs = CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & DB & ""))
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
sqltxt="SELECT * FROM tablaturas ORDER BY " & orden & ""
rs.Open sqltxt, conn
if tamanopagina <> "all" then
rs.pagesize= cint(tamanopagina)
rs.absolutepage=cint(paginaabsoluta)
contador=1
%>
.
contenido...
.
<%
rs.movenext
contador=contador+1
loop
%> 
<div align="center" class="text">Página: </div><table align="center">
<table border="0" align="center" cass="text">
 <tr>
<%j=0
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write "<td align=""center""><a href=""tablaturas.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & """>"&"&lt;&lt;"&"</a></td>"
j=j+1
end if
for i = 1 to rs.pagecount
j=j+1
if j>30 then
response.write "</tr><tr>"
j=1
end if 
if cint(i) = cint(paginaabsoluta) then
response.write "<td align=""center"" class=""text"">"&i&"</td>"
else
response.write "<td align=""center""><a href=""tablaturas.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & i & """>"&i&"</a></td>"
end if
next
end if
 
if cint(paginaabsoluta) <> rs.pagecount then
atras=cint(paginaabsoluta)+1
response.write "<td align=""center""><a href=""tablaturas.asp?tamanopagina="&tamanopagina&"&paginaabsoluta=" & atras & """>"&"&gt;&gt;"&"</a></td>"
end if
%>

bueno lo que quiero es que en lugar de aparecer todas la páginasm quiero que aparzca la pagina actual con 3 paginas a cada lado, por ejemplo si estoy en la pagina 5 que aparezca << < 2 · 3 · 4 · 5 · 6 · 7 · 8 > >>, donde < y > sean vinculos a la pagina anterior y siguiente respectivamente y << y >> a la primera y a la última respectivamente... bueno eso pues espero que me puedan ayudar... saludos y gracias de antemano