<%@LANGUAGE="VBSCRIPT"%> <% varErro = false if request.form("action") = "send" then varNome = request.Form("nome") varEmail = request.form("email") varTelefone = "("&request.form("ddd")& ") "&request.form("telefone") varAssunto = request.form("assunto") varMensagem = (request.form("mensagem")) if varNome="" OR varEmail="" OR varAssunto="" then varErro = true varErroMensagem = "Favor preencher nome, e-mail e assunto" else assunto = "Contato do site - " & varAssunto conteudo = "Nome: " & varNome & "
E-mail: " & varEmail & "
Telefone: " & varTelefone & "
Assunto: " & varAssunto & "
Mensagem: " & varMensagem Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "sharedrelay.alog.com.br" Mailer.FromAddress = varEmail Mailer.FromName = varNome Mailer.AddRecipient "Focus", "focusinvest@focusinvest.com.br" Mailer.Subject = assunto Mailer.ContentType = "text/html" Mailer.BodyText = conteudo if Mailer.SendMail then 'Response.Write "Mail sent..." else varErro = true varErroMensagem = "Mail send failure. Error was " & Mailer.Response end if end if end if %> Focus Invest

Contato

<% if request.form("action") = "send" AND varErro = false then %>
Formulário enviado com sucesso.
<% else %> <% if (varErro) then %>

<% = varErroMensagem %>

<% end if %>
Preencha o formulário para entrar em contato

<% end if %>