_____ Nativa FM | E-mail ____

<% If Request.ServerVariables("REQUEST_METHOD")="POST" and Session("Valida")=True Then dim nome, email, idade, rg, telefone, bairro, cidade, comentarios nome = request("nome") email = request("email") idade = request("idade") rg = request("rg") telefone = request("telefone") bairro = request("bairro") cidade = request("cidade") comentarios = request("comentarios") DIM MENSAGEM SET MAIL=Server.CreateObject("Persits.MailSender") with MAIL .Host = INFORMACOES.SMTP .AddAddress "mferreira@band.com.br","Nativa FM" .From = "" & email & "" .FromName = "" & nome & "" .Subject = "Piada para o Coração Sertanejo - A Boa do Dia" MENSAGEM = "Mensagem enviada pelo site da Nativa FM" & vbCrLf _ & "--------------------------------------------------------- " & vbCrLf _ & "Nome: " & nome & vbCrLf _ & "Email: " & email & vbCrLf _ & "Idade: " & idade & vbCrLf _ & "RG: " & rg & vbCrLf _ & "Telefone: " & telefone & vbCrLf _ & "Bairro: " & bairro & vbCrLf _ & "Cidade: " & cidade & 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_violao.asp" Set MAIL=Nothing end with End If Session("Valida")=True %> _____ Nativa FM | E-mail _____

Coração Sertanejo

Você gosta de contar piadas? Então, participe do quadro "A Boa do Dia" do Coração Sertanejo e concorra a prêmios exclusivos. Para participar, é só enviar um e-mail pelo formulário abaixo e ficar de ouvido ligado na Nativa.

Nome

Email

Telefone

Data de Nascimento

Bairro

Cidade

Assunto

Mande aqui a sua mensagem ou piada:

Entre em contato com a Nativa