<% 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") 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") motivos_interesa_beca = Request.Form("motivos_interesa_beca") actividades_interesan = Request.Form("actividades_interesan") actividades_interesan = Replace(actividades_interesan,",","
") actividades_interesan = Replace(actividades_interesan,"'","") informes = Request.Form("informes") informes = Replace(informes,",","
") informes = Replace(informes,"'","") documentos = Request.Form("documentos") documentos = Replace(documentos,",","
") documentos = Replace(documentos,"'","") capacitacion = Request.Form("capacitacion") capacitacion = Replace(capacitacion,",","
") capacitacion = Replace(capacitacion,"'","") voluntariado = Request.Form("voluntariado") voluntariado = Replace(voluntariado,",","
") voluntariado = Replace(voluntariado,"'","") ejercera = Request.Form("ejercera") fuente_info = Request.Form("fuente_info") fuente_info = Replace(fuente_info,",","
") tema_politico_interesa = Request.Form("tema_politico_interesa") tema_politico_interesa = Replace(tema_politico_interesa,",","
") ubicaCADAL = Request.Form("ubicaCADAL") 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 "default.asp?m=1" End If fecha_nac_es = dia & "/" & mes & "/" & anio '####################### 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 becas_2011 " sql = sql & "(nombre, apellido, fecha_nac, nacion, email, domicilio, ciudad, codigo, telefono, universidad, carrera, turno, cant_materias_aprobadas, promedio, trabaja, conoce_cadal, motivos_interesa_beca, actividades_interesan, informes, documentos, capacitacion, voluntariado, ejercera, fuente_info, tema_politico_interesa, ubicaCADAL ) " sql = sql & " values " sql = sql & "('" & nombre & "', '" & apellido & "', #" & fecha_nac_en & "#, '" & nacion & "', '" & email & "', '" & domicilio & "', '" & ciudad & "', '" & codigo & "', '" & telefono & "', '" & universidad & "', '" & carrera & "', '" & turno & "', '" & cant_materias_aprobadas & "', '" & promedio & "', '" & trabaja & "', '" & conoce_cadal & "', '" & motivos_interesa_beca & "', '" & actividades_interesan & "', '" & informes & "', '" & documentos & "', '" & capacitacion & "', '" & voluntariado & "', '" & ejercera & "', '" & fuente_info & "', '" & tema_politico_interesa & "', '" & ubicaCADAL & "')" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source_elepe con.Execute sql con.Close Set con = Nothing '####################### TERMINA INSERT ################################################ '####################### TERMINA INSERT ################################################ '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 & "
Solicitud de Beca Universitaria de CADAL
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&"
Universidad
 "&universidad&"
Carrera
 "&carrera&"
Turno
 "&turno&"
Cant. materias aprobadas
 "&cant_materias_aprobadas&"
Promedio
 "&promedio&"
Trabaja
 "&trabaja&"
Como conoció CADAL
"&conoce_cadal&" 
¿Cuáles son las oportunidades de voluntariado de CADAL
que más le interesan?
"&voluntariado&" 
¿Qué actividad quiere ejercer en el futuro?
"&ejercera&" 
¿Cuál es su principal fuente de información diaria?
"&fuente_info&" 
¿Dónde ubicaría políticamente a CADAL?
"&ubicaCADAL&" 
Motivos por los cuales le interesa concursar por la Beca Universitaria de CADAL
"&motivos_interesa_beca&" 
" '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 = "CADAL " 'MandoMails.To = email 'MandoMails.Bcc = "gabriel@cadal.org;centro@cadal.org;webmaster@cadal.org;hernan@cadal.org" ''MandoMails.Bcc = "webmaster@cadal.org" 'MandoMails.Subject = "Solicitud de Beca Universitaria de CADAL" '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 Set mailer = Server.CreateObject ("SMTPsvg.Mailer") mailer.FromName = "CADAL" mailer.FromAddress = "centro@cadal.org" mailer.Subject = "Solicitud de Beca Universitaria de CADAL" mailer.ContentType = "text/html" mailer.BodyText = Bodi Mailer.RemoteHost = "localhost" Mailer.AddRecipient nombre &" "& apellido, email Mailer.AddCC "CADAL", "centro@cadal.org" Mailer.AddBCC "SERGIO HOTMAIL", "scasais@hotmail.com" Mailer.AddBCC "GABRIEL SALVIA", "gabriel@cadal.org" Mailer.AddBCC "HERNAN ALBERRO", "hernan@cadal.org" Mailer.AddBCC "GABRIEL GMAIL", "gsalvia@gmail.com" If Mailer.SendMail then 'Response.Write "mando" else ' Response.Write "No. 2: " & Mailer.Response ' Response.End() End If '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ variable_para_el_page_title = 1 titulo_pagina = "Beca Universitaria" %>
Solicitud de Beca Universitaria de CADAL
<% 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 = "Voluntariado" %>