<% web_contact = "Hotelpedrasrubras.com" recipient = "tiago@ciberconceito.com" subject = "Nova reserva recebida via WebSite" erro = 0 entrada_dia = request.form("entrada_dia") entrada_mes = request.form("entrada_mes") entrada_ano = request.form("entrada_ano") saida_dia = request.form("saida_dia") saida_mes = request.form("saida_mes") saida_ano = request.form("saida_ano") quartos = request.form("quartos") quartosn = request.form("quartosn") adultos = request.form("adultos") criancas = request.form("criancas") h_nome = request.form("h_nome") h_morada = request.form("h_morada") h_pais = request.form("h_pais") h_telef = request.form("h_telef") h_email = request.form("h_email") e_nome = request.form("e_nome") e_morada = request.form("e_morada") e_pais = request.form("e_pais") e_telef = request.form("e_telef") e_email = request.form("e_email") resposta = request.form("resposta") 'output texto_email = "Reserva recebida via Site

" & "Entrada: " & entrada_dia & "/" & entrada_mes & "/" & entrada_ano & "
" & "Saída: " & saida_dia & "/" & saida_mes & "/" & saida_ano &"
" & "Tipo de Quarto: " & quartos & "
" & "Nº de Quartos: " & quartosn & "
" & "Adultos: " & adultos & "
" & "Crianças: " & criancas & "

" & "HÓSPEDE " & "
" & "Nome: " & h_nome & "
" & "Morada: " & h_morada & "
" & "Pais: " & h_pais & "
" & "Telefone :" & h_telef & "
" & "Email: " & h_email & "

" & "EMPRESA " & "
" & "Nome: " & e_nome & "
" & "Morada: " & e_morada & "
" & "Pais: " & e_pais & "
" & "Telefone: " & e_telef & "
" & "Email: " & e_email & "

" & "Resposta solicitada para: " & resposta & "
" & "" 'texto_email = "ok" 'response.write (texto_email) if erro <> 1 then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Hotel Pedras Rubras" Mailer.FromAddress = "robot@hotelpedrasrubras.com" Mailer.RemoteHost = "localhost" Mailer.AddRecipient web_contact,recipient Mailer.AddRecipient web_contact2,recipient2 Mailer.Subject = subject mailer.contenttype = "text/html" Mailer.BodyText = texto_email Mailer.Priority = 1 if not Mailer.SendMail then erro_envio = "sim" response.redirect("reservas_erro.html") end if response.redirect("reservas_ok.html") end if %>