Paginação

[berkowitz 2]

Pessoal, olá........

Estou tentando fazer uma paginação em um código asp que eu já tinha. Nesse código eu apresento os dados de uma tabela de um BD. Porém a paginação não está funcionando........ alguém pode me ajudar??

Segue abaixo o código da minha página:

 

<%

session("tabela") = request.querystring("tabela")

dim rsBanco1

set rsBanco1 = new cnx_BD

'rsBanco1.local="banco_flashmail.mdb"

rsBanco1.tabela= request.querystring("tabela")

rsBanco1.acessa_bd

rsBanco1.BD.movefirst

 

'------------------ * Paginação * --------------------

IF rsBanco1.BD.EOF then

Response.Write "Não existe nenhum e-mail cadastrado nesta tabela."

Response.End 'fim do programa

ELSE

'Mostra qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> rsBanco1.BD.PageCount then

intpagina=rsBanco1.BD.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

 

rsBanco1.BD.AbsolutePage=intpagina

 

response.write "<table width=""70%"" align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" style='border: 1px solid black'>"

i = 0

intrec = 0

DO While intrec < rsBanco1.BD.PageSize and Not rsBanco1.BD.eof

If i mod 2<>0 then

cor = "#f5f5f5"

Else

cor = "#ffffff"

End If

i = i + 1

Response.Write " <tr bgcolor='" & cor & "'>"

Response.Write " <td width=""100%""><font size=""2"" face=""Arial, Helvetica, sans-serif""><p style='margin: 5.0pt'>" & rsBanco1.BD.fields(1) & "</p></font></td>"

Response.Write " <td width=""100%""><p style='margin: 5.0pt'><strong><font size=""2"" face=""Arial, Helvetica, sans-serif""><a href=""sysexcluir.asp?email=" & rsBanco1.BD.fields(1) & "&tabela=" & rsBanco1.tabela & """ onClick=""return confirm('Voce tem certeza que deseja excluir o e-mail " & rsBanco1.BD.fields(1) & "?')"" onMouseOver=""pop('Só clique aqui se você realmente desejar excluir este e-mail do Banco de Dados.','#f5f5f5','ATENÇÃO')"" onMouseOut=""kill()"">excluir</a></font></strong></p></td>"

Response.Write " </tr>"

intrec=intrec+1

' IF rsBanco1.BD.EOF then

' response.write " "

' END IF

rsBanco1.BD.movenext

'Wend 'fim do loop

 

IF intpagina > 1 then

Response.Write "<a href=""sysmostra.asp?tabela=" & rsBanco1.tabela & "&pagina=1"">Primeira</a> - <a href=""sysmostra.asp?tabela=" & rsBanco1.tabela & "&pagina=" & intpagina = intpagina-1 & ">Anterior</a> - "

END IF

 

IF strcomp(intpagina,rsBanco1.BD.PageCount) <> 0 then

Response.Write "<a href=""sysmostra.asp?tabela=" & rsBanco1.tabela & "&pagina=" & intpagina = intpagina + 1 & ">Próxima</a>"

END IF

 

Loop

Response.Write "</table>"

%>

<%

rsBanco1.BD.close() 'NAO esqueça destas linha !

%>

 

Valeu......

 

T +

 

BERKOWITZ ;)

[Cable 0]

Ela dá algum erro ?Existem vários tipos de se fazer paginação....e vários tipos de paginação também...Posta ai o erro que esta dando que a gente te ajuda melhor ;) :o :o

[berkowitz 2]

Ae pessoal, abaixo segue o erro que está aparecendo na minha página...... eu coloquei para aparecer 15 e-mails por página, e está aparecendo, mas aparece 15 vezes a palavra 'FALSE' e não aparece o 'PRÓXIMA', 'ANTERIOR', tal.....

 

 

 

Falow

 

BERKOWITZ ;)