<%@ LANGUAGE="VBSCRIPT" %> 
<!--#include virtual="/site/scripts/iProtect/loggedin.asp" -->

<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Set RS = Server.CreateObject("ADODB.RecordSet")
BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" 
conn.Open BdConn

sql = "DELETE * FROM agenda WHERE Codigo = "
sql = sql & Request.QueryString("Codigo")
Set RS = Conn.Execute(sql)

Response.Redirect "age_listagem.asp"
%>