Problemas com paginação

[endler 0]

Pessoal,

Estou com problemas numa paginação de um site que estou fazendo, ela abre na sequência ou seja 1-50 e acaba distorcendo o layout

 

O que eu quero é fazer como o google, que chega em determina página passa pra outra, exemplo 1-10,10-20,20-30.

 

O código existente atualmente é:

 

' Monta a paginação

Sub sMontaPaginacao (numPaginas, paginaAtual)
Dim contPaginas

If numPaginas Then
Response.Write "Páginas: "

For contPaginas = 1 To numPaginas
Response.Write "<a href=""javascript:void(carregarPagina(" & contPaginas & "))"" class=""linkpaginacao"" title="""">"
If contPaginas = paginaAtual Then
Response.Write "<strong>[ " & contPaginas & " ]</strong>"
Else
Response.Write contPaginas
End If
Response.Write "</a>  "
Next
End If
End Sub

Alguém pode me ajudar?

Att.

João Henrique

[xanburzum 169]

ele gera algum erro, ou apenas não exibe a paginação,....

isso provavelmente é a lógica que esta usando, existem alguns ótimos exemplos no fórum, pode te ajudar

analise como esta a lógico dos code e aplique na sua...

[endler 0]

Na realidade ele mostra a paginação, mas de 1 - 30, o que gera o aumento da tabela e a deformação do layout. Queria adequar esse código para mostrar de 1 - 10 - 10-20 e assim subsequente. Teria algum comando para adicionar ao código para ter a paginação do jeito que eu quero?

[walterwac 0]

Olá!

Quantos registros são exibidos por página?

Talvez aumentando este valor, automaticamento o índice será menor!

 

 

100 registros

 

paginação = 1

 

indice de 1 a 100

 

 

paginação = 10

 

indice de 1 a 10

[endler 0]

Pelo código parece que ele é ilimitado e gostaria de saber como fazer pra diminuir exatamente como você falou, tem como me ajudar?

[walterwac 0]

posta o código completo ai!