<% ' Envio de correo usando ASPEmail en formato Texto. ' Alta Multimedia Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> smtp.triara.com, No mover IP Mail.Host = "mail.restaurantpalominos.com.mx" 'Authentification Mail.Username = "guillermo@restaurantpalominos.com.mx" Mail.Password = "alta05" Mail.From = "guillermo@restaurantpalominos.com.mx" Mail.FromName = Request("a") 'Viene de la forma HTML 'Se pude enviar a N destinatarios Mail.AddAddress "loregc68@gmail.com" Mail.AddAddress "gastrocali2013@hotmail.com" Mail.AddAddress "lsalazarpalominos@gmail.com" Mail.AddAddress "marthalleal@yahoo.com" Mail.AddBCC "guillermo@restaurantpalominos.com.mx" Mail.AddBCC Request("b") Mail.AddReplyTo Request("b") ' message subject Mail.Subject = "Contacto Palominos Mexicali" Mail.IsHTML = True 'message body 'Creamos la variable message con todos los datos Mail.Body = "

Fecha: "& FormatDateTime(Date) &"
Nombre: "& Request("a")&"
E-Mail: "& Request("b")&"
Comentarios: "& Request("c")&"

Esta es una copia de su mensaje

Operations AltaMultimedia www.altamultimedia.com.mx
" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encontrado: " & Err.Description Else Response.buffer=true Response.redirect "http://www.restaurantpalominos.com.mx/correcto.html" End If End If %>
Nombre
E-Mail
Comentarios