Sistema de Notícias

[hunger 0]

Fala comunidade....

 

estou com um probleminha, como não entendo mto disso aqui, conto com a ajuda de vcs!

 

O erro é o seguinte:

 

Tipo de erro:

ADODB.Field (0x800A0BCD)

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

/noticias/Lista.asp, line 52

 

 

O código da página é o seguinte:

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Conexao.asp" --><%Dim RS_NoticiasDim RS_Noticias_numRowsSet RS_Noticias = Server.CreateObject("ADODB.Recordset")RS_Noticias.ActiveConnection = MM_Conexao_STRINGRS_Noticias.Source = "SELECT ID, STATUS, TITULO_NOTICIA FROM Noticias ORDER BY STATUS ASC"RS_Noticias.CursorType = 0RS_Noticias.CursorLocation = 2RS_Noticias.LockType = 1RS_Noticias.Open()RS_Noticias_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0RS_Noticias_numRows = RS_Noticias_numRows + Repeat1__numRows%><table width="59%" border="0">  <tr>    <td><div align="center"><strong><font size="2" face="Verdana">ID</font></strong></div></td>   <td><div align="center"><strong><font size="2" face="Verdana">Título</font></strong></div></td>   <td><div align="center"><strong><font size="2" face="Verdana">Status</font></strong></div></td>   <td colspan="2"><div align="center"><strong><font size="2" face="Verdana">Ação</font></strong></div></td> </tr> <tr>    <td><div align="center">        <% While ((Repeat1__numRows <> 0) AND (NOT RS_Noticias.EOF)) %>       <font size="2" face="Verdana"><%=(RS_Noticias.Fields.Item("ID").Value)%></font>        <%  Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_Noticias.MoveNext()Wend%>     </div></td>   <td>                     +++++++++++++++++++++++ a linha 52 está abaixo<div align="center"><font size="2" face="Verdana"><%=(RS_Noticias.Fields.Item("TITULO_NOTICIA").Value)%></font></div></td>   <td><div align="center"><font size="2" face="Verdana"><%=(RS_Noticias.Fields.Item("STATUS").Value)%></font></div></td>   <td><div align="center"><font size="2" face="Verdana"></font></div></td>   <td><div align="center"><font size="2" face="Verdana"></font></div></td> </tr></table><%RS_Noticias.Close()Set RS_Noticias = Nothing%>

Estou tentando aqui, não consegui ainda, agradeço desde já a ajuda de vcs!

 

Abço,

 

Marcos Hunger.

[BigPaul 0]

A mensagem significa que não retornou registro de sua consulta e você está tentando usar esse resultado, que é nulo, em alguma operação

 

Como voce não apontou a linha 52 imagino que o erro seja aqui:

 

Repeat1__numRows <> 0

 

Mude para

 

Repeat1__numRows > 0

 

E veja se funciona

 

[hunger 0]

fala big paul...entao, eu apontei qual é a linha 52 sim... de uma olhada mais no final do codigo, coloquei varios sinais de "+" para identificar.mesmo assim, vou fazer o q você falou agora e já retorno.valeu pela ajuda!!!marcos hunger.

[hunger 0]

entao, tirando o "<>" e colocando apenas ">", a página não deu mais erro. Porém, só mostrou um resultado (ao invés dos 3 cadastrados) e não apareceu o dado deste campo onde coloquei o repeat region...veja agora que você sabe qual é a linha 52, se identifica o problema.... enquanto isso continuo tentando aqui...brigadao velho!marcos hunger.

[hunger 0]

bom, na gambiarra consegui fazer aqui...obgdo a quem ajudou!abço,marcos hunger.