 |
|||||||||||
|
<%
if request("envia_email")="contato" then
nome = request("nome")
email = request("email")
telefone = request("telefone")
mensagem = request("obs")
email_para = "contato@pousadanova.com.br"
Dim myMail, fields, f1, f2, f3, f4, f5
f1 = "Contato site www.pousadanova.com.br " & " " f2 = "Nome: " & nome & " " f3 = "Email: " & email & " " f4 = "Telefone: " & telefone & " " f5 = "Mensagem: " & mensagem & " " fields = f1 & f2 & f3 & f4 & f5 retorno = EnviaEmail("Contato", "contato@pousadanova.com.br", email_para, email_para, "", "contato@pousadanova.com.br", "HTML","Contato", fields & " ") %> <% end if %>
|
||||||||||
