%@ Language=VBScript %>
<%
option explicit
Server.ScriptTimeout = 600
Response.Buffer = true
dim link_serv
link_serv = "../"
dim tipo_pesquisa, praia, link_praia, nome_praia, cidade, tipo_hosp, title_page
dim tipo_banner, tipo, campos, email_selecionavel
email_selecionavel =200
'Pega variáveis
Session.Value("uba_filtro") = ""
function pega_valores(valor,campo)
if valor <> "" then
if Session.Value("uba_filtro") <> "" then
Session.Value("uba_filtro") = Session.Value("uba_filtro") & "," & campo
else
Session.Value("uba_filtro") = campo
end if
end if
end function
cidade = 1 ' CARAGUA
tipo_hosp = request.querystring("tipo")
tipo_pesquisa = request.form("tipo_pesquisa")
Session.Value("uba_tipo_pesquisa") = request.form("tipo_pesquisa")
Session.Value("uba_hotel") = request.form("hotel")
Session.Value("uba_pousada") = request.form("pousada")
Session.Value("uba_chale") = request.form("chale")
Session.Value("uba_flat") = request.form("flat")
Session.Value("uba_condominio") = request.form("condominio")
Session.Value("uba_camping") = request.form("camping")
Session.Value("uba_tipo_hosp") = ""
if Session.Value("uba_hotel") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",hoteis"
else
Session.Value("uba_tipo_hosp") = "hoteis"
end if
end if
if Session.Value("uba_pousada") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",pousadas"
else
Session.Value("uba_tipo_hosp") = "pousadas"
end if
end if
if Session.Value("uba_chale") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",chales"
else
Session.Value("uba_tipo_hosp") = "chales"
end if
end if
if Session.Value("uba_flat") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",flats"
else
Session.Value("uba_tipo_hosp") = "flats"
end if
end if
if Session.Value("uba_condominio") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",condominios"
else
Session.Value("uba_tipo_hosp") = "condominios"
end if
end if
if Session.Value("uba_camping") <> "" then
if Session.Value("uba_tipo_hosp") <> "" then
Session.Value("uba_tipo_hosp") = Session.Value("uba_tipo_hosp") & ",camping"
else
Session.Value("uba_tipo_hosp") = "camping"
end if
end if
Session.Value("uba_praia_simples") = request.form("praia")
Session.Value("uba_praia_avancada") = request.form("praia2")
Session.Value("uba_tipo") = request.form("tipo")
Session.Value("uba_nome") = request.form("nome")
Session.Value("uba_cafe") = request.form("cafe")
Session.Value("uba_serv_quarto") = request.form("serv_quarto")
Session.Value("uba_tv_aberta") = request.form("tv_aberta")
Session.Value("uba_frigobar") = request.form("frigobar")
Session.Value("uba_ventilador") = request.form("ventilador")
Session.Value("uba_ar") = request.form("ar")
Session.Value("uba_cozinha") = request.form("cozinha")
Session.Value("uba_cozinha_mae") = request.form("cozinha_mae")
Session.Value("uba_cozinha_comuni") = request.form("cozinha_comuni")
Session.Value("uba_estacionamento") = request.form("estacionamento")
Session.Value("uba_estacionamento_f") = request.form("estacionamento_f")
Session.Value("uba_estacionamento_simples") = request.form("estacionamento_simples")
call pega_valores(Session.Value("uba_cafe"),"cafe")
call pega_valores(Session.Value("uba_serv_quarto"),"serv_quarto")
call pega_valores(Session.Value("uba_tv_aberta"),"tv_aberta")
call pega_valores(Session.Value("uba_frigobar"),"frigobar")
call pega_valores(Session.Value("uba_ventilador"),"ventilador")
call pega_valores(Session.Value("uba_ar"),"ar")
call pega_valores(Session.Value("uba_cozinha"),"cozinha")
call pega_valores(Session.Value("uba_cozinha_mae"),"cozinha_mae")
call pega_valores(Session.Value("uba_cozinha_comuni"),"cozinha_comuni")
call pega_valores(Session.Value("uba_estacionamento"),"estacionamento")
call pega_valores(Session.Value("uba_estacionamento_f"),"estacionamento_f")
call pega_valores(Session.Value("uba_estacionamento_simples"),"estacionamento_simples")
Session.Value("uba_serv_praia") = request.form("serv_praia")
Session.Value("uba_piscina") = request.form("piscina")
Session.Value("uba_play_ground") = request.form("play_ground")
Session.Value("uba_salao_jogos") = request.form("salao_jogos")
Session.Value("uba_esportes") = request.form("esportes")
Session.Value("uba_internet_wifi") = request.form("internet_wifi")
Session.Value("uba_internet") = request.form("internet")
Session.Value("uba_lanchonete") = request.form("lanchonete")
Session.Value("uba_restaurante") = request.form("restaurante")
Session.Value("uba_refeicao") = request.form("refeicao")
Session.Value("uba_refeicao_c") = request.form("refeicao_c")
Session.Value("uba_tv_fechada") = request.form("tv_fechada")
Session.Value("uba_tv_cabo") = request.form("tv_cabo")
Session.Value("uba_filmes") = request.form("filmes")
Session.Value("uba_churrasqueira") = request.form("churrasqueira")
Session.Value("uba_frente_mar") = request.form("frente_mar")
Session.Value("uba_cem_metros") = request.form("cem_metros")
Session.Value("uba_apto_conj") = request.form("apto_conj")
call pega_valores(Session.Value("uba_serv_praia"),"serv_praia")
call pega_valores(Session.Value("uba_piscina"),"piscina")
call pega_valores(Session.Value("uba_play_ground"),"play_ground")
call pega_valores(Session.Value("uba_salao_jogos"),"salao_jogos")
call pega_valores(Session.Value("uba_esportes"),"esportes")
call pega_valores(Session.Value("uba_internet_wifi"),"internet_wifi")
call pega_valores(Session.Value("uba_internet"),"internet")
call pega_valores(Session.Value("uba_lanchonete"),"lanchonete")
call pega_valores(Session.Value("uba_refeicao"),"refeicao")
call pega_valores(Session.Value("uba_refeicao_c"),"refeicao_c")
call pega_valores(Session.Value("uba_tv_fechada"),"tv_fechada")
call pega_valores(Session.Value("uba_tv_cabo"),"tv_cabo")
call pega_valores(Session.Value("uba_filmes"),"filmes")
call pega_valores(Session.Value("uba_churrasqueira"),"churrasqueira")
call pega_valores(Session.Value("uba_frente_mar"),"frente_mar")
call pega_valores(Session.Value("uba_cem_metros"),"cem_metros")
call pega_valores(Session.Value("uba_apto_conj"),"apto_conj")
Session.Value("uba_animais") = request.form("animais")
Session.Value("uba_deficientes") = request.form("deficientes")
call pega_valores(Session.Value("uba_animais"),"animais")
call pega_valores(Session.Value("uba_deficientes"),"deficientes")
'Fim pega variáveis
Session.Value("uba_nome") = replace(Session.Value("uba_nome"),chr(39),"")
Session.Value("uba_nome") = replace(Session.Value("uba_nome"),chr(34),"")
if Session.Value("uba_tipo_pesquisa") = "2" then Session.Value("uba_filtro") = Session.Value("uba_nome")
select case tipo_hosp
case "hoteis"
Session.Value("uba_hotel") = "1"
title_page = "Caragua - Hotéis em Caragua"
case "pousadas"
Session.Value("uba_pousada") = "1"
title_page = "Caragua - Pousadas em Caragua"
case "chales"
Session.Value("uba_chale") = "1"
title_page = "Caragua - Chalés em Caragua"
case "flats"
Session.Value("uba_flat") = "1"
title_page = "Caragua - Flats em Caragua"
case "condominios"
Session.Value("uba_condominio") = "1"
title_page = "Caragua - Condomínios em Caragua"
case "campings"
Session.Value("uba_camping") = "1"
title_page = "Caragua - Outros Estabelecimentos (contato por e-mail)"
case else
title_page = "Caragua - Hospedagem em Caragua"
end select
'Identifica a praia
if isnumeric(Session.Value("uba_praia_simples")) = false then Session.Value("uba_praia_simples") = 0
if isnumeric(Session.Value("uba_praia_avancada")) = false then Session.Value("uba_praia_avancada") = 0
'FIM Identifica a praia
'TIPO DE PESQUISA
select case tipo_pesquisa
case "0"
praia = Session.Value("uba_praia_simples")
case "1"
praia = Session.Value("uba_praia_avancada")
case "2"
praia = 0
case else
praia = 0
end select
dim tipo_hospedagem
tipo_hospedagem = 0
if Session.Value("uba_hotel") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if Session.Value("uba_pousada") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if Session.Value("uba_chale") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if Session.Value("uba_flat") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if Session.Value("uba_condominio") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if Session.Value("uba_camping") = "1" then tipo_hospedagem = tipo_hospedagem + 1
if tipo_pesquisa = "0" then
if Session.Value("uba_praia_simples") = 0 then response.redirect "index.asp?alert=1"
elseif tipo_pesquisa = "1" then
'if Session.Value("uba_praia_avancada") = 0 then response.redirect "index.asp?alert=10"
if tipo_hospedagem < 1 then response.redirect "index.asp?alert=11"
if tipo_hospedagem > 6 then response.redirect "index.asp?alert=12"
elseif tipo_pesquisa = "2" then
if Session.Value("uba_nome") = "" then response.redirect "index.asp?alert=20"
end if
'FIM TIPO DE PESQUISA
''''
if Session.Value("uba_hotel") <> "" then
tipo = Session.Value("uba_hotel")
elseif Session.Value("uba_pousada") <> "" then
tipo = Session.Value("uba_pousada")
elseif Session.Value("uba_chale") <> "" then
tipo = Session.Value("uba_chale")
elseif Session.Value("uba_flat") <> "" then
tipo = Session.Value("uba_flat")
elseif Session.Value("uba_condominio") <> "" then
tipo = Session.Value("uba_condominio")
elseif Session.Value("uba_camping") <> "" then
tipo = Session.Value("uba_camping")
end if
''''
' Pesquisa para o banner
if tipo_pesquisa = 1 then
tipo_banner = 1
else
tipo_banner = 0
end if
'FIM Pesquisa para o banner
if tipo = "" then tipo = 0
' Campos para o banner
campos = "cod_cidade like '"&cidade&"' "
if tipo_banner = 0 then
campos = campos & "and cod_praia like '"& praia &"' "
campos = campos & "and cod_tipo like '"&tipo_banner&"' "
campos = campos & "and litoral like '0' "
else
campos = campos & "and cod_praia like '0' "
campos = campos & "and cod_tipo like '"&tipo_banner&"' "
campos = campos & "and litoral like '0' "
end if
'FIM Campos para o banner
dim conexao, consulta_sql, rsquery
Set conexao = CreateObject("ADODB.Connection")
%><%
'Pega o nome da praia
if praia = 0 then
nome_praia = "CARAGUA"
else
consulta_sql = "SELECT praia, link FROM caragua_praia Where cod like '"&praia&"'"
set rsquery = Conexao.execute(consulta_sql)
if rsquery.eof = false then
nome_praia = rsquery("praia")
link_praia = rsquery("link")
if left(ucase(link_praia),7) <> "HTTP://" then
link_praia = link_serv & "praias/" & rsquery("link")
end if
if isnull(link_praia) = true then link_praia = ""
end if
set rsquery = nothing
end if
'FIM Pega o nome da praia
'Pega os banners
Dim cont, cima, baixo, n_banners, banners, cont_banners
consulta_sql = "SELECT cod_banner, nome, arquivo, width, height, posicao, ordem FROM view_caragua_hospedagem_banners Where "& campos &" order by posicao, ordem, cod_banner DESC"
set rsquery = Conexao.execute(consulta_sql)
cont = 0
cima = 0
baixo = 0
n_banners = 0
if rsquery.eof = false then
redim banners(16,7)
cont = 1
do while rsquery.eof = false
banners(cont,1) = rsquery("cod_banner")
banners(cont,2) = rsquery("nome")
banners(cont,3) = replace(rsquery("arquivo"),".swf","")
banners(cont,4) = rsquery("width")
banners(cont,5) = rsquery("height")
banners(cont,6) = rsquery("posicao")
banners(cont,7) = rsquery("ordem")
if banners(cont,6) = 1 then
cima = cima + 1
else
baixo = baixo + 1
end if
'response.write banners(cont,6)
cont = cont + 1
rsquery.movenext
loop
end if
set rsquery = nothing
n_banners = baixo + cima'Quantidade de banners na página
cont = 0
'FIM pega os banners
''Banners superiores
dim banner1_cor, banner3_cor, banner1, banner2_a, banner2_b, banner3, banner1_w, banner1_h, banner2_a_w, banner2_a_h, banner2_b_w, banner2_b_h, banner3_w, banner3_h
if tipo_pesquisa = 1 and tipo_hosp = "" then 'PESQUISA AVANÇADA
banner1 = "villaalmare_150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
banner2_a = "moradadapraia401x88"
banner2_a_w = 401
banner2_a_h = 88
banner3 = "areiadomar150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
elseif tipo_pesquisa = 2 or tipo_hosp <> "" then 'nome ou direta
if tipo_hosp = "chales" or tipo_hosp = "condominios" then
banner1 = "estrela_mar_150x86"
banner1_w = 150
banner1_h = 86
elseif tipo_hosp = "pousadas" then
banner1 = "peixesdomar150x86"
banner1_w = 150
banner1_h = 86
else
banner1 = "imoveis150"
banner1_w = 150
banner1_h = 86
end if
if tipo_hosp = "pousadas" or tipo_hosp = "hoteis" then
banner3 = "areiadomar150x86"
banner3_w = 150
banner3_h = 86
else
banner3 = "imoveis150"
banner3_w = 150
banner3_h = 86
end if
if tipo_hosp = "" then
banner3 = "torremolinos150x86"
banner3_w = 150
banner3_h = 86
end if
'FIM DA PESQUISA AVANÇADA
elseif tipo_hosp <> "" then
call banners_tipos()
else
'CHAMA FUNÇÃO DA PESQUISA SIMPLES
call banners_simples()
end if
'PESQUISA SIMPLES
function banners_simples()
'BANNER ESQUERDA (150 X 86)
select case praia
case 23 'Enseada
banner1 = "areiadomar150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
case 37 'Centro
banner1 = "pouso150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
case 38 'Itaguá
banner1 = "pouso150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
case 49 'Maranduba
banner1 = "portodoeixo150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
case 70 'Toninhas
banner1 = "casagrande150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
case else
banner1 = "pouso150x86"
banner1_w = 150
banner1_h = 86
banner1_cor = "FFFFFF"
end select
'BANNER CENTRA (401 X 88)
'banner2_a = "wembley401x88"
'banner2_a_w = 401
'banner2_a_h = 88
'BANNER DIREITA (150 X 86)
select case praia
case 45 'Lazaro
banner3 = "estrela_mar_150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
'case 49 'Maranduba
'banner3 = "pajucara150"
'banner3_w = 150
'banner3_h = 86
'banner3_cor = "FFFFFF"
case 36 'Grande
banner3 = "ubamar150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
case 37 'Iperoig ou Cruzeiro
banner3 = "charuta150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
case 38 'Itagua
banner3 = "charuta150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
case 23 'Enseada
banner3 = "marepraia150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
case 43 'lagoinha
banner3 = "portodoeixo150x86"
banner3_w = 150
banner3_h = 86
banner3_cor = "FFFFFF"
case 70 'Casamento na praia
banner3 = "casamento150x86"
banner3_w = 150
banner3_h = 86
case else
banner3_cor = "FFFFFF"
banner3 = "areiadomar150x86" ' Antes era "imoveis150"
banner3_w = 150
banner3_h = 86
end select
end function
''FIM banners superiores
%>
<%=title_page%>
<%
Response.write ""
%>
<%Response.Flush%>
<%=nome_praia%>
Hospedagens selecionadas para envio de e-mail:
0
<%
if praia <> "0" then
'Response.write ""
'Response.write ""
'Response.write ""
'Response.write "Conheça a praia
"
else
Response.write ""
Response.write ""
Response.write ""& nome_praia &"
"
end if%>
CLIQUE SOBRE O ESTABELECIMENTO E VEJA FOTOS E INFORMAÇÕES SOBRE O MESMO.
Envie emails para os estabelecimentos, clicando no box ao lado do nome.
Para efetuar uma reserva no estabelecimento, clique em
Para verificar as avaliações dos hóspedes, clique em
"
call fim_tabela()
else
fim_tabela()
end if
end if
loop
vazio = 1
end if
set rsquery = nothing
end function
'FIM MOSTRAR HOSPEDAGEM NA TELA--------------------------------------
if vazio = 0 then call tabela_naoencontrado()
conexao.Close
set conexao = nothing
'''FUNCÇÕES
function tabela_naoencontrado()
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write "Pesquisa de Hospedagem"
Response.write "
"
Response.write ""
Response.write "
"
Response.write "
"
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ucase("Não foi encontrado nenhum item nessa pesquisa.")
Response.write "
"
Response.write " "
Response.write " "
Response.write "
"
Response.write "
"
end function
function inicio_tabela()
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
'Response.write ""
'Response.write ""
Response.write ""
'
Response.write "
"
Response.write ""
Response.write "
"
Response.write "
"
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write ""
end function
function cria_celula()
cod = rsquery("cod")
email_ativo = rsquery("email_ativo")
ativo = rsquery("ativo")
'Insere os campos de checkbox existentes na variável envia_campos Nakamura
if envia_campos = "" then
envia_campos = "cod_" & cod
else
envia_campos = envia_campos & "," & "cod_" & cod
end if
Response.write ""
end function
function celula_vazia()
Response.write ""
Response.write ""
Response.write " "
Response.write " "
Response.write ""
Response.write " "
Response.write " "
Response.write " "
Response.write ""
Response.write "
"
Response.write " "
Response.write " "
Response.write "
"
end function
function fim_tabela()
Response.write "
"
Response.write "
"
end function
'''FIM FUNCÇÕES
Response.Write " "
%>
<%
'Response.write ""
Response.write ""
Response.Flush
Response.Clear()
%>