%@ Language=VBScript %> <%Option Explicit%> <% Dim Secao:Secao="Home" Dim Nome Dim Email Dim Assunto Dim Conteudo Dim Texto Dim Mensagem If Request.ServerVariables("REQUEST_METHOD")<>"POST" Then 'E' A PRIMEIRA VEZ Else 'NAO E' A PRIMEIRA VEZ If CheckField("Nome",Nome) Or CheckField("Email",Email) Or CheckField("Assunto",Assunto) Or CheckField("Conteudo",Conteudo) Then Mensagem="Os campos possuem caracteres não válidos para preenchimento, foram retirados. Por favor verifique os campos e tente novamente.\n" End If If Mensagem="" Then 'TUDO OK Texto="" Texto=Texto & "Nome: " & Nome & VbCrLf Texto=Texto & "Email: " & Email & VbCrLf Texto=Texto & "Assunto: " & Assunto & VbCrLf Texto=Texto & "Mensagem: " & VbCrLf & Conteudo & VbCrLf Call SendEmail(Email, "projetosespeciais@mangueira.com.br", "", "", StrTranslate("Seja Parceiro - " & Assunto), StrTranslate(Texto), "", 0, C_Email_Tipo, C_Email_SMTP) Mensagem="Sua mensagem foi enviada com sucesso." Nome="" Email="" Assunto="" Conteudo="" End If End If %>