<% 
   Dim oConn,strSQL 
    
   Set oConn = Server.CreateObject("ADODB.Connection") 

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("agenda.mdb")) 

   nmb= Request("iNomb")
   
   strSQL = "DELETE * FROM agenda WHERE nombre = '" & nmb & "'"
   
   oConn.Execute(strSQL) 
   oConn.Close 
   set oConn = nothing 
   
%>