<% else %>
<%
dim Nome
dim Email
dim Endereco
dim Telefone
dim Mensagem
Nome= request.form("Nome")
Email= request.form("Email")
Endereco= request.form("Endereco")
Telefone= request.form("Telefone")
Mensagem= request.form("Mensagem")
enviarpara = "1000brazil@1000brazil.com.br"
dim objMail
Set objMail = server.CreateObject("CDONTS.NewMail")
objMail.From = "1000brazil@1000brazil.com.br"
objMail.To = enviarpara
objMail.Subject = "Bazar Brazil - Contato"
objMail.Body= "" _
& "Bazar Brazil - Contato Site : " & vbCrLf _
& "Nome: " & Nome & vbCrLf _
& "Email: " & Email & vbCrLf _
& "Endereco : " & Endereco & vbCrLf _
& "Telefone : " & Telefone & vbCrLf _
& "Mensagem : " & Mensagem & vbCrLf _
& "."
objMail.Send
Set objMail = Nothing
%>
Seu
email foi enviado com sucesso!
Aguarde nosso retorno.
<% end if %>
|
