<% If Request.Form <> "" Then Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb")) TBL.Open "Datos" ,DB, 1, 2 TBL.AddNew TBL("Nombre") = Request.Form("Nombre") TBL("Apellido") = Request.Form("Apellido") TBL("Empresa") = Request.Form("Empresa") TBL("Email") = Request.Form("Email") TBL("Direccion") = Request.Form("Direccion") TBL("Localidad") = Request.Form("Localidad") TBL("Provincia") = Request.Form("Provincia") TBL("Pais") = Request.Form("Pais") TBL("Telefono") = Request.Form("Telefono") TBL("Consulta") = Request.Form("Consulta") TBL.Update TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing Response.Redirect "Gracias.asp" else %>
Nota: todos los campos del formulario son necesarios para un correcto registro, en caso de tener que dejar un campo vacío por no tener la información, solicitamos lo complete con un guión (-). Muchas gracias.
Nombre:    
Apellido:    
Empresa:    
E-mail:    
Dirección:    
Localidad:    
Provincia:    
País:    
Teléfono:    
Consultas:    

<% End If %>