<% Option Explicit Session.LCID = 1046 Dim DataDe, DataAte, Mes, Ano, Apto Dim Mailer, Nome, Endereco, Bairro, Cidade, Estado, CEP, Pais, Email, Fones Dim DeDia, DeMes, DeAno, AteDia, AteMes, AteAno, NPessoas, TipoApto, Obs, SendMsg DataDe = Trim(Request.QueryString("DataDe")) If DataDe = "" Then DataDe = Date DataAte = Trim(Request.QueryString("DataAte")) If DataAte = "" Then DataAte = Date+1 Apto = Trim(Request.QueryString("Apto")) If Apto = "" Then Apto = 2 Nome = Trim(Request.Form("Nome")) Endereco = Trim(Request.Form("Endereco")) Bairro = Trim(Request.Form("Bairro")) Cidade = Trim(Request.Form("Cidade")) Estado = Trim(Request.Form("Estado")) CEP = Trim(Request.Form("CEP")) Pais = Trim(Request.Form("Pais")) Email = Trim(Request.Form("Email")) Fones = Trim(Request.Form("Fones")) DeDia = Trim(Request.Form("DeDia")) DeMes = Trim(Request.Form("DeMes")) DeAno = Trim(Request.Form("DeAno")) AteDia = Trim(Request.Form("AteDia")) AteMes = Trim(Request.Form("AteMes")) AteAno = Trim(Request.Form("AteAno")) NPessoas = Trim(Request.Form("NPessoas")) TipoApto = Trim(Request.Form("TipoApto")) OBS = Trim(Request.Form("OBS")) SendMsg = "" If (Nome <> "") and (Email <> "") and (Fones <> "") Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.FromName = Nome Mailer.FromAddress = Email Mailer.AddRecipient "Reserva Hotel", "aguadoce@bighost.com.br" Mailer.Subject = "Água Doce Praia Hotel - Reserva" Mailer.BodyText=""&_ "ÁGUA DOCE PRAIA HOTEL - FORMULÁRIO DE RESERVA"&vbcrlf&_ "================================================"&vbcrlf&_ "Nome.....: "&Nome&vbcrlf&_ "Endereco.: "&Endereco&vbcrlf&_ "Bairro...: "&Bairro&vbcrlf&_ "Cidade...: "&Cidade&vbcrlf&_ "Estado...: "&Estado&vbcrlf&_ "CEP......: "&CEP&vbcrlf&_ "País.....: "&Pais&vbcrlf&_ "Email....: "&Email&vbcrlf&_ "Tel(s)...: "&Fones&vbcrlf&_ "Periodo..: " & DeDia & "/" & DeMes & "/" & DeAno & " a " & AteDia & "/" & AteMes & "/" & AteAno &vbcrlf&_ "Pessoas..: "&NPessoas&vbcrlf&_ "Tipo Apto: "&TipoApto&vbcrlf&_ "OBS......: "&OBS&vbcrlf&_ "================================================" If Mailer.SendMail Then SendMsg = "Sua solicitação de reserva foi enviada com sucesso! Aguarde nosso contato..." Else SendMsg = "Erro no envio:"&Mailer.Response End If Set Mailer = Nothing End If %>
Água Doce Praia Hotel
Contato
Nome:
E-mail:
Digite seu texto aqui:
