:: Lençol Térmico | Frete gratuíto em todo Brasil

<%option explicit%> <% If request.querystring("acao")= "enviar" then dim corpo, destino, objMail, enviou corpo = "Dados do Formulário
Nome: " & _ request.form("nome") & "
E-mail: " & request.form("email") & _ "
Mensagem:
" & _ replace(request.form("obs"), vbcrlf, "
") &"" 'response.write corpo : response.end set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Sistema Lençol Térmico de Contato " objMail.value("Reply-to") = request.form("Email") objMail.Subject = "Contato através do site" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.To = "contato@lencoltermico.com.br" objMail.Body = corpo objMail.Send set objMail = nothing enviou = true End if %> :: Lençol Térmico | Frete gratuíto em todo Brasil | :: :: Lençol Térmico Bem Quentinho :::

CONTATO

Nome:

E-mail:

Cidade:

Telefone:

Assunto:

Mensagem: