<% '====================================== 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) 'Politica_Latinoamericana = Request.Form("Politica_Latinoamericana") 'Periodismo_y_Democracia = Request.Form("Periodismo_y_Democracia") 'Derechos_Humanos = Request.Form("Derechos_Humanos") 'Modernizacion_de_Partidos_Politicos = Request.Form("Modernizacion_de_Partidos_Politicos") 'Economia_y_Estado_de_Derecho = Request.Form("Economia_y_Estado_de_Derecho") 'Desarrollo_y_Comunicacion_Institucional = Request.Form("Desarrollo_y_Comunicacion_Institucional") '====================================== 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("Politica_Latinoamericana") = Politica_Latinoamericana 'session("Periodismo_y_Democracia") = Periodismo_y_Democracia 'session("Derechos_Humanos") = Derechos_Humanos 'session("Modernizacion_de_Partidos_Politicos") = Modernizacion_de_Partidos_Politicos 'session("Economia_y_Estado_de_Derecho") = Economia_y_Estado_de_Derecho 'session("Desarrollo_y_Comunicacion_Institucional") = Desarrollo_y_Comunicacion_Institucional 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 "voluntariado_solicitud_2007.asp?m=1" End If 'If Politica_Latinoamericana = "" and Periodismo_y_Democracia = "" and Derechos_Humanos = "" and Modernizacion_de_Partidos_Politicos = "" and Economia_y_Estado_de_Derecho = "" and Desarrollo_y_Comunicacion_Institucional = "" Then 'Response.Redirect "solicitud_elepe_2006.asp?m=1&ti=0" 'End If '####################################################################################################### '####################################################################################################### '####################################################################################################### 'If Politica_Latinoamericana = "" Then 'Politica_Latinoamericana = "No" 'End If 'If Periodismo_y_Democracia = "" Then 'Periodismo_y_Democracia = "No" 'End If 'If Derechos_Humanos = "" Then 'Derechos_Humanos = "No" 'End If 'If Modernizacion_de_Partidos_Politicos = "" Then 'Modernizacion_de_Partidos_Politicos = "No" 'End If 'If Economia_y_Estado_de_Derecho = "" Then 'Economia_y_Estado_de_Derecho = "No" 'End If 'If Desarrollo_y_Comunicacion_Institucional = "" Then 'Desarrollo_y_Comunicacion_Institucional = "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 & "" 'Body = Body & "" 'Body = Body & "" 'Body = Body & "" 'Body = Body & "" 'Body = Body & "" 'Body = Body & "" '[ Body = Body & "" Body = Body & "
Solicitud de Inscripción al Programa de Voluntariado 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
Politica_Latinoamericana
 "&Politica_Latinoamericana&"
Periodismo_y_Democracia
 "&Periodismo_y_Democracia&"
Derechos_Humanos
 "&Derechos_Humanos&"
Modernizacion_de_Partidos_Politicos
 "&Modernizacion_de_Partidos_Politicos&"
Economia_y_Estado_de_Derecho
 "&Economia_y_Estado_de_Derecho&"
Desarrollo_y_Comunicacion_Institucional
 "&Desarrollo_y_Comunicacion_Institucional&"
" '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 elepe(anio, nombre, apellido, fecha_nac, nacion, email, domicilio, ciudad, codigo, telefono, universidad, carrera, cant_materias_aprobadas, promedio, recomienda) values ('2007', '" & nombre & "', '" & apellido & "', '" & fecha_nac_en & "', '" & nacion & "', '" & email & "', '" & domicilio & "', '" & ciudad & "', '" & codigo & "', '" & telefono & "', '" & universidad & "', '" & carrera & "', '" & cant_materias_aprobadas & "', '" & promedio & "', '" & recomienda & "')" 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 = "gabriel@cadal.org;centro@cadal.org;constanza@cadal.org" MandoMails.Bcc = "webmaster@cadal.org;belen@cadal.org;hernan@cadal.org" MandoMails.Subject = "Programa de Voluntariado ELEPE 2007" 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 = "Programa de Voluntariado" %>
Programa de Voluntariado ELEPE 2007
<% '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 = "Voluntariado" %>




<% '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 %>