<% ' Envio de correo usando ASPEmail en formato Texto. Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> mail.sixtiesbar.com.mx, No mover IP Mail.Host = "mail.maderasytriplay.com.mx" Mail.Username = "web@maderasytriplay.com.mx" Mail.Password = "mier" Mail.From = "web@maderasytriplay.com.mx" Mail.FromName = "Comentarios Web" Mail.AddAddress "ventas@maderasytriplay.com.mx" Mail.AddCC "maderasyderivados@hotmail.com" ' message subject Mail.Subject = "Comentarios de la web maderasytriplay.com.mx" 'message body 'Creamos la variable message con todos los datos message = "" message = message + "Comentario:"+ br + br + br message = message + "Nombre : " + Request("nom") + br + br message = message + "Tel. : " + Request("cognoms") + br + br message = message + "Correo : " + Request("email") + br + br message = message + "Ciudad : " + Request("ciudad") + br + br message = message + "Mensaje : " + Request("comentaris") + br message = message + " -------------------------------------------------------- " Mail.Body = message On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encontrado: " & Err.Description Else Response.buffer=true Response.redirect "gracias.html" End If End If %>