| |
<% 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
Formulário para envio por email de dados:
<%
diahoje = day(now)
meshoje = month(now)
anohoje = year(now)
%>
<% End If %>
| |
