<%
' 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.buildingexteriorconsultants.com"
'Authentification
Mail.Username = "guillermo@buildingexteriorconsultants.com"
Mail.Password = "guillermo05"
Mail.From = "guillermo@buildingexteriorconsultants.com"
Mail.FromName = Request("a") 'Viene de la forma HTML
'Se pude enviar a N destinatarios
Mail.AddBCC "guillermo@buildingexteriorconsultants.com"
Mail.AddAddress "contact@buildingexteriorconsultants.com"
Mail.AddBCC Request("b")
Mail.AddReplyTo Request("b")
' message subject
Mail.Subject = "fron the page www.buildingexteriorconsultants.com"
Mail.IsHTML = True
'message body
Mail.Body = " Date: "& FormatDateTime(Date) &"
Name: "& Request("a")&"
E-Mail: "& Request("b")&"
Street and Number: "& Request("c")&"
City: "& Request("d")&"
County: "& Request("e") &"
State: "& Request("f")&"
Zip Code: "& Request("i")& "
Phone Number: "& Request("g")&"
Coments: "& Request("h")&"
This is a copy of your message
Operations Alta Multimedia. "
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error : " & Err.Description
Else
Response.buffer=true
Response.redirect "http://www.buildingexteriorconsultants.com/gracias.html"
End If
End If
%>