<%@ IMPORT namespace="System.Web.Mail" %><% Dim sName as String = Request("env_nombre") Dim Apellido as String = Request("env_apellido") Dim Email as String = Request("env_email") Dim Comentario as String = Request("env_comentario") Dim Mailer as MailMessage = new MailMessage Mailer.From = "mbe.com.do --> " & sName & "" SmtpMail.SmtpServer = "127.0.0.1" Mailer.To = "pliz@uepa.com" Mailer.To = "lizmark33@hotmail.com" Mailer.Subject = "Formulario de Sugerencias" Mailer.BodyFormat = MailFormat.Html Dim strBody as String= "La siguiente persona envió sus datos a través del Formulario de Sugerencias" & "
" strBody = strBody & "========================================================================" & "
" & "
" strBody = strBody & "Nombre: " & sName & "
" strBody = strBody & "Apellido: " & Apellido & "
" strBody = strBody & "Email: " & Email & "
" strBody = strBody & "Comentarios: " & Comentario & "
" 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 %>