<%
strHost = "smtp.4lan.com.br"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("email") ' email
Mail.FromName = Request("nome") ' nome
Mail.AddAddress Request("Para")
' message subject
Mail.Subject = Request("Assunto")
' message body
Mail.Body = Request("nome,telefone,descricao")
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
%>
Fale com a Demac
Fale conosco
Seu contato é muito importante para
nossa empresa. Utilize o formulário abaixo para obter mais informações, dar sugestões,
consultar, efetuar criticas etc.
AspEmail: Simple.asp
<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Successo! Mensagem enviada a equipe da Demac. Em breve estaremos retornando.
