Como Quebrar Página ?

[igor.damiano]

Como faço para quebrar uma página quando listo muitos registros nela ? E limitar o nº de registros listados por página ? E que embaixo, aparece o número de páginas que tem para acessar (pág 2, 3, 4, ....)

Ex.: É que nem aqui no fórum, quando um tópico tem muitas mensagens, continua em outra página, e lá embaixo, aparece o nº de páginas, como faço isso ?

Obrigado.

[diraol]

ae igor... isso q você tah procurando é um sistema de paginação...

aqui vai um pra você.... tente adequa-lo ao seu código... :D

<%@ Language=VBScript %>

<% on error resume next %>

<%

pagina = Request.QueryString("p")

if pagina = "" then

pagina = 1

end if

'Seta a variavel pagina como a página em questão na paginação

registros = 20

'Seta o número de registros por pagina

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

conn.open caminho

set RS = Server.Createobject("AdoDB.RecordSet")

set RS.ActiveConnection = conn

RS.cursortype = 3

RS.pagesize = registros

StrSQL = "select de,assunto,msgid,datepart(dd,data) as dia,datepart(mm,data)as mes,datepart(yyyy,data)as ano,lida from torpedo where para = '" & session("nick") & "'"

RS.Open StrSQL

if RS.EOF then

%><p align=center><font face="Arial" size="2">não há torpedos Para Voce</font></p><%

%><br><a href="frmtorpedo.asp">nova mensagem</a> <!--#include file = "../fim.html"-->  <%

RS.Close

Conn.Close

set conn = nothing

set rs = nothing

Response.End

else

RS.absolutepage = pagina

if RS.EOF then

%><p align=center><font face="Arial" size="2">não há torpedos Para Voce</font></p><%

fim = 1

end if

%>

<TABLE cellSpacing=1 cellPadding=1 width="80%" align=center border=1>

 

  <TR>

    <TD>

      <P align=center>de:</P></TD>

    <TD>

      <P align=center>Assunto:</P></TD>

    <TD>

      <P align=center>data</P></TD>

    <TD>

      <P align=center>Perfil</P></TD>

    <TD>

      <P align=center>apagar</P></TD></TR>

<%contador = 0

While NOT RS.EOF AND contador < RS.pagesize

contador = contador + 1

lida = rs.Fields("lida")

if lida = "sim"  then

  negrito = " "

  negrito2 = " "

else

  negrito = "<B>"

  negrito2 = "</B>"

end if

%>

  <TR>

    <TD><% Response.Write(negrito & " " & rs.Fields("de")& " " & negrito2) %></TD>

    <TD><a href="le.asp?id=<%Response.Write(rs.Fields("msgid"))%>"><% Response.Write(negrito & " " & rs.Fields("assunto")& " " & negrito2) %></a></TD>

    <TD><% Response.Write(negrito & " " & rs.Fields("dia")& "/"& rs.Fields("mes")& "/" & rs.Fields("ano") &  negrito2) %></TD>

    <TD>ver perfil do remetente</TD>

    <TD><a href="deleta.asp?id=<%Response.Write(rs.Fields("msgid"))%>">apagar mensagem</TD>

  </TR>

  <%

 

RS.MoveNext

Wend

end if

%>

</TABLE>

      <%

if fim = "" then

anterior = pagina - 1

proxima = pagina + 1

if anterior <> 0 then

%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> <%

end if

if proxima < rs.PageCount + 1 then

%>  <a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">  Próxima Página</a><%

end if

end if

RS.Close

Conn.Close

set conn = nothing

set rs = nothing

%>

      <br><a href="frmtorpedo.asp">nova mensagem</a>

[PeiXuXaWebSite]

bom saber......já tinha perguntado isso em um tópico anterior mas ninguém repondeu...

[resopi]

Diarol!! por favor aonde você pegou esse script??? POIS FUI EU Q O FIZ!!!! e faz parte de um projeto meio q secreto que estou desenvolvendo........

ESSE SCRIPT DE PAGINAÇÂO FOI FEITo POR EU :(

gora já foi não é?!!! nan precisa tirar mas eu fiquei curiose de saber como c pegou!!!!!

falou!

:ph34r:

[jissa]

Ae Resopi.. foi voce mesmo quem postou este codigo.. heheheh

Fiz uma pesquisa por curiosidade aqui no Forum ASP...

veja este aqui

Fia a pesquisa pela string "frmtorpedo.asp"

http://scriptbrasil.com.br/forum/index.php...rpedo\.asp

não esquenta não.. trabalhar com programacao é assim mesmo.. deixa a gente meio que malucos...