| |
|||||
|
|
|||||
|
|||||
|
<% acao = request.form("acao") %>
<% If acao = "Enviar!" Then %>
<%
diahoje = day(now)
meshoje = month(now)
anohoje = year(now)
nome = request.form("nome")
dia = Request.Form("dia")
mes = Request.Form("mes")
ano = Request.Form("ano")
contato = Request.Form("contato")
email = request.form("email")
link = request.form("link")
cidade = request.form("cidade")
expectativas = request.form("expectativas")
' Monta mensagem
mensagem = "Nome da Organização: "&nome&"" & chr("13")
mensagem = mensagem & "Contato: "&contato&"" & chr("13")
mensagem = mensagem & "Email: "&email&"" & chr("13")
mensagem = mensagem & "Link: "&link&"" & chr("13")
mensagem = mensagem & "Cidade para reuniões presenciais: "&cidade&"" & chr("13")
mensagem = mensagem & "Detalhe suas expectativas: "& chr("13")&expectativas&""
' Verifica se campos obrigatorios foram preenchidos
if len(nome)<1 or len(contato)<1 or len(email)<1 or len(cidade)<1 or len(expectativas)<1 then
response.write (" Campos obrigatórios não foram preenchidos!") response.write (" Voltar ao formulário") else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress = email Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient "Carlos Nepomuceno", "pontonet@pontonet.com.br" Mailer.Subject = "Solicitação de Consultoria" Mailer.BodyText = mensagem if Mailer.SendMail then Response.Write " Iremos contactá-lo em breve, grato." else Response.Write "Problemas. O erro foi: " & Mailer.Response end if end if %> <% Else %> A Pontonet pode ajudá-lo na implantação de projetos de
consultoria estratégica para implantação de projetos de Redes Sociais nas Organizações Brasileiras, através de orientação, detalhamento e acompanhamento de projetos, detalhe seu problema abaixo:Preencha o formulário
| |||||
|
| Colocar a coluna do Nepô em meu site | |
|||||