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

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos.mdb")) 
    
   strSQL = "insert into prueba (Nombre, Apellidos) values ('" & Request.Form("Nombre") & "','" & Request.Form("Apellidos") & "')" 
   oConn.Execute(strSQL) 
   oConn.Close 
   set oConn = nothing 
    
   Response.Redirect("10.asp") 
%>