<% '====================================== nombre = Request.Form("nombre") apellido = Request.Form("apellido") dia = Request.Form("dia") mes = Request.Form("mes") anio = Request.Form("anio") nacion = Request.Form("nacion") email = Request.Form("email") domicilio = Request.Form("domicilio") ciudad = Request.Form("ciudad") codigo = Request.Form("codigo") telefono = Request.Form("telefono") universidad = Request.Form("universidad") carrera = Request.Form("carrera") cant_materias_aprobadas = Request.Form("cant_materias_aprobadas") promedio = Request.Form("promedio") recomienda = Request.Form("recomienda") 'temas de interes (checkboxes) a1 = Request.Form("a1") a2 = Request.Form("a2") a3 = Request.Form("a3") a4 = Request.Form("a4") a5 = Request.Form("a5") a6 = Request.Form("a6") a7 = Request.Form("a7") a8 = Request.Form("a8") a9 = Request.Form("a9") a10 = Request.Form("a10") a11 = Request.Form("a11") a12 = Request.Form("a12") '====================================== session("nombre") = nombre session("apellido") = apellido session("dia") = dia session("mes") = mes session("anio") = anio session("nacion") = nacion session("email") = email session("domicilio") = domicilio session("ciudad") = ciudad session("codigo") = codigo session("telefono") = telefono session("universidad") = universidad session("carrera") = carrera session("cant_materias_aprobadas") = cant_materias_aprobadas session("promedio") = promedio session("recomienda") = recomienda 'temas de interes (checkboxes) session("a1") = a1 session("a2") = a2 session("a3") = a3 session("a4") = a4 session("a5") = a5 session("a6") = a6 session("a7") = a7 session("a8") = a8 session("a9") = a9 session("a10") = a10 session("a11") = a11 session("a12") = a12 If nombre = "" or apellido = "" or dia = "" or mes = "" or anio = "" or nacion = "" or email = "" or domicilio = "" or ciudad = "" or codigo = "" or telefono = "" or universidad = "" or carrera = "" or cant_materias_aprobadas = "" or promedio = "" or recomienda = "" Then Response.Redirect "elepe.asp?m=1" End If If a1 = "" and a2 = "" and a3 = "" and a4 = "" and a5 = "" and a6 = "" and a7 = "" and a8 = "" and a9 = "" and a10 = "" and a11 = "" and a12 = "" Then Response.Redirect "elepe.asp?m=1&ti=0" End If '####################################################################################################### '####################################################################################################### '####################################################################################################### If a1 = "" Then a1 = "No" End If If a2 = "" Then a2 = "No" End If If a3 = "" Then a3 = "No" End If If a4 = "" Then a4 = "No" End If If a5 = "" Then a5 = "No" End If If a6 = "" Then a6 = "No" End If If a7 = "" Then a7 = "No" End If If a8 = "" Then a8 = "No" End If If a9 = "" Then a9 = "No" End If If a10 = "" Then a10 = "No" End If If a11 = "" Then a11 = "No" End If If a12 = "" Then a12 = "No" End If '####################################################################################################### '####################################################################################################### '####################################################################################################### fecha_nac = dia & "/" & mes & "/" & anio Body = "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" 'temas de interes '----------------- '----------------- Body = Body & "" '----------------- '----------------- Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" Body = Body & "" '============================================================================== Body = Body & "
Escuela Latinoamericana de Estudios Políticos y Económicos - ELEPE
Nombre/s
 "&Request.Form("nombre")&"
Apellido/s
 "&Request.Form("apellido")&"
Fecha Nac
 "&fecha_nac&"
Nacionalidad
 "&Request.Form("nacion")&"
E-mail
 "&Request.Form("email")&"
Domiciio
 "&Request.Form("domicilio")&"
Ciudad
 "&Request.Form("ciudad")&"
Código
 "&Request.Form("codigo")&"
Teléfono
 "&Request.Form("telefono")&"
Universidad
 "&Request.Form("universidad")&"
