<% ' 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 "restaurantpalominos2012@hotmail.com" Mail.AddBCC "guillermo@restaurantpalominos.com.mx" Mail.AddBCC Request("b") Mail.AddReplyTo Request("b") ' message subject Mail.Subject = "Reservaciones Palominos Sonora" 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")&"
Telefono: "& Request("c")&"
Fecha de reservación: "& Request("d")&"
A Nombre de: "& Request("e")&"
Hora de llegada: "& Request("f")&"
Numero de Personas: "& Request("g")&"
Area de Fumar: "& Request("h")&"
Sede: "& Request("i")&"

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
Teléfono
Fecha de reservación
A Nombre de
Hora de llegada
No. de personas
Área de fumar