<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.charset="utf-8"%> <% Response.Buffer = true dim cnn,rst ' Creamos la conexin a la base de datos sin DSN set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.RecordSet") cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bases/inscripcion.mdb") sqltext = "SELECT * FROM inscriptos" rst.Open sqltext,cnn,3,3 'Recogemos los datos y validamos que no haya ningun campo vacio dim id, fecha, apellido, nombre, edad, telefono, ciudad, provincia, pais, mail, mail_reconfirma, institucion, profesion, especialidad, curso_interactivo_iffs, curso_clinica, curso_cirugia_imagenes, curso_biologia, curso_intracongreso_Psicologia, curso_intracongreso_enfermeras, congreso id = Request.Form("id") apellido = Request.Form("apellido") nombre = Request.Form("nombre") edad = Request.Form("edad") telefono = Request.Form("telefono") ciudad = Request.Form("ciudad") provincia = Request.Form("provincia") pais = Request.Form("pais") mail = Request.Form("mail") mail_reconfirma = Request.Form("mail_reconfirma") institucion = Request.Form("institucion") profesion = Request.Form("profesion") especialidad = Request.Form("especialidad") curso_interactivo_iffs = Request.Form("curso_interactivo_iffs") curso_clinica = Request.Form("curso_clinica") curso_cirugia_imagenes = Request.Form("curso_cirugia_imagenes") curso_biologia = Request.Form("curso_biologia") curso_intracongreso_Psicologia = Request.Form("curso_intracongreso_Psicologia") curso_intracongreso_enfermeras = Request.Form("curso_intracongreso_enfermeras") congreso = Request.Form("congreso") fecha = Date 'Si est todo correcto, procedemos a ingresar los datos a la base de datos rst.AddNew rst("apellido")=apellido rst("nombre")=nombre rst("edad")=edad rst("telefono")=telefono rst("ciudad")=ciudad rst("provincia")=provincia rst("ciudad")=ciudad rst("pais")=pais rst("mail")=mail rst("mail_reconfirma")=mail_reconfirma rst("institucion")=institucion rst("profesion")=profesion rst("especialidad")=especialidad rst("curso_interactivo_iffs")=curso_interactivo_iffs rst("curso_clinica")=curso_clinica rst("curso_cirugia_imagenes")=curso_cirugia_imagenes rst("curso_biologia")=curso_biologia rst("curso_intracongreso_Psicologia")=curso_intracongreso_Psicologia rst("curso_intracongreso_enfermeras")=curso_intracongreso_enfermeras rst("congreso")=congreso rst.update ' Recuperar el ltimo ID ' ---------------------- Set cmd = Server.CreateObject("ADODB.Command") cmd.activeconnection = cnn cmd.commandtext = "SELECT * FROM inscriptos" Set rs = Server.CreateObject("ADODB.recordset") set rs = cmd.execute() rs.MoveFirst fecha2 = fecha ' Guardamos el dia, mes y ao en variables dia=day(fecha2) mes=month(fecha2) ano=year(fecha2) fecha3 = dia &"/" & mes &"/" &ano ' saque el envio de mail de aviso response.redirect ("gracias_insc.asp") %>