Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

OsvaldoB

Erro em código ASP para apagar registro

Por , em ASP Clássico

Recommended Posts

OsvaldoB    0

OsvaldoB
Postado

Tenho um código para apagar uns registros de um banco de dados access.Ele segue abaixo.Mas quando executo da esse erro.A página não pode ser exibida Há um problema com a página que você está tentando acessar e ela não pode ser exibida. --------------------------------------------------------------------------------Tente o seguinte:Abra a home page www.fesehf.org.br e procure links para a informação desejada. Clique no botão Atualizar ou tente novamente mais tarde.Clique em Pesquisar para procurar informações na Internet. Você também pode ver uma lista de sites relacionados. HTTP 500 - erro interno do servidor Internet Explorer Esse é o código que eu tenho..<%@ Language=VBScript %><%response.buffer=true%><HTML><BODY><%cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSourcecon.Execute("delete*from Noticias where id="&Request.querystring("id")&"")Response.Redirect"admin.asp"%></BODY></HTML>Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

TucaZ    0

TucaZ
Postado

O problema é que a página que você está redirecionando (admin.asp) não existe no servidor.Nessa linha:con.Execute("delete*from Noticias where id="&Request.querystring("id")&"")Você pode retirar o &"" final ficando:con.Execute("delete*from Noticias where id=" & Request.querystring("id"))

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

abra seu internet explorer, depois vai em ferramentas>opções de internet> aba avançadas....procure pela opção MOSTRAR ERROS DE HTTP AMIGÁVEIS e DESABILITE....ok?ai você ver[a qual é o erro memso...falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Penna    0

Penna
Postado

Fala o que o Carlos falou, fica melhor pra ver os erros... E acho que já vi um:

 

<%@ Language=VBScript %>

<%response.buffer=true%>

<HTML>

<BODY>

<%

cnpath="DBQ=" & Server.MapPath("noticias.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

 

Set Conn = Server.CreateObject("ADODB.Connection")

 

Conn.Open DataSource

con.Execute("delete*from Noticias where id="&Request.querystring("id")&"")

Response.Redirect"admin.asp"

%>

</BODY>

</HTML>

 

 

Response.Redirect"admin.asp"

Ta tudo junto, use assim:

Response.Redirect "admin.asp"

 

 

Provavelmete o erro seria, tipos incopativeis..

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

abra seu internet explorer, depois vai em ferramentas>opções de internet> aba avançadas....procure pela opção MOSTRAR ERROS DE HTTP AMIGÁVEIS e DESABILITE....ok?ai você ver[a qual é o erro memso...falows

Olha só o erro q ta dando agora.Microsoft VBScript runtime error '800a01a8' Object required: '' /nova/notas/apagarnoticia.asp, line 12

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

abra seu internet explorer, depois vai em ferramentas>opções de internet> aba avançadas....procure pela opção MOSTRAR ERROS DE HTTP AMIGÁVEIS e DESABILITE....ok?ai você ver[a qual é o erro memso...falows

Olha só o erro q ta dando agora.Microsoft VBScript runtime error '800a01a8' Object required: '' /nova/notas/apagarnoticia.asp, line 12

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

Conn.Open DataSource

con.Execute("delete*from Noticias where id="&Request.querystring("id")&"")

 

 

você abriu uma conexão com Conn e tenta executar com con?

 

 

falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

Conn.Open DataSource

con.Execute("delete*from Noticias where id="&Request.querystring("id")&"")

 

 

você abriu uma conexão com Conn e tenta executar com con?

 

 

falows

caras desculpe atrapalar de novo..

Mas mudo isso para agora quando cadastrar uma nova noticia ela aparece em cima e não em baixo como esta aparecendo agora.

 

Valeu..

 

<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

 

Set Conn = Server.CreateObject("ADODB.Connection")

 

Conn.Open DataSource

 

'Abre o Recordset

Set RS = Server.CreateObject( "ADODB.Recordset" )

RS.ActiveConnection = conn

RS.open "SELECT * FROM Noticias"

%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#FFFFFF" text="#000000">

<table width="324" border="0" cellspacing="0" cellpadding="0">

<%if not rs.eof then

while not rs.eof%>

<tr><td width="322"><ul><li>

<p style="line-height: 100%; word-spacing: 0; margin-top: -5; margin-bottom: -5"><font face="Verdana" size="1"><a href="ver.asp?id=<%=rs("id")%>" target="_blank"><%=Replace(rs("manchete"),chr(13),"<BR>")%><br></a></font></p>

</li></ul></td></tr>

<%rs.Movenext

wend

end if%>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

 

Set Conn = Server.CreateObject("ADODB.Connection")

 

Conn.Open DataSource

 

'Abre o Recordset

Set RS = Server.CreateObject( "ADODB.Recordset" )

RS.ActiveConnection = conn

RS.open "SELECT * FROM Noticias"

%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#FFFFFF" text="#000000">

<table width="324" border="0" cellspacing="0" cellpadding="0">

<%if not rs.eof then

while not rs.eof%>

<tr><td width="322"><ul><li>

<p style="line-height: 100%; word-spacing: 0; margin-top: -5; margin-bottom: -5"><font face="Verdana" size="1"><a href="ver.asp?id=<%=rs("id")%>" target="_blank"><%=Replace(rs("manchete"),chr(13),"<BR>")%><br></a></font></p>

</li></ul></td></tr>

<%rs.Movenext

wend

end if%>

</table>

</body>

</html>

veja o q tem diferente!!! ok?

 

falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Uma nova noticia acima da antiga?

RS.open "SELECT * FROM Noticias ORDER BY id DESC;"

Levando em consideração um campo autoincrement chamado ID em seu BD!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito