<% 'si que recibo un formulario, entonces lo trato 'recojo los datos if request.form<>"" then nombre=request.form("nombre") apellido=request.form("apellido") direccion=request.form("direccion") zona=request.form("zona") estado=request.form("estado") pais=request.form("pais") postal=request.form("postal") telefono=request.form("telefono") email=request.form("email") ocupacion=request.form("ocupacion") edad=request.form("edad") civil=request.form("civil") ingreso=request.form("ingreso") hijoboliviano=request.form("hijoboliviano") hijoaustralia=request.form("hijoaustralia") motivo=request.form("motivo") cons=request.form("cons") op1=request.form("op1") cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE cuerpo = cuerpo & "Apellidos: " & apellido & VBNEWLINE cuerpo = cuerpo & "Direccion: " & direccion & VBNEWLINE cuerpo = cuerpo & "Zona: " & zona & VBNEWLINE cuerpo = cuerpo & "Estado: " & estado & VBNEWLINE cuerpo = cuerpo & "Pais: " & pais & VBNEWLINE cuerpo = cuerpo & "Codigo Postal: " & postal & VBNEWLINE cuerpo = cuerpo & "Telefono: " & telefono & VBNEWLINE cuerpo = cuerpo & "Email: " & email & VBNEWLINE cuerpo = cuerpo & "Ocupacion: " & ocupacion & VBNEWLINE cuerpo = cuerpo & "Edad: " & edad & VBNEWLINE cuerpo = cuerpo & "Estado civil: " & civil & VBNEWLINE cuerpo = cuerpo & "Fecha de Ingreso en Australia: " & ingreso & VBNEWLINE cuerpo = cuerpo & "Nombre de los hijos nacidos en Bolivia: " & hijoboliviano & VBNEWLINE cuerpo = cuerpo & "Nombre de los hijos nacidos en Australia: " & hijoaustralia & VBNEWLINE cuerpo = cuerpo & "Motivo de consulta: " & motivo & VBNEWLINE cuerpo = cuerpo & "Comentario: " & cons & VBNEWLINE cuerpo = cuerpo & "Proporcionar informacion: " & op1 & VBNEWLINE mensaje=cuerpo 'set mail = server.createObject("Persits.MailSender") 'configuro el mensaje 'señalo el servidor de salida para enviar el correo 'mail.host = "mail.bolivia.org.au" 'indico la dirección de correo del remitente 'mail.from = "desde web" 'indico la dirección del destinatario del mensaje 'mail.addAddress "jcpareja@bolivi.org.au" 'mail.Subject ="Registro y Sugerencias" 'indico el cuerpo del mensaje 'mail.body = cuerpo 'mail.send 'lo envio set mail = server.createObject("SMTPsvg.Mailer") 'configuro el mensaje 'señalo el servidor de salida para enviar el correo mail.RemoteHost = "mail.bolivia.org.au" 'indico la dirección de correo del remitente mail.FromAddress = "web@bolivia.org.au" 'indico la dirección del destinatario del mensaje mail.AddRecipient "Info","jcpareja@bolivia.org.au" mail.Subject ="Registro" 'indico el cuerpo del mensaje mail.BodyText = cuerpo mail.SendMail 'lo envio 'aseguro que no se presenten errores en la página si se producen response.write "Gracias por enviar su consulta. La respuesta sera lo mas antes posible." end if %>
Registro
 
El Consulado de Bolivia en Australia invita a toda la comunidad boliviana a registrarse para recibir información sobre las actividades de los Residentes Bolivianos en Australia, y especialmente para enterarnos cuantos vivimos en este País.   Toda información es considerada como confidencial y solo con fines estadísticos.
Datos Personales
   
Nombre:
Apellidos:
Dirección:
Zona:
Estado:
Pais:
Código Postal :
Teléfono:
Email:
Por favor revise su email, si está incorrecto
no podremos contestar
Ocupación:
Edad:
Estado Civil:
Fecha de Ingreso en Australia:
Nombre de los hijos nacidos en Bolivia
Nombre de los hijos nacidos en Australia
Motivo de consulta:
Comentario:

En oportunidades se ha requerido al Consulado de Bolivia información sobre bolivianos que estarían interesados en realizar diferentes tipos de actividades, ya sean culturales, de cooperación, asistencia social e inclusive de tipo laboral. Si se requiriese, usted autoriza proporcionar su dirección, teléfono o correo electrónico a terceras personas?

Si No