<% response.buffer = true response.expires = 0 response.expiresabsolute = Now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" session.lcid = 1046 dim acao nome = request.form("nome") if nome <> "" then Call EnviaEmail end if Sub EnviaEmail dim nome, email, assunto, mensagem nome = request.form("nome") email = request.form("email") telefone = request.form("telefone") mensagem = mensagem & "Nome: " & nome & "

" mensagem = mensagem & "Email: " & email & "

" mensagem = mensagem & "Telefone: " & Telefone & "

" mensagem = mensagem & "Mensagem: " & request.form("mensagem") Set Mail = Server.CreateObject("CDO.Message") 'Mail.Host = "smtp.quick.com.br" Mail.From = "Villa Luna - Fale Conosco " 'Mail.FromName = "Villa Luna - Fale Conosco" 'Mail.To = "renatinhaabreu@hotmail.com" Mail.To = "pousada@villaluna.com.br" 'Mail.AddAddress "pousada@villaluna.com.br" 'Mail.AddAddress "renatinhaabreu@hotmail.com" Mail.Subject = "Villa Luna - Fale Conosco" 'Mail.isHTML = True Mail.HtmlBody = mensagem 'On Error Resume Next Mail.Send 'If Err <> 0 Then ' Response.Write "Erro no envio de sua mensagem, favor tentar de novo mais tarde." 'else ' response.redirect "page/fale2.asp" 'End If End Sub %> .::.::.::.::.::.::.::. Pousada Villa Luna .::.::.::.::.::.::.::.

Nome:

E-mail:

Telefone:

Mensagem:

 


Estamos reprogramando nosso formulário. Por favor entrem em contato conosco pelos dados abaixo.
Obrigado pela atenção.

Pousada Villa Luna
Av. das Mangueiras, 1457 - Centro de Penedo
Itatiaia/RJ - telfax: (24) 3351.1183
e-mail: pousada@villaluna.com.br
Av. das Mangueiras, 1457 - Centro de Penedo - Itatiaia/RJ - Telefax: (24) 3351-1183 - Desenvolvido por Communix