<%@ IMPORT namespace="System.Web.Mail" %><% Dim sName as String = Request("sub_name") Dim Empresa as String = Request("sub_empresa") Dim Cedula as String = Request("sub_cedula") Dim Email as String = Request("sub_email") Dim Telefono as String = Request("sub_telefono") Dim Fax as String = Request("sub_fax") Dim comentario as String = Request("sub_comentario") Dim Mailer as MailMessage = new MailMessage Mailer.From = "artis.com.do --> " & sName & "" SmtpMail.SmtpServer = "127.0.0.1" Mailer.To = "emelo@medios.com" Mailer.Subject = "Formulario de Contacto" Mailer.BodyFormat = MailFormat.Html Dim strBody as String= "La siguiente persona envió sus datos a través del Formulario de Contacto" & "
" strBody = strBody & "========================================================================" & "
" & "
" strBody = strBody & "Nombre: " & sName & "
" strBody = strBody & "Apellido: " & Apellido & "
" strBody = strBody & "Cédula: " & Cedula & "
" strBody = strBody & "Pasaporte: " & Pasaporte & "
" strBody = strBody & "Telefono: " & Telefono & "
" strBody = strBody & "Fax: " & Fax & "
" strBody = strBody & "Fecha de Nacimiento: " & Fechanac & "
" strBody = strBody & "Email: " & Email & "
" strBody = strBody & "Celular: " & Celular & "
" strBody = strBody & "Beeper: " & Beeper & "
" strBody = strBody & "Direccion: " & Direccion & "
" Mailer.Body = strBody 'Mailer.CharSet = 2 SmtpMail.Send(Mailer) 'If SmtpMail.Send(Mailer) Then Response.Write("&sended=true&") ' Else ' Response.Write("&sended=false&") 'End If %>