<%@ 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 %> MANGUEIRA - A MANGUEIRA - MATERIA SURDO UM
você está em home > seja parceiro

<%=SubTituloFlash("SEJA PARCEIRO",500,40,"","25","","")%>

SEJA UM PARCEIRO DA MANGUEIRA!



Caso você esteja interessado no licenciamento de produtos com a marca da Mangueira, em fazer parcerias ou até mesmo algum outro projeto em conjunto, entre em contato conosco pelo email projetosespeciais@mangueira.com.br ou pelo telefone 25188327.

NOME:


E-MAIL:


ASSUNTO:


MENSAGEM:


   apagar