MANGUEIRA - A MANGUEIRA

<%@ Language=VBScript %> <%Option Explicit%> <% Dim Secao:Secao="Fale Conosco" Dim Nome Dim Email Dim Destinatario 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("Destinatario",Destinatario) 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, Destinatario, "", "", StrTranslate("Fale Conosco - " & Assunto), StrTranslate(Texto), "", 0, C_Email_Tipo, C_Email_SMTP) Mensagem="Sua mensagem foi enviada com sucesso." Nome="" Email="" Destinatario="" Assunto="" Conteudo="" End If End If %> MANGUEIRA - A MANGUEIRA - FALE CONOSCO

você está em home > fale conosco

<%=SubTituloFlash("FALE CONOSCO",500,40,"","25","","")%>

Aqui é o espaço para falar com a Mangueira. Escolha o assunto e preencha o formulário abaixo com os seus dados, dúvidas, comentários e sugestões. Seu contato é muito importante.