Carrera
 "&Request.Form("carrera")&"
Cant. materias aprobadas
 "&Request.Form("cant_materias_aprobadas")&"
Promedio
 "&Request.Form("promedio")&"
Recomienda
 "&Request.Form("recomienda")&"
TEMAS DE INTERES
Programa de Voluntariado
 "&a1&"
Ciclo de Actualidad Regional
 "&a2&"
Seminario 'Periodismo económico y política latinoamericana'
 "&a3&"
Seminario 'Periodismo, democracia y dictadura en América Latina: Los viejos y los nuevos desafíos'
 "&a4&"
Seminario 'Derechos humanos y compromiso internacional con la apertura democrática en Cuba'
 "&a5&"
Presentaciones de libros
 "&a6&"
Ciclo de audiovisuales
 "&a7&"
Conferencias
 "&a8&"
Seminarios y jornadas internacionales
 "&a9&"
Actividades del Proyecto ProCubaLibre
 "&a10&"
" 'Response.End() '####################### Comienza Respuesta Suscripcion E INSERT ################################################ '####################### Comienza Respuesta Suscripcion E INSERT ################################################ '####################### Comienza Respuesta Suscripcion E INSERT ################################################ '####################### Comienza Respuesta Suscripcion E INSERT ################################################ data_source_elepe = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../../db/elepe_2006.mdb") dia = Request.Form("dia") mes = Request.Form("mes") anio = Request.Form("anio") fecha_nac_en = mes &"/"& dia &"/"& anio sql_insert = "insert into suscriptos_elepe_2006 (nombre, apellido, fecha_nac, nacion, email, domicilio, ciudad, codigo, telefono, universidad, carrera, cant_materias_aprobadas, promedio, recomienda, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 ) values ('" & nombre & "', '" & apellido & "', '" & fecha_nac_en & "', '" & nacion & "', '" & email & "', '" & domicilio & "', '" & ciudad & "', '" & codigo & "', '" & telefono & "', '" & universidad & "', '" & carrera & "', '" & cant_materias_aprobadas & "', '" & promedio & "', '" & recomienda & "', '"& a1 &"', '"& a2 &"', '"& a3 &"', '"& a4 &"', '"& a5 &"', '"& a6 &"', '"& a7 &"', '"& a8 &"', '"& a9 &"', '"& a10 &"', '"& a11 &"', '"& a12 &"')" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source_elepe con.Execute sql_insert con.Close Set con = Nothing '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ Set MandoMails = Server.CreateObject("CDONTS.NewMail") MandoMails.From = nombre &" "& apellido &" <"&email&">" MandoMails.To = "centro@cadal.org" MandoMails.Bcc = "gabriel@cadal.org;webmaster@cadal.org;belen@cadal.org;hernan@cadal.org" MandoMails.Subject = "Inscripción ELEPE" MandoMails.BodyFormat = 0 '(0=HTML 1=Text) MandoMails.MailFormat = 0 'Set the mail format (0=MIME 1=Text) MandoMails.Body = Body MandoMails.Importance = 1 'Importance (0=Low, 1=Normal, 2=High) MandoMails.Send Set MandoMails = Nothing 'Close the server object '################################################################################################ '################################################################################################ '################################################################################################ variable_para_el_page_title = 1 titulo_pagina = "Escuela Latinoamericana de Estudios Políticos y Económicos" %>
Escuela Latinoamericana de Estudios Políticos y Económicos
<% 'Response.Write Body 'Response.Write "

SQL:

"&sql_insert&"" Response.Write "



Gracias " & nombre &" "& apellido & ".

Pronto nos pondremos en contacto con Usted.















" %> <% 'esta variable la declaro para decirle a la estadistica por donde entro el visitante, ok? por_donde = "ELEPE" %>




<% 'esta variable la declaro para decirle a la estadistica por donde entro el visitante, ok? 'por_donde = categoria 'en realidad hay que poner como en ProCuba el id_categoria %>