Nenhuma resposta neste tópico

[¥¥Endler¥¥]

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 todo o layout conforme anexo.

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>[&nbsp;" & contPaginas & "&nbsp;]</strong>"
Else
Response.Write contPaginas
End If
Response.Write "</a>&nbsp;&nbsp;"
Next
End If
End Sub

Alguém pode me ajudar?
Att.
João Henrique

Attached Files

•  print.jpg   46.34KB   3 downloads