<%
Dim DB, SQL, rs
Set DB = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.recordset")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb"))
elimina = Trim(Request.QueryString("elimina"))
if elimina = "si" then
id = Trim(Request.QueryString("id"))
SQL = "UPDATE contacto SET status = 'C' WHERE id = " & id
set rs = DB.Execute(SQL)
end if
SQL = "select * from contacto WHERE status = 'A'"
rs.open SQL,DB,3,3
%>
Comentarios