<% '====VARIÁVEIS==== Dim sNome, sEmail, sFone, sDestino, sMsgTxt, sMensagem Dim sStatus, sAssunto Dim sCheca sCheca = Request.Form("txtValida") If sCheca<>Empty Then bOk = True sNome = Request.Form("nome") If sNome = Empty Then bOk=False sStatus = sStatus & "O campo Nome é obrigatório
" End If sEmail = Request.Form("email") If sEmail = Empty Then bOk=False sStatus = sStatus & "O campo E-mail é obrigatório
" End If sMsgTxt = Request.Form("mensagem") If sMsgTxt = Empty Then bOk=False sStatus = sStatus & "O campo Mensagem é obrigatório
" End If sFone = Request.Form("telefone") If bOk=True Then '=====MONTA O EMAIL===== DÉ, AUMENTE DE ACORDO COM OS CAMPOS QUE VC CRIAR sDestino = Request.Form("destino") sAssunto = "SITE Tele Performance - CONTATO" sMensagem = "*****SITE Tele Performance - CONTATO*******" & chr(10) & chr(13) sMensagem = sMensagem & "Nome: " & sNome & chr(10) & chr(13) sMensagem = sMensagem & "E-mail: " & sEmail & chr(10) & chr(13) sMensagem = sMensagem & "Telefone: " & sFone & chr(10) & chr(13) sMensagem = sMensagem & "Assunto: " & sMsgTxt & chr(10) & chr(13) '======ENVIA O MAIL====== NĂO É NECESSÁRIO MEXER AQUI, DÉBORA!!! Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'Servidor de SMTP Mail.RemoteHost = "mail-fwd" 'Mail.RemoteHost = "smtp2.locaweb.com.br" 'E-mail do remetente Mail.FromAddress = sEmail 'Remetente Mail.FromName = sNome Mail.AddRecipient sNome, sDestino 'Assunto da mensagem Mail.Subject = sAssunto ' Formatacao Mail.ContentType = "text/html" 'Corpo da mensagem Mail.BodyText = sMensagem On Error Resume Next If Mail.SendMail Then sStatus = "Sua mensagem foi enviada com sucesso. Em breve entraremos em contato." Else sStatus = sStatus & "Houveram erros no envio do e-mail:
" & Mail.Response End If Set Mail = Nothing end if END IF %>
 
| Empresa | Soluções | Atuação | Clientes | Parceiros | Notícias | Responsabilidade Social | Contato |
 
<%If sCheca=Empty Then%>

 
Nome:
 
E-mail:
 
Telefone: 
  
Encaminhar : 
  
Mensagem: 
  
 
<%Else%>

<%=sStatus%>

<%End If%>

- Unidade SP
  Rua Francisca Emília, 82
  Jd da Saúde - São Paulo - SP
  CEP 04125-070
  telefax (55 11) 3717 0922

- Unidade BH
  Rua Leiria, 196 São Francisco
  Belo Horizonte - MG
  CEP 31255-100
  telefax (55 31) 3441 0866

- Unidade Chile
  Calle Parque 2642 Dep 41 - Macul
  Santiago Fono (56 2) 272.1973