Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Quando Apaga Todas Materias


Homer-Simpson

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

  • 0
<%
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
%>

Link para o comentário
Compartilhar em outros sites

  • 0

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

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

%>

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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??

Link para o comentário
Compartilhar em outros sites

  • 0
<%
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
%>

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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]

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...