<%@ 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 ' UBATUBA 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 = "Ubatuba - Hotéis em Ubatuba" case "pousadas" Session.Value("uba_pousada") = "1" title_page = "Ubatuba - Pousadas em Ubatuba" case "chales" Session.Value("uba_chale") = "1" title_page = "Ubatuba - Chalés em Ubatuba" case "flats" Session.Value("uba_flat") = "1" title_page = "Ubatuba - Flats em Ubatuba" case "condominios" Session.Value("uba_condominio") = "1" title_page = "Ubatuba - Condomínios em Ubatuba" case "campings" Session.Value("uba_camping") = "1" title_page = "Ubatuba - Campings em Ubatuba" case else title_page = "Ubatuba - Hospedagem em Ubatuba" 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 = "UBATUBA" else consulta_sql = "SELECT praia, link FROM ubatuba_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_ubatuba_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 = "imoveis150" banner1_w = 150 banner1_h = 86 elseif tipo_hosp = "pousadas" then banner1 = "imoveis150" banner1_w = 150 banner1_h = 86 else banner1 = "imoveis150" banner1_w = 150 banner1_h = 86 end if if tipo_hosp = "pousadas" then banner3 = "peixesdomar160x106" banner3_w = 160 banner3_h = 106 else banner3 = "areiadomar150x86" 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 24 'Enseada banner1 = "areiadomar150x86" banner1_w = 150 banner1_h = 86 banner1_cor = "FFFFFF" case 37 'Centro banner1 = "imoveis150" banner1_w = 150 banner1_h = 86 banner1_cor = "FFFFFF" case 38 'Itaguá banner1 = "imoveis150" 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 = "imoveis150" 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 %> Guia de Ubatuba - Hoteis, Pousadas, Chales e Campings em Ubatuba <% Response.write "" %> <%Response.Flush%>
<%call mostrar_banners2("", "banneranunc/hospedagem/"& banner1, banner1, banner1_w, banner1_h, banner1_cor, 1,"transparent")%> <% call mostrar_banners2("", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") %>

 

" else Response.write "" end if rsquery.movenext if rsquery.eof = false then if falta >= 2 then falta = 1 else falta = falta + 1 end if else if falta = 1 then Response.write "" 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 "
<% 'Banners esquerda if tipo_hosp = "" then cont_banners = 1 do while cont_banners <= cima Response.Write "" cont_banners = cont_banners + 1 loop else if tipo_hosp = "pousadas" then Response.Write "" elseif tipo_hosp = "hoteis" then Response.Write "" end if end if if praia = 23 or praia = 70 then %> <%end if%>
 
" call mostrar_banners2(banners(cont_banners,2), "banneranunc/hospedagem/" & banners(cont_banners,3), banners(cont_banners,3), banners(cont_banners,4), banners(cont_banners,5), "FFFFFF",1 ,"transparent") Response.Write "
 
" banner3 = "kaliman160x106" banner3_w = 160 banner3_h = 106 banner3_cor = "FFFFFF" call mostrar_banners2("Pousada Kaliman", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") Response.Write "
 
" banner3 = "torremolinos160x230" banner3_w = 160 banner3_h = 230 banner3_cor = "FFFFFF" call mostrar_banners2("Hotel Torremolinos", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") Response.Write "
 
 

           Pesquisa por tipo :     Hotéis - Pousadas - Chalés - Flats - Condomínios - Campings

 

<% if praia <> "0" then 'Response.write "" else Response.write "" end if%>

<%=nome_praia%>


Hospedagens selecionadas para envio de e-mail: 0/10

" 'Response.write "" 'Response.write "" 'Response.write "Conheça a praia

" Response.write "" Response.write ""& nome_praia &"

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 Reserve

