Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Cesão

Erro de Paginação v.2

Por , em ASP Clássico

Recommended Posts

Cesão    1

Cesão
Postado

Olá pessoal. Fui usar o código de paginação do AlexCT que está no Laboratório de scripts, mas deu o seguinte erro...

 

 

ADODB.Recordset erro '800a0bcd'

 

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

 

/forum/mensagem.asp, line 187

 

O que tenho que fazer para funcionar?

Vou postar meu código aki (em partes, pois eh grande demais) para voces darem uma olhada...

 

ASP

[*]<!-- #include file="conexao/conn.asp" -->

 

[*]<!-- #include file="conexao/espiao.asp" -->

 

[*]<!-- #include file="js/funcoes.asp" -->

 

[*]<%Response.Expires = -1 : Response.Buffer = false 

 

[*]Response.addHeader "pragma", "no-cache"

 

[*]Response.CacheControl = "Private"%>

 

[*]<html>

 

[*]<head>

 

[*]<title><!--#include file="titulo.asp" --></title>

 

[*]<link href="css/style.css" rel="stylesheet" type="text/css">

 

[*]<script language="javascript" src="js/funcoes.js"></script>

 

[*]</head>

 

[*]<%

 

[*]id_topico = request("idt")

 

[*]

 

[*]sql="SELECT * FROM tbl_topico a, tbl_users b , tbl_emoticon c WHERE a.id_user=b.id_user and a.id_emoticon=c.id_emoticon and a.id_topico="&id_topico

 

[*] set rs_topico=Conn.execute(sql)

 

[*]

 

[*]'sql="SELECT * FROM tbl_resposta a, tbl_users b , tbl_emoticon c WHERE a.id_user=b.id_user and a.id_emoticon=c.id_emoticon and a.id_topico="&id_topico&" ORDER BY a.id_resposta"

 

[*]' set rs_resposta=Conn.execute(sql)

 

[*]%>

 

[*]<%

 

[*]PagAtual = Request.QueryString("PagAtual") 'página atual

 

[*]

 

[*]Set rs_resposta= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação

 

[*]sql="SELECT * FROM tbl_resposta a, tbl_users b , tbl_emoticon c WHERE a.id_user=b.id_user and a.id_emoticon=c.id_emoticon and a.id_topico="&id_topico&" ORDER BY a.id_resposta"

 

[*]rs_resposta.Open SQL, Conn, 3

 

[*]

 

[*]

 

[*]'############## paginacao Introdução #################

 

[*]

 

[*]'------- Coloque aqui a quantidade de registros que você deseja por página --------

 

[*]

 

[*]Const NumPorPage = 1

 

[*]

 

[*]'Verifica qual a página solicitada

 

[*]  Dim PagAtual

 

[*]

 

[*]  IF Request.QueryString("PagAtual") = "" Then

 

[*]  PagAtual = 1 'Primeira página

 

[*]  Else

 

[*] PagAtual = Request.QueryString("PagAtual")

 

[*]  End If

 

[*]

 

[*]  rs_resposta.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

 

[*]

 

[*] rs_resposta.MoveFirst 'Move o RecorSet para o início 

 

[*] rs_resposta.PageSize = NumPorPage 'Coloca a quantidade de páginas

 

[*]

 

[*] Dim TotalPages 'Pega o número total de páginas

 

[*] TotalPages = rs_resposta.PageCount

 

[*]

 

[*] rs_resposta.AbsolutePage = PagAtual 'Configura a página atual

 

[*]

 

[*]'############## paginacao Introdução - FIM #################

 

[*]

 

[*]

 

[*]Count = 0  'Zera o contador

 

[*]  

 

[*]'Inicia a Função DO, utilizando a quantidade de páginas especificadas

 

[*]'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo

 

[*] 

 

[*]i = 0 

 

[*]

 

[*]DO WHILE NOT rs_resposta.EOF And Count < rs_resposta.PageSize 'paginacao And Count < RS.PageSize 

 

[*]

 

[*]' ----- linhas coloridas -------

 

[*]if i mod 2<>0 then

 

[*]cor = "#F4F4F4"

 

[*]else

 

[*]cor = "#e1e1e1"

 

[*]end if 

 

[*]'-------------------------------

 

[*]

 

[*]%> 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

ASP

[*]<body>

 

[*]<table width="630" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">

 

[*] <tr>

 

[*] <td width="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td height="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] <td width="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td bgcolor="#FFFFFF"> </td>

 

[*] <td valign="top" class="fundo"><table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr align="center">

 

[*] <td><!--#include file="topo.asp"--></td>

 

[*] </tr>

 

[*] <tr align="center">

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr align="center">

 

[*] <td><table width="97%" border="0" cellpadding="0" cellspacing="0">

 

[*] <tr>

 

[*] <td width="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td height="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td width="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td width="10" bgcolor="#FFFFFF"> </td>

 

[*] <td valign="top" bgcolor="#202F43"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

 

[*] <tr>

 

[*] <td width="73%" align="left" valign="top"><img src="img/tit_forum.gif" width="124" height="40"></td>

 

