<% Option Explicit Dim NOME, EMAIL, TELEFONE, MSG, Mail NOME = Request.Form("NOME") EMAIL = Request.Form("EMAIL") TELEFONE = Request.Form("TELEFONE") MSG = Request.Form("MSG") If TELEFONE <> "" Then MSG = MSG & VBcrlf & "Telefone para contato: " & TELEFONE End If If EMAIL = "" Then %> FIPSA
Por favor preencha e envie o formulário abaixo com seu nome,
e-mail e sua mensagem.
NOME: 
E-MAIL: 
MENSAGEM: 
 


<% Else Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp2.locaweb.com.br" Mail.From = EMAIL Mail.FromName = NOME Mail.AddAddress "mundialfipsa@cbcs.com.br" Mail.Subject = "Mensagem FIPSA" Mail.Body = MSG Mail.Send Set Mail = Nothing %> FIPSA
<%=NOME%> , obrigado pelo seu contato. Em breve estaremos lhe enviando uma resposta.

 

 

 

 

 

 

 
<% End If %>