<%@LANGUAGE="VBSCRIPT"%> <% ' *** Processa o formulário e envia o e-mail para a FORSAITE. MM_SendAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_SendAction = MM_SendAction + "?" + Request.QueryString MensagemMailer = "" MM_edtNome=CStr(Request.Form("edtNome")) If MM_edtNome <> "" Then MM_redirectSendSuccess="contato_ok.asp" ' MM_redirectSendFailed="contato.asp?type=error" s = "" s = s & "Nome: " & Request("edtNome") & "
" s = s & "E-mail: " & Request("edtEMail") & "
" s = s & "Empresa: " & Request("edtEmpresa") & "
" s = s & "Telefone: " & Request("edtTelefone") & "
" s = s & "
" s = s & "Mensagem:" s = s & "
"
	s = s & Request("edtMensagem")
	s = s & "
" s = s & "" MensagemMailer = EnviarMail_Forsaite(Request("edtNome"), Request("edtEMail"), "Site FORSAITE [Contato]", s) If MensagemMailer = "" Then Response.Redirect(MM_redirectSendSuccess) End If %> <% Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(Rnd * intHighestNumber) + 1 End Function %> FORSAITE - Contato
FORSAITE
 
 
 
 
 
Google

 
 
<% i = RandomNumber(4) %> <% If i = 1 Then %> <% End If If i = 2 Then %> <% End If If i = 3 Then %> <% End If If i = 4 Then %> <% End If %>
PABX Virtual Projetos Personalizados Painel de Controle Suporte
CONTATO
 
 
<% if MensagemMailer <> "" then %> <% end if %>
FORSAITE - SOLUÇÕES EM COMUNICAÇÃO LTDA.
Telefones: (51) 4063.8155 - Porto Alegre/RS
(54) 4062.9133 - Caxias do Sul/RS
VIP Connectz: 463.8155
Correio: Av. Iguaçu, 525/406
Bairro Petrópolis
Porto Alegre / RS
CEP: 90470-430
FORSAITE
Av. Iguaçu, 525/406
Petrópolis
Porto Alegre,  RS
Brasil
90470-430
(51) 4063-8155
Erro ao enviar as informações
<%=MensagemMailer%>
Se preferir, escreva sua mensagem e informe-nos alguns de seus dados para que possamos responder:
Nome
E-mail
Empresa
Telefone
Assunto
Mensagem

 
 
Copyright 2008 © Todos os direitos reservados - FORSAITE Soluções em Comunicação Ltda. - Proibida reprodução total ou parcial