pessoal vou logo avisando... sou muito leigo em asp... hehehehe..
eu peguei um sisteminha simples de noticias em asp... soh que na admin das noticias tem um link em cada noticia para apaga-la... aí é seguido para esta pagina: apagarnoticia.asp
Código:
[code=auto:0]
<%@ 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"not_admin.asp"
%>
</BODY>
</HTML>
esta página nao abre... aparece uma mensagem: HTTP 500 - erro interno do servidor
Internet Explorer
queria saber de vocês o que está errado no código da página... e se tem um outro modo de excluir a noticia...
Agradeço desde já..
Apagar Noticias
Started By megapixel, 18/08/2004, 16:35
4 replies to this topic
#2
maresia
-
- Usuários
-
- 284 posts
12 Horas
- Sexo:Não informado
Posted 18/08/2004, 18:39
Sim, vc pode criar um objeto e depois deletá-lo:
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/banco.mdb") & ";"
set conn = Server.CreateObject("ADODB.Connection")
strsql = "SELECT * FROM [nomes] WHERE [Código]=" & tkey
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
rs.delete
rs.close
conn.Close
Set conn = Nothing
Response.Clear
response.redirect "ok.asp"
Noite Afora - Prá quem troca o dia pela noite
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
#3
megapixel
-
- Usuários
-
- 6 posts
Novato no fórum
- Sexo:Não informado
Posted 18/08/2004, 20:00
valeu maresia....
mas o código ainda não funciona... continua dando o mesmo erro... confere se o codigo tah correto:
o que vocês puderem fazer eu fico muito grato!
mas o código ainda não funciona... continua dando o mesmo erro... confere se o codigo tah correto:
<%@ Language=VBScript %>
<%response.buffer=true%>
<HTML>
<HEAD>
<title>titulo</title>
</HEAD>
<BODY>
<%
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("noticias.mdb") & ";"
set conn = Server.CreateObject("ADODB.Connection")
strsql = "SELECT * FROM Noticias WHERE id="&Request.querystring("id") & tkey"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
rs.delete
rs.close
conn.Close
Set conn = Nothing
Response.Clear
response.redirect "not_admin.asp"
%>
</BODY>
</HTML>
o que vocês puderem fazer eu fico muito grato!
#4
lella
-
- Usuários
-
- 13 posts
Novato no fórum
- Sexo:Feminino
Posted 18/08/2004, 21:20
var_id=Request.querystring("id")
con.Execute("delete * from Noticias where id='"& var_id &"'")
Não se esqueça que a pagina anterior deve estar passando o parametro da query requerida.
se for numero retira aspas simples ' '
Bjus
Edição feita por: lella, 18/08/2004, 21:22.
#5
maresia
-
- Usuários
-
- 284 posts
12 Horas
- Sexo:Não informado
Posted 18/08/2004, 23:50
Muda essa linha... É que no exemplo que eu passei, eu peguei um script pronto aqui....
Tenta agora....
strsql = "SELECT * FROM Noticias WHERE id="&Request.querystring("id")"
Tenta agora....
Noite Afora - Prá quem troca o dia pela noite
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
