<% DIM imgSubmit, strNombre, strApellido, strDireccion, strComuna, strTelefono, strMail, strOcupacion, strInstitucion, salida strNombre = trim(Request.Form("txt_nombre")) strApellido = trim(Request.Form("txt_apellido")) strDireccion = trim(Request.Form("txt_direccion")) strComuna = trim(Request.Form("txt_comuna")) strTelefono = trim(Request.Form("txt_telefono")) strMail = trim(Request.Form("txt_mail")) strOcupacion = trim(Request.Form("txt_ocupacion")) strInstitucion = trim(Request.Form("txt_institucion")) imgSubmit = trim(Request.Form("img_submit")) salida = "" If imgSubmit <> "" Then salida = "Todos los campos del formulario son obligatorios
" End If If strNombre <> "" and strApellido <> "" and strDireccion <> "" and strComuna <> "" and strTelefono <> "" and strMail <> "" and strOcupacion <> "" and strInstitucion <> "" Then Dim ObjSendMail Set ObjSendMail = Server.CreateObject("aspSmartMail.SmartMail") ObjSendMail.SenderName = strNombre & " " & strApellido ObjSendMail.SenderAddress = strMail ObjSendMail.Server = "listas.dibam.cl" ObjSendMail.Recipients.Add "delia.pizarro@dibam.cl" , "Delia Pizarro" ObjSendMail.Subject = "Inscripción a Seminario Pensar en Red" body = "Datos enviados por el formulario de inscrpción" & vbCrLF body = body & "--------------------------------------------" & vbCrLF & vbCrLF body = body & "Nombres: " & strNombre & vbCrLf body = body & "Apellidos: " & strApellido & vbCrLf body = body & "Direccion: " & strDireccion & vbCrLf body = body & "Comuna: " & strComuna & vbCrLf body = body & "Telefono: " & strTelefono & vbCrLf body = body & "Correo Electronico: " & strMail & vbCrLf body = body & "Ocupacion - Profesion: " & strOcupacion & vbCrLf body = body & "Institucion trabajo/estudio: " & strInstitucion & vbCrLf ObjSendMail.Body = body ObjSendMail.SendMail If err.number <> 0 Then salida = "Ha ocurrido un error enviando los datos:
Error No. " & err.number & " = " & err.description & "
" Else salida = "Su inscrpción han sido enviada exitosamente
" strNombre = "" strApellido = "" strDireccion = "" strComuna = "" strTelefono = "" strMail = "" strOcupacion = "" strInstitucion = "" End If Set ObjSendMail = Nothing End If %>
<%= salida %>
Nombres
Apellidos
Dirección
Comuna
Teléfono
Correo electrónico
Ocupación / Profesión
Institución donde trabaja o estudia
