%
If Request.ServerVariables("REQUEST_METHOD")="POST" and Session("Valida")=True Then
dim nome, email, idade, cidade, estado, comentarios
nome = request("nome")
email = request("email")
telefone = request("telefone")
rg= request ("rg")
idade = request("idade")
cidade = request("cidade")
bairro = request("bairro")
comentarios = request("comentarios")
DIM MENSAGEM
SET MAIL=Server.CreateObject("Persits.MailSender")
with MAIL
.Host = INFORMACOES.SMTP
.AddAddress "contato@nativa.com.br","Nativa FM - O Amor de São Paulo"
.From = "" & email & ""
.FromName = "" & nome & ""
.Subject = "Promoção Caminhão Milionário"
MENSAGEM = "Mensagem enviada pelo site da Nativa FM" & vbCrLf _
& "--------------------------------------------------------- " & vbCrLf _
& "Nome: " & nome & vbCrLf _
& "Telefone: " & telefone & vbCrLf _
& "Idade: " & idade & vbCrLf _
& "RG: " & rg & vbCrLf _
& "Cidade: " & cidade & vbCrLf _
& "Bairro: " & bairro & vbCrLf _
& "Comentarios: " & vbCrLf & comentarios & vbCrLf & vbCrLf _
& "--------------------------------------------------------- " & vbCrLf _
& "Nav/Sis: " &Request.ServerVariables("HTTP_USER_AGENT") & vbcrlf & "IP: " _
& Request.ServerVariables("REMOTE_HOST") & vbcrlf & "data/hora: " & now & vbCrLf
.Body = MENSAGEM
.Send()
Session("Valida")=False
Session("mail_nome")=nome
response.redirect "final.asp"
Set MAIL=Nothing
end with
End If
Session("Valida")=True
%>
_____ Nativa FM | Locutores _____
Conheça
os locutores e apresentadores da Nativa
Esse
é o espaço para você conhecer um pouco
mais do seu apresentador preferido! Você clica nas miniaturas,
lê o perfil e ainda manda e-mail diretamente pra cada
um deles.
Entre
em contato com a Nativa
©
2008/Nativa FM - A Nativa é Muito Mais