Limitando A Paginação...

[marcus Gemeos]

Olá pessoal,

Como faço com o código abaixo, limite os números de paginação e o restante fique com "..." reticencias?

Pois se tiver 1000 páginas, vai aparecer 1000 números na paginação!

<%'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 

IF intpagina > 1 then 'AND intpagina <> 2 Then
%>
<align="center"><font color="#FFFFFF" size="2" face="Verdana"><span style="background-color: #808080">&nbsp;<a href="dados_de_clientes.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="dados_de_clientes.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="dados_de_clientes.asp?pagina=<%=intpagina + 1%>"><font color="#FFFFFF"><b>Próxima</b></font></a>&nbsp;</span>
</font></font></font>
<% 
END IF
%>
</p>

<p align="center">  &nbsp;</p>

</body>

</html>
<%   
 Set rs = Nothing
 end if
%>

Precisso!

Obrigadão!

Marcus

[bareta]

use a busca do forum procure sobre paginação no membro alexct existem otimos modelos