Erro Quando Apaga Todas Materias

Homer-Simpson · Julho 26, 2006

Ai pessoal peguei esse programinha na NET muito bom mas tem uma bronca quando eu apago todas as materias dá esse erro.

Na Inetrnet dá esse erro

erro '80020009'

/chacalnews/noticia.asp, line 152

E no IIS dá esse

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.

/site/2006/site/chacalnews/enviar.asp, line 44

Nessa linha está esse código

<%

AbreConexao

If Request.form("enviado") = "sim" then

SQL = "SELECT * FROM noticias ORDER BY id DESC"

Set rs = Conexao.Execute(SQL)

noticia1 = rs("id")

noticia2 = noticia1 + 1

noticia = replace(request.form("noticia"), "'", "''")

noticiad = replace(noticia, chr(13), "<br>")

alguém pode dá uma luz?

.Andreia. · Julho 26, 2006

<%
AbreConexao
If Request.form("enviado") = "sim" then
SQL = "SELECT * FROM noticias ORDER BY id DESC"
Set rs = Conexao.Execute(SQL)

if rs.eof then
response.write "não existem noticias"
else
noticia1 = rs("id")
noticia2 = noticia1 + 1

noticia = replace(request.form("noticia"), "'", "''")
noticiad = replace(noticia, chr(13), "<br>")

end if
%>

Homer-Simpson · Julho 27, 2006

------------------------------------------------------------------------------------------

Andreia coloquei o código que você sugeriu dai ele veio com esse erro agora na página index.asp

Tipo de erro:

(0x80020009)

Exceção.

site/2006/site/chacalnews/index.asp, line 95

------------------------------

es o código nessa linha

------------------------------

<%

intRecsPerPage = ultimos

AbreConexao

set rs=Server.CreateObject("ADODB.Recordset")

sSQL="SELECT * FROM noticias ORDER BY id DESC"

rs.Open sSQL, Conexao,3,3

rs.PageSize=intRecsPerPage

for intRecord=1 to rs.PageSize

If Len(rs("assunto")) < 25 Then

Resumo = rs("assunto")

Else

Resumo = Mid(rs("assunto"),1,140) & "..."

End If

%>

.Andreia. · Julho 27, 2006

você tem que colocar o codigo antes da tag <title> porque no começo ela ainda não tem valor nenhum. Qual exatamente é a linha 95? Isso está parecendo problema não relacionado com o title...

Homer-Simpson · Julho 28, 2006

Andreia a linha 95 é essa

If Len(rs("assunto")) < 25 Then

_______________________________________

Abixo o restante do código dessa linha

95 If Len(rs("assunto")) < 25 Then

96 Resumo = rs("assunto")

97 Else

98 Resumo = Mid(rs("assunto"),1,140) & "..."

99 End If

100 %>

________________________________________

Obrigado pela atenção!

.Andreia. · Julho 28, 2006

É estranho.. essa linha está após o trecho:

if rs.eof then
response.write "não existem noticias"

?? Ou então confirme se está vindo dados dos banco do campo assunto

marcos_804 · Julho 28, 2006

Use este codigo não esta dando erro e eu acabei de criar... vai ser bem facil de adaptar e usar... alem do mais voce pode usar uma paginacao pois ele já tem paginacao...

falou espero que ajude

<%
tamanhoDaPagina = 100  'Numero de impressoes por pagina
pagina = request.QueryString("pagina")   'Numero da pagina que vai vir pela string do browser.
    if pagina = "" OR Not IsNumeric(pagina) then
            pagina = int(1)
        else
            pagina = int(pagina)
    end if




set rs = server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("x5_v1.0/includes/X5-2003.mdb")




rs.Open "SELECT * FROM TB_Alunos ORDER BY Aluno ASC", DSN, 3, 3

    paginas = int(rs.RecordCount/tamanhoDaPagina)
        if (rs.RecordCount MOD tamanhoDaPagina) <> 0 then
            paginas = paginas + 1
            else
            paginas = paginas
        end if
        

            
        
    rs.PageSize = tamanhoDaPagina
    rs.AbsolutePage = pagina
    



    '=== Exibindo os arquivos que forem encontrados no banco. Se não tiver arquivo nenhum erro sera gerado
    for x = 1 to tamanhoDaPagina
        if rs.EOF then exit for
        
            if len(rs("Aluno")) < len(11) then
                response.Write rs("Aluno") &"<br>"
            else
                response.Write left(rs("Aluno"),140) &".<br>"
            end if
            
            
        rs.MoveNext
    next
%>

