<% if request("acao")="enviar" then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail-nt.braslink.com"
Mail.From = request("email")
Mail.FromName = request("nome")
Mail.AddAddress "polaris@polaris.com.br"
'Descomente a linha abaixo para enviar e-mail em formato HTML
'Mail.IsHTML = True
Mail.Subject = "contato do website"
Mail.Body = "Nome : " & request("nome") & vbcrlf & request("mensagem")
erro = ""
sucesso = False
On Error Resume Next 'Verifica erros
Mail.Send 'Envia mensagem
If Err <> 0 Then
erro = Err.Description
else
sucesso = True
End If
Set Mail = nothing
%>
<% If erro <> "" Then%>
Ocorreu um erro:
<% = erro %>
<% else %>
Mensagem enviada com sucesso.Obrigado por entrar em
contato.
<% End If
else%>
Entre em contato preenchendo o formulário abaixo
ou pelo e-mail : polaris@polaris.com.br