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

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

   nmb= Request("iNomb")
   tlf= Request("iTelf")
   
   strSQL = "insert into agenda (nombre, telefono) values ('" & nmb & "','" & tlf & "')"
   
   oConn.Execute(strSQL) 
   oConn.Close 
   set oConn = nothing 
   
%>