Mostrar Resultado Junto Com A Notícia...

X.bArArA.X · October 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 · October 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 · October 10, 2003

Vlewz, pgmador...!

não sabia desse detalhe!

Vlewz mesmo!

Sign In

Mostrar Resultado Junto Com A Notícia...

Question

X.bArArA.X

Link to comment

Share on other sites

2 answers to this question

Recommended Posts

pgmador

Link to comment

Share on other sites

X.bArArA.X

Link to comment

Share on other sites

Join the conversation

Forum Statistics

Browse

Activity