%
' change to address of your own SMTP server
strHost = "mail.atlantech.net"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = "smtp.360multimidia.com.br"
'Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress "vianeia@vianeia.com.br"
Mail.AddCC "info@360graus.com.br"
Mail.From = "vianeia@360multimidia.com.br"
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("From") & Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Reservas
|
|
<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Sua
mensagem foi enviada com êxito.
Por favor, aguarde nosso contato. <% = Request("To") %>
<% End If %>
|
| Reservas
e Informações: Tel:
55+(0**19) 3829-3636 - Cel: 55+(0**19) 9109-4617 - E-mail:
vianeia@vianeia.com.br
|
|