Contato



<% 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

Nome
E-mail
Mensagem
<%end if%>