Supongo que si reemplazas esto:
if cint(paginaabsoluta) <> rs.pagecount then
atras=cint(paginaabsoluta)+1
response.write "<td align=""center""><a href=""tablaturas.asp?tamanopagina="&tamanopagina& "&paginaabsoluta=" & atras & """>"&">>"&"</a></td>"
end if
Por este choclo que no te prometo que funcione
Te tiene que servir ¿?¿?
Código:
<%
if CInt(paginaabsoluta) <> rs.PageCount Then
Response.Write "<td align=""center"">"
If paginaabsoluta > 1 Then
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=1"><<</a>
<a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=(paginaabsoluta-1)%>"><</a>
<%
End If
%>
<%
If rs.PageCount > 10 Then
If (paginaabsoluta-5) >=1 Then
For I = (paginaabsoluta-5) To paginaabsoluta
If I = paginaabsoluta Then
Response.Write "<B>"&I&"</B> "
Else
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=I%>"><%=I%></a>
<%
End If
Next
Else
For I = 1 To paginaabsoluta
If I = paginaabsoluta Then
Response.Write "<B>"&I&"</B> "
Else
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=I%>"><%=I%></a>
<%
End If
Next
End If
If (paginaabsoluta+5) =< rs.PageCount Then
For I = (paginaabsoluta+1) To (paginaabsoluta+5)
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=I%>"><%=I%></a>
<%
Next
Else
For I = (paginaabsoluta+1) To rs.PageCount
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=I%>"><%=I%></a>
<%
Next
End If
Else
For I = 1 To rs.PageCount
If I = paginaabsoluta Then
Response.Write "<B>"&I&"</B> "
Else
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=I%>"><%=I%></a>
<%
End If
Next
End If
%>
<% If paginaabsoluta < rs.PageCount Then
%><a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=(paginaabsoluta+1)%>">></a>
<a href="tablaturas.asp?tamanopagina=<%=tamanopagina%>&paginaabsoluta=<%=rs.PageCount%>">>></a>
<%
End If
End If
%>
Te cuento que al paginar, nunca se me ocurrió mostrar solo una determinada cantidad de páginas pero como interesó se me ocurrió esto aunque me salió muyyyyyyy largooooooo. Muestra (supuestamente) de a 10 páginas. ¿Funcionará?
Te cuento más o menos como "supuestamente" debe funcionar:
If paginaabsoluta > 1 Then
Si la página que estás viendo es mayor que 1, llevás al usuario a la primer página con "<<" (paginaabsoluta=1) y a la anterior con "<" (paginaabsoluta-1)
If rs.PageCount > 10
Si la cantidad de páginas totales es mayor que 10 , se viene el choclo!!!!
If (paginaabsoluta-5) >=1 Then
si página actual menos 5 es mayor o igual a 1 (ej. página actual = 9, le restas 5 y da 4), haces un bucle desde paginaabsoluta-5 hasta paginaabsoluta y las enlazas, salvo a paginaabsoluta que como es la actual no la enlazas.
Pero si
paginaabsoluta-5 es menor que 1 el bucle lo hacemos desde 1 hasta paginaabsoluta.
Acá terminan los enlaces hacia atrás.
If (paginaabsoluta+5) =< rs.PageCount Then
Si pagina actual + 5 es igual o menor que el total de páginas, hacemos un bucle desde pagina actual +1 (es +1 porque pagina actual ya lo haz escrito antes) hasta paginaabsoluta+5.
Sino, lo haces desde pag.actual+1 hasta total de páginas (rs.PageCount).
Y se viene la fácil:
[b]Si las paginas totales son menores o iguales a 10, la hacemos requete sencillo: hacemos un bucle de 1 hasta total de páginas y enlazamos (excepto la pag. actual).
La merd!!! Espero que funcione. Si no funciona, no me putees en silencio. Vente pa' aquí y dime, que lo arreglamos