[*] <td width="27%" align="right"><img src="img/bt_voltar.gif" alt="VOLTAR" width="52" height="21" style="cursor:hand;" onClick="java script:window.open('forum.asp?idf=<%=rs_topico(5)%>','_self');"></td>

 

[*] </tr>

 

[*] <tr class="linkw">

 

[*] <td height="18" colspan="2" align="right"> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td height="18" colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr>

 

[*] <td><table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr class="ftit">

 

[*] <td colspan="3"><%=rs_topico(1)%></td>

 

[*] </tr>

 

[*] <%do while not rs_topico.eof%>

 

[*] <tr class="ftopic">

 

[*] <td align="center" bgcolor="#8BA9BE"><b><%=rs_topico(8)%></b></td>

 

[*] <td width="64%" bgcolor="#8BA9BE"><b>Postado em:</b> <%=DataCerta(rs_topico(3))%></td>

 

[*] <td width="18%" bgcolor="#8BA9BE"><img src="img/bt_editar.gif" alt="EDITAR" width="38" height="16" style="cursor:hand;" onClick="java script:window.open('topico_edit.asp?idt=<%=rs_topico(0)%>','_self');">  <img src="img/bt_deletar.gif" alt="DELETAR" width="45" height="16" style="cursor:hand;" onClick="java script:window.open('topico_del.asp?idt=<%=rs_topico(0)%>','_self');"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="3" bgcolor="#607E93"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] </tr>

 

[*] <tr class="ftopic">

 

[*] <td width="18%" align="center"><img src="<%=rs_topico(11)%>"><br><%=rs_topico(14)%><br><br></td>

 

[*] <td colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ftopic">

 

[*] <tr>

 

[*] <td width="7%" align="center"><img src="<%=rs_topico(16)%>"></td>

 

[*] <td width="93%"><b><%=rs_topico(1)%></b></td>

 

[*] </tr>

 

[*] <tr align="center">

 

[*] <td colspan="2"><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#234E6E">

 

[*] <tr class="texto_b">

 

[*] <td bgcolor="#FFFFFF"><%=rs_topico(2)%></td>

 

[*] </tr>

 

[*] </table></td>

 

[*] </tr>

 

[*] </table></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="3" bgcolor="#607E93"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] </tr>

 

[*] <%rs_topico.movenext%>

 

[*] <%loop%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

ASP

[*] </table></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td><table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <%do while not rs_resposta.eof%>

 

[*] <tr class="ftopic">

 

[*] <td align="center" bgcolor="#8BA9BE"><b><%=rs_resposta(8)%></b></td>

 

[*] <td width="64%" bgcolor="#8BA9BE"><b>Postado em:</b> <%=DataCerta(rs_resposta(3))%></td>

 

[*] <td width="18%" bgcolor="#8BA9BE"><img src="img/bt_editar.gif" alt="EDITAR" width="38" height="16" style="cursor:hand;" onClick="java script:window.open('resposta_edit.asp?idr=<%=rs_resposta(0)%>','_self');">  <img src="img/bt_deletar.gif" alt="DELETAR" width="45" height="16" style="cursor:hand;" onClick="java script:window.open('resposta_del.asp?idr=<%=rs_resposta(0)%>&idt=<%=id_topico%>','_self');"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="3" bgcolor="#607E93"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] </tr>

 

[*] <tr class="ftopic">

 

[*] <td width="18%" align="center"><img src="<%=rs_resposta(11)%>"><br><%=rs_resposta(14)%><br><br></td>

 

[*] <td colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ftopic">

 

[*] <tr>

 

[*] <td width="7%" align="center"><img src="<%=rs_resposta(16)%>"></td>

 

[*] <td width="93%"><b><%=rs_resposta(1)%></b></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="2"><%=rs_resposta(2)%></td>

 

[*] </tr>

 

[*] </table></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="3" bgcolor="#607E93"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] </tr>

 

[*] <%rs_resposta.movenext%>

 

[*] <%loop%>

 

[*] </table></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align="center">

 

[*]<%

 

[*] i = i+1

 

[*] Count = Count + 1  'paginacao

 

[*] rs_resposta.MoveNext

 

[*] LOOP 'tb paginacao

 

[*]

 

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

ASP

[*]<%

 

[*]'################## paginacao 01 #####################

 

[*]

 

[*] 'Coloca o Nº página atual / Nº Total de páginas

 

[*]

 

[*] Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  

 

[*]

 

[*]'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 

 

[*]

 

[*]IF PagAtual > 1 THEN 

 

[*]

 

[*]'Se for a primeira página, Mostra apenas o botão Próximo e Ultima

 

[*] Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 

 

[*] Response.Write("<a href='mensagem.asp?PagAtual=" & 1 & "'>")

 

[*] Response.Write("Primeira") 

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 

 

[*] Response.Write("<a href='mensagem.asp?PagAtual=" & PagAtual - 1 & "'>")

 

[*] Response.Write("Anterior") 

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*]  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 

 

[*] Response.Write("<a href='mensagem.asp?PagAtual=" & PagAtual - 1 & "'>")

 

[*] Response.Write("Anterior") 

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*]

 

[*] Else

 

[*]

 

