<%@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_pre_congreso_hands_en_laparo, curso_estimulacion_de_ovulacion, curso_pre_congreso_de_endometriosis, curso_pre_congreso_IFFS, curso_pre_congreso_Psicologia, simposios_de_la_industria, 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_pre_congreso_hands_en_laparo = Request.Form("curso_pre_congreso_hands_en_laparo") curso_estimulacion_de_ovulacion = Request.Form("curso_estimulacion_de_ovulacion") curso_pre_congreso_de_endometriosis = Request.Form("curso_pre_congreso_de_endometriosis") curso_pre_congreso_IFFS = Request.Form("curso_pre_congreso_IFFS") curso_pre_congreso_Psicologia = Request.Form("curso_pre_congreso_Psicologia") simposios_de_la_industria = Request.Form("simposios_de_la_industria") 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_pre_congreso_hands_en_laparo")=curso_pre_congreso_hands_en_laparo rst("curso_estimulacion_de_ovulacion")=curso_estimulacion_de_ovulacion rst("curso_pre_congreso_de_endometriosis")=curso_pre_congreso_de_endometriosis rst("curso_pre_congreso_IFFS")=curso_pre_congreso_IFFS rst("curso_pre_congreso_Psicologia")=curso_pre_congreso_Psicologia rst("simposios_de_la_industria")=simposios_de_la_industria 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 dim mailobj Set mailobj = Server.CreateObject("CDONTS.NewMail") mailobj.from = request.form("mail_autor") mailobj.to = "cdiaz@nacemultimedial.com.ar" mailobj.subject = "Inscripto Congreso SAMeR" cuerpo = "

Se ha producido nuevo Inscripto Congreso SAMeR.:
" cuerpo = cuerpo & "-------------------------------------------" & "
" cuerpo = cuerpo & "Apellido: " & request.form("apellido") & "
" cuerpo = cuerpo & "Mail: " & request.form("mail") & "
" mailobj.mailFormat = 0 mailobj.bodyformat = 0 mailobj.body = cuerpo mailobj.send set mailobj = nothing response.redirect ("gracias_insc.asp") %>