Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde galera, não consegui resolver esse erro. Acredito que seja na parte de repetição. Qd eu vou abrir uma página que não tem cadastro algum dá esse erro. Só que criei um senão para que aparece "notícias não cadastradas". Fico no aguardo
Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
<%
Option Explicit
'Criando variáveis
Dim localbd, meubd, rsNoticias, rsedicao
'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd_aqui.mdb")
'Setando conexões
set meubd=server.createobject("adodb.connection")
set rsNoticias=server.createobject("adodb.recordset")
set rsedicao=server.createobject("adodb.recordset")
meubd.Open localbd
'Esse select seleciona as notícias com a última edição cadastrada
rsedicao.open "Select * from noticias order by edicao desc", meubd
'Esse select seleciona todas as noticias cadastradas
rsNoticias.open "Select * from noticias, noticias_tipo where noticias.tipo="& request.querystring("tipo") &" and noticias.tipo=codtipo order by subtitulo", meubd<html>
<head>
<title>aQui Online</title>
</head>
<link rel="stylesheet" href="../css/editorias.css" type="text/css" title="Editorias" media="all"/>
<body>
<div id="geral">
<div id="topo">
<div id="logo"><img src="../imagens/logo_aqui.jpg" width="201" height="87"></div>
</div>
<div id="menu1">
<ul id="menu">
<li><a href="templates/capa.asp">Capa</a></li>
<li><a href="templates/aconteceu.asp">Aconteceu</a></li>
<li><a href="templates/barramansa.asp">Barra Mansa</a></li>
<li><a href="templates/cartas.asp">Cartas</a></li>
<li><a href="templates/csn.asp">CSN</a></li>
<li><a href="templates/especial.asp">Especial</a></li>
<li><a href="templates/esportes.asp">Esportes</a></li>
<li><a href="templates/grampos.asp">Grampos</a></li>
<li><a href="templates/policia.asp">Polícia</a></li>
<li><a href="templates/politica.asp">Política</a></li>
<li><a href="templates/regiao.asp">Região</a></li>
<li><a href="templates/rioclaro.asp">Rio Claro</a></li>
<li><a href="templates/social.asp?cod=<%=rsNoticias("codnoticia")%>">Social</a></li>
<li><a href="templates/voltaredonda.asp">Volta Redonda</a></li>
<li><a href="templates/tudoaqui.asp">Classificados</a></li>
</ul>
</div>
<div id="conteudo">
<%
'Se houver registros ele mostrará esta parte
if not rsNoticias.EOF then
%>
<span class="editoria" id="editoria">| <%=rsNoticias("tipo")%></span>
<div id="traco"><img src="../imagens/traco.jpg" width="596" height="2"></div>
<%
if rsNoticias("codtipo") = 4 then
%>
<%
'Repetir as notícias encontradas
while NOT rsNoticias.EOF
%>
<h4><a href="<%=rsNoticias("tipo2")%>.asp?cod=<%=rsNoticias("codnoticia")%>"><%=rsNoticias("titulo")%></a></h4>
<p><%=rsNoticias("chamada")%></p>
<h4 class="traco">- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </h4>
<%
rsNoticias.movenext
wend
%>
<%
else
%>
<%
'Repetir as notícias encontradas
while NOT rsNoticias.EOF
%>
<h4><a href="<%=rsNoticias("tipo2")%>.asp?cod=<%=rsNoticias("codnoticia")%>"><%=rsNoticias("subtitulo")%></a></h4>
<p><%=rsNoticias("chamada")%></p>
<h4 class="traco">- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </h4>
<%
rsNoticias.movenext
wend
%>
<% end if %>
<%
'Caso o Recordset esteja vazio, ele mostrará a parte abaixo
else
%>
<p>Não existem notícias cadastradas nessa edição</p>
<%end if%>
</div>
<div id="rodape">
<p><a href="#" target="_top"><em><alto></em></a></p>
<p>© Jornal aQui. Todos os direitos reservados.</p>
</div>
</div>
</body>
</html>'Limpando as variáveis
set meubd= nothing
set rsNoticias= nothing
set rsEdicao= nothing
%>
Carregando comentários...