Mostrar Resultado Junto Com A Notícia...

X.bArArA.X · Outubro 9, 2003

Tipo, meu sistema de notícias está pronto. Porém, tenho uma certa dúvida...!

Tem as notícias listadas. Quando eu clico em uma delas, ela abre normal. Porém, queria que do lado desta notícia que abriu, mostrasse as demais, entende, tipo um menu rápido. Ateh aparece, através do include. Mostra esse menu rahpido. Porehm, já não mostra mais a notihcia q era pra visualiazr. Aparece o seguitne erro:

ADODB.Field error '80020009' 

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

?

Minhas pahginas saum essas: VER.ASP

<%
Set DB = Server.CreateObject("ADODB.Connection")

DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados\banco.mdb"))

executar="select*from noticias where id="&request.querystring("id")&""
set rs = DB.execute(executar)

%>
<html>
<head>
<title></title>
<link rel="stylesheet" href="style.css">
</head>
<body >
<table width="100%" border="0" cellspacing="0">
  <tr>
    <td align="center" valign="top"><!--#include file="menu.htm"-->&nbsp;</td>
  </tr>
  <tr>
    <td align="center" valign="top"><table width="573" border="0" cellspacing="0">
        <tr> 
          <td align="center" valign="top"><p><strong><font size="2"><%=rs("dia")%>&nbsp-&nbsp<%=rs("descricao")%></font></strong></p>
            <p>&nbsp;</p></td>
          <td width="446" rowspan="5" align="center" valign="top"><!--#include file="menurapido.asp"-->&nbsp;</td>
        </tr>
        <tr> 
          <td width="123" align="center" valign="top"><p><strong></strong></p></td>
        </tr>
        <tr> 
          <td valign="top"><p><i>Por:&nbsp<%=rs("por")%></i> </p>
            <p>&nbsp;</p></td>
        </tr>
        <tr> 
          <td valign="top"><p align="justify"><%=rs("corpo")%></p>
            <p align="justify">&nbsp;</p></td>
        </tr>
        <tr> 
          <td valign="top"><div align="center"> <strong>Fonte:&nbsp<%=rs("fonte")%></strong></div></td>
        </tr>
      </table>
      <strong></strong></td>
  </tr>
</table>
</body>
</html>

MENURAPIDO.ASP

<%
Set DB = Server.CreateObject("ADODB.Connection")

DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados\banco.mdb"))

executar="select * from noticias order by id desc"
set rs = DB.execute(executar)
%>


<%
dim i, cor
i = 0
do while not rs.eof
i=i+1
if i mod 2 = 0 then cor = "#efefef" else cor = ""
%>
<table width="224" border="0" cellspacing="1">
  <tr bgcolor="<%=cor%>"> 
    <td width="69" align="center" valign="middle"><a href="ver.asp?id=<%=rs("id")%>"><img src="<%=rs("url")%>" width="65" height="65" border="0"></a></td>
    <td width="224" valign="top"><p align="justify"><strong><%=rs("titulo")%></strong><br>
        <a href="ver.asp?id=<%=rs("id")%>"><%=rs("dia")%>&nbsp-&nbsp<%=rs("descricao")%></a></p></td>
  </tr>
  <tr> 
    <td height="14" colspan="2"><div align="center"><img src="linha.jpg" width="224" height="8"> 
      </div>
      <div align="center"></div></td>
  </tr>
</table>
<%
rs.movenext
loop
%>

pgmador · Outubro 9, 2003

Tente trocar o código do MENURAPIDO.ASP por este abaixo:

<%
Set DB = Server.CreateObject("ADODB.Connection")

DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados\banco.mdb"))

executar="select * from noticias order by id desc"
set rsMenu = DB.execute(executar)
%>


<%
dim i, cor
i = 0
do while not rsMenu.eof
i=i+1
if i mod 2 = 0 then cor = "#efefef" else cor = ""
%>
<table width="224" border="0" cellspacing="1">
 <tr bgcolor="<%=cor%>"> 
   <td width="69" align="center" valign="middle"><a href="ver.asp?id=<%=rsMenu("id")%>"><img src="<%=rsMenu("url")%>" width="65" height="65" border="0"></a></td>
   <td width="224" valign="top"><p align="justify"><strong><%=rsMenu("titulo")%></strong><br>
       <a href="ver.asp?id=<%=rsMenu("id")%>"><%=rsMenu("dia")%>&nbsp-&nbsp<%=rsMenu("descricao")%></a></p></td>
 </tr>
 <tr> 
   <td height="14" colspan="2"><div align="center"><img src="linha.jpg" width="224" height="8"> 
     </div>
     <div align="center"></div></td>
 </tr>
</table>
<%
rsMenu.movenext
loop
%>

O código acha que a variável "rs" que você está se referindo é o da notícia aberta.

[]'s

Nelson Soares

http://www.ondagospel.com.br

X.bArArA.X · Outubro 10, 2003

Vlewz, pgmador...!

não sabia desse detalhe!

Vlewz mesmo!

Entrar

Mostrar Resultado Junto Com A Notícia...

Pergunta

X.bArArA.X

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

pgmador

Link para o comentário

Compartilhar em outros sites

X.bArArA.X

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades