<%@ 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 %>

Tire suas dúvidas ou dê sugestões utilizando o formulário abaixo:  


Nome: 
E-mail: 
Cidade:  Estado:  
Telefone: 
Mensagem:
<% else %>




Sua mensagem foi enviada com sucesso. Obrigado.


<% end if %>