<% dia = Request.Form("diatg") mes = Request.Form("mestg") anio = Request.Form("aniotg") fecha_completa = dia&mes&anio If fecha_completa <> 1192001 Then Response.Redirect "http://www.magnainternet.com" End If nombre = Request.Form("nombre") apellido = Request.Form("apellido") 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") graduado = Request.Form("graduado") promedio = Request.Form("promedio") trabaja = Request.Form("trabaja") Disponibilidad_Actividades = Request.Form("Disponibilidad_Actividades") Disponibilidad_Actividades = Replace(Disponibilidad_Actividades,",","
") Disponibilidad_reunion_info = Request.Form("Disponibilidad_reunion_info") Disponibilidad_reunion_info = Replace(Disponibilidad_reunion_info,",","
") asistio_2011 = Request.Form("asistio_2011") asistio_2011 = Replace(asistio_2011,",","
") CADAL_REDES_SOCIALES = Request.Form("CADAL_REDES_SOCIALES") CADAL_REDES_SOCIALES = Replace(CADAL_REDES_SOCIALES,",","
") TemasAreasTrabajo_A = Request.Form("TemasAreasTrabajo_A") TemasAreasTrabajo_A = Replace(TemasAreasTrabajo_A,",","
") TemasAreasTrabajo_B = Request.Form("TemasAreasTrabajo_B") TemasAreasTrabajo_B = Replace(TemasAreasTrabajo_B,",","
") TemasAreasTrabajo_C = Request.Form("TemasAreasTrabajo_C") TemasAreasTrabajo_C = Replace(TemasAreasTrabajo_C,",","
") Gustaria_Colaborar = Request.Form("Gustaria_Colaborar") Gustaria_Colaborar = Replace(Gustaria_Colaborar,",","
") ejercera = Request.Form("ejercera") ubicaCADAL = Request.Form("ubicaCADAL") motivos_interesa_beca = Request.Form("motivos_interesa_beca") motivos_interesa_beca = Replace(motivos_interesa_beca,"'","''") '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 refe_nombre = Request.Form("refe_nombre") refe_lugar_trabajo = Request.Form("refe_lugar_trabajo") refe_email = Request.Form("refe_email") '####################### 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_2012 " sql = sql & "(nombre, apellido, fecha_nac, nacion, email, domicilio, ciudad, codigo, telefono, universidad, carrera, graduado, promedio, trabaja, Disponibilidad_Actividades, asistio_2011, TemasAreasTrabajo_A, TemasAreasTrabajo_B, TemasAreasTrabajo_C, Gustaria_Colaborar, ejercera, Ubica_CADAL, MotivosInteresaBeca, Referencia, Refer_LugarTrabajo, Refer_email) " sql = sql & " values " sql = sql & "('"& nombre &"', '"& apellido &"', '"& anio &"', '"& nacion &"', '" &email &"', '"& domicilio &"', '"& ciudad &"', '"& codigo &"', '"& telefono &"', '"& universidad &"', '"& carrera &"', '"& graduado &"', '"& promedio &"', '"& trabaja &"', '"& Disponibilidad_Actividades &"', '"& asistio_2011 &"', '"& TemasAreasTrabajo_A &"', '"& TemasAreasTrabajo_B &"', '"& TemasAreasTrabajo_C &"', '"& Gustaria_Colaborar &"', '"& ejercera &"', '"& ubicaCADAL &"', '"& motivos_interesa_beca &"', '"& refe_nombre &"', '"& refe_lugar_trabajo &"', '"& refe_email &"')" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source_elepe 'Response.Write sql con.Execute sql 'Response.End() con.Close Set con = Nothing '####################### TERMINA INSERT ################################################ '####################### TERMINA INSERT ################################################ 'encabezados... bodi = "" bodi = bodi & vbcrlf & "CADAL"&bodi&"" bodi = bodi & vbcrlf &"" bodi = bodi & vbcrlf &"
" bodi = bodi & vbcrlf &"" bodi = bodi & vbcrlf &"" 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 & "" 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 al Programa Emprendedores de las Ideas
Nombre/s
 "&nombre&"
Apellido/s
 "&apellido&"
Anio Nacimiento
 "&anio&"
Nacionalidad
 "&nacion&"
E-mail
 "&email&"
Domicilio
 "&domicilio&"
Ciudad
 "&ciudad&"
Código
 "&codigo&"
Teléfono
 "&telefono&"
Universidad
 "&universidad&"
Carrera
 "&carrera&"
Graduado
 "&graduado&"
Promedio
 "&promedio&"
Trabaja
 "&trabaja&"
Disponibilidad horaria para asistir a eventos y programas educativos
 "&Disponibilidad_Actividades&"
Disponibilidad semanal para asistir a reunión informativa sobre voluntariado, pasantías y becas de investigación
"&Disponibilidad_reunion_info&" 
¿A cuál programa educativo de CADAL asististe durante el año 2011?
"&asistio_2011&" 
¿Seguís las actividades de CADAL en las redes sociales?
"&CADAL_REDES_SOCIALES&" 
¿Cuáles son los temas de las tres Áreas de Trabajo de CADAL que te resultan de mayor interés?
a) Apertura y Desarrollo Político
"&TemasAreasTrabajo_A&" 
b) Apertura y Desarrollo Institucional
"&TemasAreasTrabajo_B&" 
c) Apertura y Desarrollo Económico
"&TemasAreasTrabajo_C&" 
¿En qué tipo de actividades de CADAL te gustaría colaborar?
"&Gustaria_Colaborar&" 
¿Qué actividad te gustaría ejercer en el futuro?
"&ejercera&" 
¿Dónde ubicarías políticamente a CADAL?
"&ubicaCADAL&" 
Referencias
Nombre
"&refe_nombre&" 
Lugar de trabajo
"&refe_lugar_trabajo&" 
Email
"&refe_email&" 
Escribí en no más de 500 caracteres, el motivo principal por el cual te interesaría obtener una Beca 2012 del ''Programa Emprendedores de las Ideas''
"&motivos_interesa_beca&" 
" 'links 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 al Programa Emprendedores de las Ideas" 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" If Mailer.SendMail then 'Response.Write "mando" else ' Response.Write "No. 2: " & Mailer.Response ' Response.End() End If 'Response.write bodi 'Response.End() '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ '################################################################################################ variable_para_el_page_title = 1 titulo_pagina = "Beca Universitaria 2012" %>
Escuela Latinoamericana de Estudios Políticos y Económicos
<% 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" %>