[*] Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 

 

[*] Response.Write("Primeira") 

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 

 

[*] Response.Write("Anterior") 

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*]

 

[*]End If

 

[*]

 

[*]'------------------- numero -------------------------

 

[*]'---------- Numero de numeros para ser mostrados ----

 

[*]  max_n_mostrados = 9

 

[*]

 

[*]intervalo = Int(max_n_mostrados /2)

 

[*]inicio = PagAtual - intervalo

 

[*]final = PagAtual + intervalo

 

[*]

 

[*]If CInt(inicio) <1 Then 

 

[*] inicio = 1

 

[*] final = 10

 

[*]END IF

 

[*]If CInt(final) > CInt(TotalPages) Then final = TotalPages

 

[*]

 

[*]For i = inicio To final

 

[*]  If CInt(i)=CInt(PagAtual) Then

 

[*]  Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "

 

[*]  END IF

 

[*]  If CInt(i) < CInt(PagAtual) Then

 

[*] Response.Write "<a href='mensagem.asp?PagAtual=" & i & "'>" & i & "</a> "

 

[*]  END IF

 

[*]  If CInt(i) > CInt(PagAtual) Then

 

[*]  Response.Write "<a href='mensagem.asp?PagAtual=" & i & "'>" & i & "</a> "

 

[*] END IF

 

[*]Next

 

[*]

 

[*]'------------------------------------------------------

 

[*]

 

[*]IF CInt(PagAtual) <> CInt(TotalPages) THEN 

 

[*]

 

[*]'Se estiver na última página, mostra apenas o botão Anterior e Primeira

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

 

[*] Response.Write("<a href='mensagem.asp?PagAtual=" & PagAtual + 1 & "'>")

 

[*] Response.Write("Próxima")

 

[*] Response.Write("</a></font></B> ") 

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")

 

[*] Response.Write("<a href='mensagem.asp?PagAtual=" & TotalPages & "'>")

 

[*] Response.Write("Ultima")

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*] Else

 

[*] Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

 

[*] Response.Write("Próxima") 

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")

 

[*] Response.Write("Ultima") 

 

[*] Response.Write("</font></B> ")

 

[*]End If 

 

[*]'################## fim paginacao 01 ########################

 

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

ASP

[*]</td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align="right"><img src="img/bt_responder.gif" alt="RESPONDER AO TÓPICO" width="84" height="24" style="cursor:hand;" onClick="java script:window.open('resposta_add.asp?idt=<%=id_topico%>','_self');"></td>

 

[*] </tr>

 

[*] </table>

 

[*] </td>

 

[*] </tr>

 

[*] </table></td>

 

[*] <td width="10" bgcolor="#FFFFFF"> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td height="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] </tr>

 

[*] </table> </td>

 

[*] </tr>

 

[*] <tr align="center">

 

[*] <td> </td>

 

[*] </tr>

 

[*] </table></td>

 

[*] <td bgcolor="#FFFFFF"> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] <td height="10" bgcolor="#FFFFFF"><img src="img/spacer.gif" width="1" height="1"></td>

 

[*] <td bgcolor="#FFFFFF"><img src="img/spacer.gif" width="10" height="10"></td>

 

[*] </tr>

 

[*]</table>

 

[*]</body>

 

[*]</html>

 

[*]<%

 

[*]rs_topico.Close()

 

[*]set rs_topico = nothing

 

[*]rs_resposta.Close()

 

[*]set rs_resposta = nothing

 

[*]Conn.Close()

 

[*]set Conn = nothing

 

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

A linha 187 que me refiro no começo seria, aqui, a linha 41 da terceira parte do código.E ai, alguem pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Cesão!!!

Posta só a linha com erro, o resto do código é desncessário.

primeiro que nenhum ser humano normal vai olhar tudo isso

 

facilita pra galera te ajudar tb...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Então... a linha referente ao erro é a linha 41 da terceira parte do código.

Mas eu coloquei o código todo pq o erro não é na linha 187 MESMO... pq eu copiei o código do rapaz e mudei o necessário para ele se encaixar na minha página.

 

Alguém pode me ajudar?

Pq assim... eu copiei o código, mudei apenas o SELECT (para puxar coisas do MEU DB) e mudei tbm o nome do RS, entao tive que mudar em todas as partes... antes era RS e agora eh rs_resposta!!

 

Mas foi soh isso que eu mudei...

não sei se o erro é no posicionamento das partes que colei...

não sei se o erro é que há algo no meu código que atrapalha o código da paginação...

Não sei se falta eu ajustar algo do código do cara p minha página... não sei pq nao manjo mto...

 

por isso postei o código todo... alguem pode me ajudar??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Ae pessoal... agora ateh to conseguindo fazer a paginação mais ou menos.... o único problema que tah dando agora eh que ele tah desorganizando todo o conteúdo da tabela... eu pedi pra ele organizar por ID e ele nao tah fazendo isso... além disso, no código de paginação eu pedi p mostrar 5 itens por pagina... soh que na primeira ee mostra todos... na segunda ele mostra uns 2 (as vezes ateh repete uns itens)... e por ai vai...o que faço?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito