<% 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") celular = Request.Form("celular") universidad = Request.Form("universidad") carrera = Request.Form("carrera") turno = Request.Form("turno") cant_materias_aprobadas = Request.Form("cant_materias_aprobadas") promedio = Request.Form("promedio") trabaja = Request.Form("trabaja") conoce_cadal = Request.Form("conoce_cadal") areas = Request.Form("areas") ref_nombre = Request.Form("ref_nombre") ref_ocupacion = Request.Form("ref_ocupacion") ref_contacto = Request.Form("ref_contacto") pago = Request.Form("pago") 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 = "" Then Response.Redirect "plea_2008.asp?m=1" End If fecha_nac_es = dia & "/" & mes & "/" & anio 'encabezados... bodi = "CADAL" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "
" 'tabla contenido del mail... bodi = bodi & vbcrlf & "
Miembro de la Red Interamericana para la Democracia y del Network of Democracy Research Institutes

English Version
Suscripción Gratuita
centro@cadal.org

" bodi = bodi & vbcrlf & "
" 'tabla comienza la data... bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "" bodi = bodi & vbcrlf & "
Solicitud de Inscripción al Programa Latinoamericano de Extensión Académica
Nombre/s
 "&nombre&"
Apellido/s
 "&apellido&"
Fecha Nac
 "&fecha_nac_es&"
Nacionalidad
 "&nacion&"
E-mail
 "&email&"
Domicilio
 "&domicilio&"
Ciudad
 "&ciudad&"
Código
 "&codigo&"
Teléfono Particular
 "&telefono&"
Teléfono Celular
 "&celular&"
Universidad
 "&universidad&"
Carrera
 "&carrera&"
Turno
 "&turno&"
Cant. materias aprobadas
 "&cant_materias_aprobadas&"
Promedio
 "&promedio&"
Trabaja
 "&trabaja&"
Como conoció CADAL
"&conoce_cadal&" 
Areas de interés
"&areas&" 
Nombre de la referencia
"&ref_nombre&" 
Nombre de la referencia
"&ref_ocupacion&" 
Ocupación de la referencia
"&ref_contacto&" 
Forma de pago
"&pago&" 
" 'links bodi = bodi & "
" bodi = bodi & "

Artículos / " bodi = bodi & "Documentos / " bodi = bodi & "Entrevistas / " bodi = bodi & "Informes / " bodi = bodi & "Libros / " bodi = bodi & "Reseñas / " bodi = bodi & "Videos
" bodi = bodi & "Institucionales / " bodi = bodi & "Eventos / " bodi = bodi & "ELEPE / " bodi = bodi & "Membresías / " bodi = bodi & "Suscripción Gratuita / " bodi = bodi & "English Version

" bodi = bodi & "
Copyright CADAL "&Year(Date)&". Todos los derechos reservados.
" '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ Set MandoMails = Server.CreateObject("CDONTS.NewMail") MandoMails.From = nombre &" "& apellido &" <"&email&">" MandoMails.To = email MandoMails.To = "webmaster@cadal.org" 'MandoMails.Bcc = "gabriel@cadal.org;centro@cadal.org;webmaster@cadal.org;hernan@cadal.org" MandoMails.Subject = "Programa Latinoamericano de Extensión Académica 2008" MandoMails.BodyFormat = 0 '(0=HTML 1=Text) MandoMails.MailFormat = 0 'Set the mail format (0=MIME 1=Text) MandoMails.Body = Bodi MandoMails.Importance = 1 'Importance (0=Low, 1=Normal, 2=High) MandoMails.Send Set MandoMails = Nothing 'Close the server object '################################################################################################ '################################################################################################ '################################################################################################ Response.Write bodi 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 into elepe_ciclo_2007 " sql = sql & "(nombre, apellido, fecha_nac, nacion, email, domicilio, ciudad, codigo, telefono, celular, universidad, carrera, turno, cant_materias_aprobadas, promedio, recomienda, trabaja, conoce_cadal, programas_interesan, porque_participar) " sql = sql & " values " sql = sql & "('" & nombre & "', '" & apellido & "', #" & fecha_nac_en & "#, '" & nacion & "', '" & email & "', '" & domicilio & "', '" & ciudad & "', '" & codigo & "', '" & telefono & "', '" & celular & "', '" & universidad & "', '" & carrera & "', '" & turno & "', '" & cant_materias_aprobadas & "', '" & promedio & "', '" & recomienda & "', '" & trabaja & "', '" & conoce_cadal & "', '" & programas_interesan & "', '" & porque_participar & "')" 'Response.Write sql 'Response.End() Set con = Server.CreateObject("ADODB.Connection") con.Open data_source_elepe 'con.Execute sql con.Close Set con = Nothing '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ Set MandoMails = Server.CreateObject("CDONTS.NewMail") MandoMails.From = nombre &" "& apellido &" <"&email&">" MandoMails.To = email MandoMails.Cc = "webmaster@cadal.org" 'MandoMails.Bcc = "gabriel@cadal.org;centro@cadal.org;webmaster@cadal.org;hernan@cadal.org" MandoMails.Subject = "Ciclo de Actualidad Regional - ELEPE 2007" MandoMails.BodyFormat = 0 '(0=HTML 1=Text) MandoMails.MailFormat = 0 'Set the mail format (0=MIME 1=Text) MandoMails.Body = Bodi 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 = "Ciclo de Actualidad Regional 2007" %>
ELEPE - Ciclo de Actualidad Regional 2007
<% 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" %>