<% Option Explicit Dim var_nome, var_mail, var_ddd, var_telefone, var_msg, var_to, EnviarMail, MsgBody var_nome = Request.QueryString("nome") var_mail = Request.QueryString("email") var_ddd = Request.QueryString("ddd") var_telefone = Request.QueryString("telefone") var_msg = Request.QueryString("msg") var_to = "seguros@sincorpe.org.br" Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = "Contato Sincor PE - Formulário SITE" MsgBody = "" _ & "" _ & "" _ & "" _ & "

Você recebeu uma mensagem de " & var_nome & ", email " & var_mail & ", DDD
" & var_ddd & " , Telefone " & var_telefone & ", e fez o seguinte comentário:

" & var_msg & "

" _ & "" _ & "" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.redirect "resposta_contatos.asp" %>