_____ Nativa FM | Locutores ____

<% 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.