%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim Obj_Email, Mensagem
if Request.QueryString("Acao") = "Enviar" then
Set Obj_Email = Server.CreateObject("CDONTS.NewMail")
Obj_Email.From = Trim(Request.Form("Inp_Email"))
Obj_Email.To = "contato@morrodomoreno.com.br"
Obj_Email.Subject = "Fale Conosco - Morro do Moreno"
Obj_Email.MailFormat = 0
Obj_Email.BodyFormat = 0
Mensagem = "
"
Mensagem = Mensagem & "A seguinte pessoa entrou em contato pelo Fale Conosco:
"
Mensagem = Mensagem & "Nome..........: " & Request.Form("Inp_Nome") & "
"
Mensagem = Mensagem & "Email.........: " & Request.Form("Inp_Email") & "
"
Mensagem = Mensagem & "Telefone......: " & Request.Form("Inp_Tel") & "
"
Mensagem = Mensagem & "Cidade........: " & Request.Form("Inp_Cidade") & "
"
Mensagem = Mensagem & "Estado........: " & Request.Form("Inp_UF") & "
"
Mensagem = Mensagem & "Mensagem......: " & Request.Form("Txt_Mensagem") & "
"
Mensagem = Mensagem & "
"
Obj_Email.Body = Mensagem
Obj_Email.Send
Set Obj_Email = Nothing
end if
%>
Contato Morro do Moreno
|
|
|
<%
if Request.QueryString("Acao") <> "Enviar" then
%>
<%
else
%>
Sua mensagem foi enviada com sucesso. Obrigado.
<%
end if
%>
|