<%
' 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
%>
Todos los derechos reservados © 2008
Maderas y Derivados Tlalpan S.A. de C.V