<%
op = request("op")
if op = "enviar" then
nome = request("nome")
email = request("email")
telefone = request("telefone")
mensagem = request("mensagem")
msg = "Formulário enviado através do site - Programa Playground
Nome: "&nome&"
Email: "&email&"
Telefone: "&telefone&"
Mensagem: "&mensagem&""
SET Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = ""&nome&" <"&email&">"
'Mailer.TO = "Programa Playground "
Mailer.TO = "Programa Playground "
Mailer.Subject = "Formulário enviado através do site - Programa Playground"
Mailer.MailFormat = 0 'MIME
Mailer.BodyFormat = 0 '0 HTML / 1 Text
Mailer.Body = msg
Mailer.Send
erro = "alert('Mensagem enviada com sucesso, obrigado.')"
end if
%>
Programa PLayground
|
