%@ Language=VBScript %> <% option explicit Server.ScriptTimeout = 120 Response.Buffer = true dim link_serv link_serv = "../" dim tipo_pesquisa, praia, link_praia, nome_praia, cidade, tipo_hosp dim tipo_banner, tipo, campos 'Pega variáveis cidade = 1 ' Guarujá tipo_hosp = request.querystring("tipo") 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_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_estacionamento") = request.form("estacionamento") Session.Value("uba_estacionamento_f") = request.form("estacionamento_f") 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_tv_fechada") = request.form("tv_fechada") 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_animais") = request.form("animais") Session.Value("uba_deficientes") = request.form("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),"") select case tipo_hosp case "hoteis" Session.Value("uba_hotel") = "1" case "pousadas" Session.Value("uba_pousada") = "1" case "chales" Session.Value("uba_chale") = "1" case "flats" Session.Value("uba_flat") = "1" case "condominios" Session.Value("uba_condominio") = "1" case "campings" Session.Value("uba_camping") = "1" 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 '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 = "Guarujá" else consulta_sql = "SELECT praia, link, externo FROM guaruja_praia Where cod like '"&praia&"'" set rsquery = Conexao.execute(consulta_sql) if rsquery.eof = false then nome_praia = rsquery("praia") 'if rsquery("externo") = true then link_praia = rsquery("link") 'else ' 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_guaruja_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(8,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 then 'PESQUISA AVANÇADA banner1 = "fotos" banner1_w = 150 banner1_h = 86 banner1_cor = "FFFFFF" 'banner2_a = "moradadapraia401x88" 'banner2_a_w = 401 'banner2_a_h = 88 banner3 = "aldeiadesahy150x86" banner3_w = 150 banner3_h = 86 banner3_cor = "FFFFFF" elseif tipo_pesquisa = 2 or tipo_hosp <> "" then 'nome ou direta banner1 = "fotos" banner1_w = 150 banner1_h = 86 banner3 = "imoveis150" banner3_w = 150 banner3_h = 86 'FIM DA PESQUISA AVANÇADA 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 else banner1 = "fotos" 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 = "vivenda_150x86" 'banner3_w = 150 'banner3_h = 86 'banner3_cor = "FFFFFF" case else banner3_cor = "FFFFFF" banner3 = "imoveis150" banner3_w = 150 banner3_h = 86 end select end function ''FIM banners superiores %>
|