<!--Mostra as paginas-->
<%for x = 1 to paginas
    response.Write "<a href=""?pagina="& x &""">"& x &"</a> "
next%>

... Espero ter ajudado... ate dpois

Homer-Simpson · Agosto 2, 2006

Ai pessoa quebrei a cabeça e nada algum tem uma ideia por que

ele dá eros ao apagar todas as materia?? Isso significa que o banco de dados não pode ficar vazio

mas por que??

jefmolino · Agosto 2, 2006

Homer, eu já tive esse problema comigo, não é só quando for apagado todos os registros, mas também quando for a primeira vez que ele for aberto para vizualizar sem ter nada incluído (ou seja, sempre que ele estiver vazio).

Eu já resolvi isso, mas como parei de mexer com ASP, não me recordo dele aqui no momento, tentarei ver como resolvi ele em casa e posto aqui novamente...

É algo relacionado a verificar se ele está vazio...

Tipo... if(rs.eof AND rs.bof) Then...

Entenderam??

Marcos-rj · Agosto 2, 2006

O erro está aqui:

if rs.eof then
response.write "não existem noticias"
else

é assim:

if rs.bof then
response.write "não existem noticias"
else

É BOF e não EOF

Homer-Simpson · Agosto 3, 2006

jefmolino, realmente é esse o erro que está dando mesmo se o banco de dados estiver vazio da esse erro, e se você envia uma nova noticias ele não grava no banco de dados.

Marcos-rj Valeu a dica mas ainda continua a dá erro.

Marcos-rj · Agosto 3, 2006

Estranho, colocou onde?

tenta assim

if not rs.eof then
response.write "não existem noticias"
else

.Andreia. · Agosto 3, 2006

<%
intRecsPerPage = ultimos
AbreConexao

set rs=Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM noticias ORDER BY id DESC"
rs.Open sSQL, Conexao,3,3

if rs.recordcount = 0 then
 response.write "não existem noticias cadastradas"
else
rs.PageSize=intRecsPerPage
for intRecord=1 to rs.PageSize 

If Len(rs("assunto")) < 25 Then
Resumo = rs("assunto")
Else
Resumo = Mid(rs("assunto"),1,140) & "..."
End If
end if
%>

Homer-Simpson · Agosto 4, 2006

Andreaia_sp ele agora deu esse erro

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 103

end if

tinha dois

End if

end if

Mesmo tirando um ainda dá esse erro

Instrução esperada

/sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 103

end if

QUE BRONCA EU ARRUMEI PARA vocês HEIM , AGRADEÇO MUITO A PACIÊNCIA.

kuroi · Agosto 4, 2006

faltou o next:

<%
intRecsPerPage = ultimos
AbreConexao

set rs=Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM noticias ORDER BY id DESC"
rs.Open sSQL, Conexao,3,3

if rs.recordcount = 0 then
response.write "não existem noticias cadastradas"
else
rs.PageSize=intRecsPerPage
for intRecord=1 to rs.PageSize

If Len(rs("assunto")) < 25 Then
Resumo = rs("assunto")
Else
Resumo = Mid(rs("assunto"),1,140) & "..."
End If
Next
end if
%>[/code]

Homer-Simpson · Agosto 4, 2006

ele agoar deu isso.

'Next' inesperado

/sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 113

kuroi · Agosto 4, 2006

como ficou seu codigo?

.Andreia. · Agosto 4, 2006

esse é seu codigo todo ou só um trecho?

Marcos-rj · Agosto 4, 2006

Descobri qual é o erro, já vou postar!

O sistema de noticias que você está usando é o ChacalNews Certo?

Bom, resolvi pegar o sistema p/ descobrir onde estava o erro, vamos lá:

O erro está neste ponto do código:

noticia1 = rs("id")
noticia2 = noticia1 + 1

Quando você cadastra uma noticia ele te dá o seguinte link para ver a noticia cadastrada

<a href="noticia.asp?id=<%=noticia2%>"><B>A</B>qui <b>P</b>ara ver somente a que você postou</font>

O que ocasiona o erro?

Ele pega o ID da noticia cadastrada e adiciona +1, por isso dá o erro, a noticia tem ID=5 ele adiciona 1 da ID=6 que não existe!

Segue link para download do sistema com o problema resolvido.

download do sistema

Homer-Simpson · Agosto 4, 2006

CARA você REALMENTE ME AJUDOU MUITO É ISSO MESMO AGORA ESTÁ TUDO OK

OBRIGADÃOOOOOO

Entrar

Erro Quando Apaga Todas Materias

Pergunta

Link para o comentário

Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns