Help Na Paginação

[fhermel]

!!! Ola Galerinha do ASP.

Tenho um code de paginação bem simples mais estou com um probleminha + ou - simples eu quero que ele mostre um total de 10 pagina de cada vez, mesmo q tenha 30 paginas, e não o total como esta agora meu code esta abixo. OK

waleuzis.

<%
' Definindo o caminho do banco de dados
caminho = "bds/cadastro.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
objconn.Open DSN

' String SQL para consulta
SQL = "select * from cadastro order by cliente"

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
 Response.Write("Nenhum registro foi encontrado")
Else
 ' Definindo o número de registros por página
 objRS.PageSize = 10

 ' Recupera o valor da variável pagina
 pagina = Request.QueryString("pagina")

 ' Se a variável pagina for vazio, indica que a página sera a primeira
 ' Senão a variável pagina recebe o valor da página corrente, definida acima
 If pagina = "" Then
  objRS.AbsolutePage = 1
  pagina = 1
 Else
  objRS.AbsolutePage = pagina
 End If
%>
<% 
 ' Imprime o número de registros, o total de páginas e a página atual
 Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf )
 Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )
 Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")
%>

<% 
 ' Criando a barra de navegação
 ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
 ' Senão imprime sem link
 If CInt(pagina) > 1 Then
  Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
 Else
  Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
 End If

 ' Lista todas as páginas encontradas
 For i = 1 To objRS.PageCount
  response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
 Next

 ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
 ' Senão imprime sem link
 If CInt(pagina) < objRS.PageCount Then
  Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")
 Else
  Response.Write("Próxima</B></FONT></center>")
 End If
End If
%>




<%While Not objRS.EOF AND cont < objRS.PageSize%>
  <tr bgcolor="#0099CC" bordercolor="0"> 
      <td height="7" width="110" align="left"><font size="1" face="Verdana"><b><%=objRS("cliente")%></b></font></td>
      <td height="7" width="110" align="center"><font size="1" face="Verdana"><b><%=objRS("fone")%></b></font></td>
      <td height="7" width="83" align="center"><font size="1" face="Verdana"><b><%=objRS("endereco")%></b></font></td>
      <td height="7" width="70" align="center"><font size="1" face="Verdana"><b><%=objRS("numero")%></b></font></td>
      <td height="7" width="107" align="center"><font size="1" face="Verdana"><b><%=objRS("bairro")%></b></font></td>
      <td height="7" width="55" align="center">
      <a href="../action_altera.asp?id=<%=objRS("id")%>" OnClick="return confirm('Deseja Realmente Alterar ?')">
      <img src="imagens/edit.gif" width="16" height="16" border="0" alt="Clic aqui para Alterar.">
      </a>   
   </td>
<%
cont = cont + 1
objRS.MoveNext
Wend
%>
  </tr>
</table>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>

[cyberalexxx]

Vamos ver se eu entendi.

voce tem um sistema que exibe 10 registros por pagina.

voce que exibir no máximo 10 paginas.

Se for isso, voce quer exibir 10 paginas x 10 registros = 100 registros, certo??

então faz isso:

' String SQL para consulta
SQL = "select top 100 * from cadastro order by cliente"

[fhermel]

Valeu amigo !

Mais não é bem isto, o que eu quero é assim o

Anterior 1 2 3 4 5 6 7 8 9 10 . . . Proximo

mesmo q tenha 30 pagina mais so mostra de 10 em 10

[bareta]

busque aqui no forum tem um exemplo pronto disso..... busque sobre paginação.....

[cyberalexxx]

Tenta assim:

<%

' Definindo o caminho do banco de dados

caminho = "bds/cadastro.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)

set objconn = Server.CreateObject("ADODB.Connection")

DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)

objconn.Open DSN

' String SQL para consulta

SQL = "select * from cadastro order by cliente"

' Abrindo o registro

SET objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem

' Senão lista os registros

If objRS.EOF Then

Response.Write("Nenhum registro foi encontrado")

Else

' Definindo o número de registros por página

objRS.PageSize = 10

' Recupera o valor da variável pagina

pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira

' Senão a variável pagina recebe o valor da página corrente, definida acima

If pagina = "" Then

objRS.AbsolutePage = 1

pagina = 1

Else

objRS.AbsolutePage = pagina

End If

%>

<%

' Imprime o número de registros, o total de páginas e a página atual

Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf )

Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )

Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")

%>

<%

' Criando a barra de navegação

' Se a variável pagina for maior que 1 então imprime o botão Anterior com link

' Senão imprime sem link

If CInt(pagina) > 1 Then

Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")

Else

Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")

End If

' Lista todas as páginas encontradas

if objRs.PageCount < 11 then

  For i = 1 To objRS.PageCount

    response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")

  Next

end if

if objRs.PageCount > 10 then

      inicio=pagina

      fim=pagina + 9

      tot = pagina + 9

      if tot > ObjRS.PageCount then

        inicio = pagina-((pagina+9)-ObjRs.PageCount)

        fim = inicio+9

      end if

      for i = inicio to fim

          response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")

      next

end if

' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link

' Senão imprime sem link

If CInt(pagina) < objRS.PageCount Then

Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")

Else

Response.Write("Próxima</B></FONT></center>")

End If

End If

%>

<%While Not objRS.EOF AND cont < objRS.PageSize%>

<tr bgcolor="#0099CC" bordercolor="0">

    <td height="7" width="110" align="left"><font size="1" face="Verdana"><b><%=objRS("cliente")%></b></font></td>

    <td height="7" width="110" align="center"><font size="1" face="Verdana"><b><%=objRS("fone")%></b></font></td>

    <td height="7" width="83" align="center"><font size="1" face="Verdana"><b><%=objRS("endereco")%></b></font></td>

    <td height="7" width="70" align="center"><font size="1" face="Verdana"><b><%=objRS("numero")%></b></font></td>

    <td height="7" width="107" align="center"><font size="1" face="Verdana"><b><%=objRS("bairro")%></b></font></td>

    <td height="7" width="55" align="center">

    <a href="../action_altera.asp?id=<%=objRS("id")%>" OnClick="return confirm('Deseja Realmente Alterar ?')">

    <img src="imagens/edit.gif" width="16" height="16" border="0" alt="Clic aqui para Alterar.">

    </a> 

  </td>

<%

cont = cont + 1

objRS.MoveNext

Wend

%>

</tr>

</table>

<%

' Fecha e destroi os objetos RS e conn

objRS.Close : objconn.Close

Set RS = Nothing : Set objconn = Nothing

%>

[fhermel]

Valeu irmão cyberalexxx

Bem certinho quebraste o maior galho, boas ondas pro ce broder.

[cyberalexxx]

beleza!! Vou fechar o tópico.

Qualquer coisa avisa por PM que eu abro novamente