<% dim vazio, cod, ativo, acao, destaque, destaque_usado, email_ativo, aberta, falta, envia_campos, indiferente, cod_tipo envia_campos = "" vazio = 0 campos = "" '''' 'if Session.Value("uba_hotel") = "1" then campos = campos & "and hotel like '1' " 'if Session.Value("uba_pousada") = "1" then campos = campos & "and pousada like '1' " 'if Session.Value("uba_chale") = "1" then campos = campos & "and chale like '1' " 'if Session.Value("uba_flat") = "1" then campos = campos & "and flat like '1' " 'if Session.Value("uba_condominio") = "1" then campos = campos & "and condominio like '1' " 'if Session.Value("uba_camping") = "1" then campos = campos & "and camping like '1' " 'if Session.Value("uba_nome") = "1" then campos = campos & "and nome like '1' " if Session.Value("uba_cafe") = "1" then campos = campos & "and cafe like '1' " if Session.Value("uba_serv_quarto") = "1" then campos = campos & "and serv_quarto like '1' " if Session.Value("uba_tv_aberta") = "1" then campos = campos & "and tv_aberta like '1' " if Session.Value("uba_frigobar") = "1" then campos = campos & "and frigobar like '1' " if Session.Value("uba_ventilador") = "1" then campos = campos & "and ventilador like '1' " if Session.Value("uba_ar") = "1" then campos = campos & "and ar like '1' " if Session.Value("uba_cozinha") = "1" then campos = campos & "and cozinha like '1' " if Session.Value("uba_cozinha_mae") = "1" then campos = campos & "and cozinha_mae like '1' " if Session.Value("uba_cozinha_comuni") = "1" then campos = campos & "and cozinha_comuni like '1' " if Session.Value("uba_estacionamento") = "1" then campos = campos & "and estacionamento like '1' " if Session.Value("uba_estacionamento_f") = "1" then campos = campos & "and estacionamento_f like '1' " if Session.Value("uba_estacionamento_simples") = "1" then campos = campos & "and estacionamento_simples like '1' " if Session.Value("uba_serv_praia") = "1" then campos = campos & "and serv_praia like '1' " if Session.Value("uba_piscina") = "1" then campos = campos & "and piscina like '1' " if Session.Value("uba_play_ground") = "1" then campos = campos & "and play_ground like '1' " if Session.Value("uba_salao_jogos") = "1" then campos = campos & "and salao_jogos like '1' " if Session.Value("uba_esportes") = "1" then campos = campos & "and esportes like '1' " if Session.Value("uba_internet_wifi") = "1" then campos = campos & "and internet_wifi like '1' " if Session.Value("uba_internet") = "1" then campos = campos & "and internet like '1' " if Session.Value("uba_lanchonete") = "1" then campos = campos & "and lanchonete like '1' " if Session.Value("uba_restaurante") = "1" then campos = campos & "and restaurante like '1' " if Session.Value("uba_refeicao") = "1" then campos = campos & "and refeicao like '1' " if Session.Value("uba_refeicao_c") = "1" then campos = campos & "and refeicao_c like '1' " if Session.Value("uba_tv_fechada") = "1" then campos = campos & "and tv_fechada like '1' " if Session.Value("uba_tv_cabo") = "1" then campos = campos & "and tv_cabo like '1' " if Session.Value("uba_filmes") = "1" then campos = campos & "and filmes like '1' " if Session.Value("uba_churrasqueira") = "1" then campos = campos & "and churrasqueira like '1' " if Session.Value("uba_frente_mar") = "1" then campos = campos & "and frente_mar like '1' " if Session.Value("uba_cem_metros") = "1" then campos = campos & "and cem_metros like '1' " if Session.Value("uba_apto_conj") = "1" then campos = campos & "and apto_conj like '1' " if Session.Value("uba_animais") = "1" then campos = campos & "and animais like '1' " if Session.Value("uba_deficientes") = "1" then campos = campos & "and deficientes like '1' " '''' if praia <> "" and praia <> 0 then campos = campos & "and cod_praia like '"& praia &"' " if tipo_pesquisa = "2" then campos = campos & "and nome like '%"& Session.Value("uba_nome") &"%' " campos = campos & "and cod_cidade like '"& cidade &"'" '''''''''''''''''''''''''''''''''''''''''''''''''''' indiferente = 0 if Session.Value("uba_hotel") <> "1" and Session.Value("uba_pousada") <> "1" and Session.Value("uba_chale") <> "1" and Session.Value("uba_flat") <> "1" and Session.Value("uba_condominio") <> "1" and Session.Value("uba_camping") <> "1" then indiferente = 1 end if if Session.Value("uba_hotel") = "1" or indiferente = 1 then cod_tipo = 1 call mostra_hospedagem() end if if Session.Value("uba_pousada") = "1" or indiferente = 1 then cod_tipo = 2 call mostra_hospedagem() end if if Session.Value("uba_chale") = "1" or indiferente = 1 then cod_tipo = 3 call mostra_hospedagem() end if if Session.Value("uba_flat") = "1" or indiferente = 1 then cod_tipo = 4 call mostra_hospedagem() end if if Session.Value("uba_condominio") = "1" or indiferente = 1 then cod_tipo = 5 call mostra_hospedagem() end if if Session.Value("uba_camping") = "1" or indiferente = 1 then cod_tipo = 6 call mostra_hospedagem() end if 'MOSTRAR HOSPEDAGEM NA TELA-------------------------------------- function mostra_hospedagem() 'if tipo = 0 or tipo = 1 then acao = 0 aberta = 0 'SEM DESTAQUE consulta_sql = "SELECT destaque, cod, cod_tipo, mostrar, link, email_ativo, nome, ativo FROM view_ubatuba_hospedagem Where (ativo like '1' or ativo like '2') "&campos&" and cod_tipo like '"& cod_tipo &"' ORDER BY NEWID()" set rsquery = Conexao.execute(consulta_sql) acao = 2 if rsquery.eof = false then falta = 1 call inicio_tabela() do while rsquery.eof = false if falta = 1 then response.write "
" call cria_celula() Response.write "" call cria_celula() response.write "
" call celula_vazia() response.write "
" 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 "

" Response.write ucase("Não foi encontrado nenhum item nessa pesquisa.") 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 rsquery("mostrar") Response.write " em Ubatuba

" Response.write "

" 'select case lcase(rsquery("mostrar")) 'case "hotéis" ' Response.write "Cotar todos os hotéis da lista" 'case "pousadas" ' Response.write "Cotar todos as pousadas da lista" 'case "chalés" ' Response.write "Cotar todos os chalés da lista" 'case "condomínios" ' Response.write "Cotar todos os condomínios da title" 'case "flats" ' Response.write "Cotar todos os flats da lista" 'case "campings" ' Response.write "Cotar todos os campings da lista" 'end select Response.write "Cotar estabelecimentos selecionados" 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 "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" if email_ativo = true and ativo = 2 then Response.write "" else Response.write " " end if Response.write "" if email_ativo = true and ativo = 2 then Response.write "" Response.write "Selecionar" else Response.write " " end if Response.write "" if ativo = 2 then Response.write "" Response.write ucase(rsquery("nome")) Response.write "" else response.write " " & ucase(rsquery("nome")) & "" end if Response.write "" if (rsquery("cod")) = "23" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "119" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "13" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "127" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "92" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "165" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "85" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "65" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "80" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "79" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "87" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "177" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "239" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "11" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "195" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "213" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "93" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "142" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "90" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "29" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "64" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "110" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "128" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "247" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "31" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "210" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "174" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "32" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "27" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "254" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "60" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "71" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "220" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "255" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "33" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "229" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "70" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "75" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "152" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "111" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "91" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "199" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "261" then Response.write "" Response.write "Reserve" else if (rsquery("cod")) = "265" then Response.write "" Response.write "Reserve" else Response.write " " end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if Response.write "" Response.write "

" 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 "" %>
   Marcar somente 10 Estabelecimentos

 

Como fazer isso?



<% 'Banners direita cont_banners = 1 if tipo_hosp = "" then do while cont_banners <= baixo Response.Write "" cont_banners = cont_banners + 1 loop else if tipo_hosp = "pousadas_xxxxxxxxxx" then Response.Write "" Response.Write "" Response.Write "" end if end if %>
 
" call mostrar_banners2(banners(cima + cont_banners,2), "banneranunc/hospedagem/" & banners(cima + cont_banners,3), banners(cima + cont_banners,3), banners(cima + cont_banners,4), banners(cima + cont_banners,5), "FFFFFF",1 ,"transparent") Response.Write "
 
" banner3 = "albatroz160x106" banner3_w = 160 banner3_h = 106 banner3_cor = "FFFFFF" call mostrar_banners2("Pousada Albatroz", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") Response.Write "
 
" banner3 = "faroldoitagua160x106" banner3_w = 160 banner3_h = 106 banner3_cor = "FFFFFF" call mostrar_banners2("Farol do Itaguá", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") Response.Write "
 
" banner3 = "manobra160x106" banner3_w = 160 banner3_h = 106 banner3_cor = "FFFFFF" call mostrar_banners2("Pousada Manobra", "banneranunc/hospedagem/" & banner3, banner3, banner3_w, banner3_h, banner3_cor, 1,"transparent") Response.Write "
 
 
<% 'Response.write "" Response.write "" Response.Flush Response.Clear() %>