<% dim ape, nom, correo, obs, tel, prod, fecha dim conexionDB, rs ape = request.form("razsoc") nom = request.form("nombre") correo = request.form("email") tel = request.form("telefono") obs = request.form("observaciones") fecha = Now() validos = VerificarCampos prod = request.form("producto") if validos then curDir = Server.MapPath("Pagina_Italgroup.mdb") Set cnn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & curDir cnn.open strconn, , "271175" sql = "insert into Clientes (razsoc,nombre,email,telefono,observaciones,fecha,producto) values ('"&ape&"','"&nom&"','"&correo&"','"&tel&"','"&obs&"','"&fecha&"','"&prod&"')" cnn.Execute sql cnn.close Response.Write "Gracias por Contactarse con Italgroup S.R.L.!
" Response.Write "Los datos han sido guardados satisfactoriamente, le responderemos a la brevedad." end if Function VerificarCampos() VerificarCampos = true if ape="" then Response.write "El campo Apellido no puede ser vacío.
Presione el Botón Atrás de la Barra de su Navegador" VerificarCampos=False Exit Function end if if correo="" then if tel="" then Response.write "El campo Teléfono o E-mail deben ser completados.
Presione el Botón Atrás de la Barra de su Navegador" VerificarCampos=False Exit Function end if end if end function %>