Limitando Os Números De Páginas...

[marcus Gemeos]

Olá pessoal,

Como faço com o código abaixo para limitar a exibição de páginas?

três páginas por exemplo?

Precisso!

Obrigado!!

Marcus

IF intpagina > 1 then
%>
<align="center"><font color="#FFFFFF" size="2" face="Verdana"><span style="background-color: #808080">&nbsp;<a href="paginacao.asp?pagina=<%=intpagina - 1%>"><font color="#FFFFFF"><b>Anterior</b></font></a>&nbsp;</span><% 
END IF
%>
<%
For i = 1 to Rs.PageCount%>
<align="center"><font color="#FFFFFF" size="2" face="Verdana"><span style="background-color: #808080">&nbsp;<a href="paginacao.asp?pagina=<%=i%>"><font color="#FFFFFF"><b><%=i%></b></font></a>&nbsp;</span>
<% 
Next
%>
<%
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,rs.PageCount) <> 0 then 
%> 
<align="center"><font color="#FFFFFF" size="2" face="Verdana"><span style="background-color: #808080">&nbsp;<a href="paginacao.asp?pagina=<%=intpagina + 1%>"><font color="#FFFFFF"><b>Próxima</b></font></a>&nbsp;</span>
</font></font></font>
<% 
END IF
%>

[Jony Walker]

Trabalha com o TotalPages:

TotalPages = RS.PageCount

Aí você faz:

intervalo = Int(max_n_mostrados /2)
 inicio = PagAtual - intervalo
 final = PagAtual + intervalo

 if CInt(inicio) <1 then 
  inicio = 1
  final = 10
 end if

 if CInt(final) > CInt(TotalPages) then final = TotalPages

 for i = inicio to final
     if CInt(i)=CInt(PagAtual) then
         response.write "[ <b>" & i & "</b> ]&nbsp;&nbsp;"
     end if
     if CInt(i) < CInt(PagAtual) then
      response.write "<a class=text href='pagina.asp?PagAtual=" & i &"'>" & i & "</a>&nbsp;&nbsp;"
     end if
     if CInt(i) > CInt(PagAtual) then
         response.write "<a class=text href='pagina.asp?PagAtual="& i"'>" & i & "</a>&nbsp;&nbsp;"
  end if
 next

no max_n_mostrados você define qtas páginas quiser

[marcus Gemeos]

Olá amigo,

Mas guando eu chego na decima em diante, não mostra mais os números... pois queria guando chegasse no decimo, surgia mais dez números... os restantes ocultos entendes?

Obrigadão!

Marcus