<%@ 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")
%><!--#include file="../conexao.asp"--><%

'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


%>
<!--#include file="../configs/include/mostra_banner.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META NAME="Description" lang="pt-br" CONTENT="Caragua sp – A rede de hospedagem de Caragua é uma das maiores de cidades do Brasil. Diversos hotéis, pousadas, chalés, campings, apartamentos e imoveis para temporada num sistema de pesquisa rápido e eficiente. Hotéis e Pousadas com sites próprios e muitas fotos de caragua.">
<META NAME="Keywords" lang="pt-br" CONTENT="caragua, caragua sp, cidade de caragua, pousada caragua, pousadas caragua, pousada de caragua, pousadas de caragua, pousada em caragua, pousadas em caragua, hoteis caragua, hotel caragua, hoteis de caragua, hotel de caragua, hoteis em caragua, hotel em caragua, hotéis caragua, hotéis de caragua,  hotéis em caragua, hospedagem caragua, hospedagem em caragua, hospedagem de caragua">
<TITLE><%=title_page%></TITLE>
<link rel="stylesheet" type="text/css" href="../configs/css/geral.css"/>
<!-- Modificado por Marcio Nakamura -->
<script language="javascript">
function md_chkbx(){
	for (i=0;i<document.hosp.elements.length;i++){
		if(document.hosp.elements[i].type == "checkbox" && document.hosp.elements[i].name != "cod_selecionar_tudo"){
			if(document.hosp.elements[i].checked == 0){
				document.hosp.elements[i].checked=1; 
				contar(document.hosp.elements[i].name);
			}else{
				document.hosp.elements[i].checked=0;
				document.hosp.contador.value = 0;
			}
		}
	}
}
</script>
<!-- Fim Modificado por Marcio Nakamura -->
<script src="../configs/js/allscript.js" type="text/javascript"></script>
<SCRIPT LANGUAGE="javascript">AC_FL_RunContent = 0;</SCRIPT>
<SCRIPT SRC="http://www.caraguatrip.com.br/images/banners_flash.js" LANGUAGE="javascript"></SCRIPT>

<%
Response.write "<script LANGUAGE='javascript'>" & chr(13)
Response.write "function contar(mostra){"
Response.write "var val, conta;"
Response.write "val=MM_findObj(mostra);"
Response.write "conta = Number(document.hosp.contador.value);"
Response.write "if (val.checked == true){"
Response.write "if (document.hosp.contador.value >= "& email_selecionavel &"){"
Response.write "val.checked = false;"
Response.write "alert('Só é possível selecionar "& email_selecionavel &" e-mails por vez.');"
		
Response.write "}else{"
Response.write "conta ++;"
Response.write "document.hosp.contador.value = conta ;"
Response.write "}"
Response.write "}else{"
Response.write "conta --;"
Response.write "document.hosp.contador.value = conta;"
Response.write "}"
Response.write "obj = document.getElementById('txt_contador'); "
Response.write "obj.childNodes[0].data= conta;"
Response.write "}"

Response.write "</script>"
%>

<script LANGUAGE="javascript">


function clica_box(cbox){
if (document.hosp[cbox].checked == false){
	document.hosp[cbox].checked = true
}else{
	document.hosp[cbox].checked = false
}
contar(cbox);
}


function contar(mostra){
var val, conta
val=MM_findObj(mostra)
conta = Number(document.hosp.contador.value);

if (val.checked == true){
	if (document.hosp.contador.value >= 10){
	val.checked = false;
		alert('Só é possível selecionar 10 e-mails por vez.');
		
	}else{
	 conta ++;
		document.hosp.contador.value = conta ;
	}
}else{
	conta --;
	document.hosp.contador.value = conta;
}
obj = document.getElementById('txt_contador'); 
obj.childNodes[0].data= conta ;
}


function envia_cotacao(x){
//alert ("Enviando");

//window.location.href = 'hospedagem_email.asp?tipo='+x;

if (validar_form() == true){
document.hosp.submit();
}

}

function validar_form(){

if (document.hosp.contador.value == '0'){
	alert('Favor selecionar pelo menos um estabelecimento.');
	return false;
}else{
	//document.hosp.B1.value='Aguarde...';
	//document.hosp.B1.disabled = true;
	return true;
}
 
}
</script>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%Response.Flush%>
<div align="center">
	<table width="1000" cellspacing="0" cellpadding="0" style="border: 0px solid #808080">
		<tr>
			<td>
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
				<tr>
					 <!--#include file="../configs/include/include_menu_topo.asp"-->
				</tr>
				<tr>
					<td background="../images/topofundo3.jpg" height="109">
					<table border="0" width="100%" cellspacing="0" cellpadding="0">
						<tr>
							<td  align="center" width="170" height="86">
							
							
							</td>
							<td width="660">
							<p align="center">
							</td>
							<td align="center" width="170">
							
							
							</td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td width="1000" valign="top">
					<table border="0" width="100%" cellspacing="0" cellpadding="0">
												<tr>
							<td height="30" bgcolor="#142C74">  <!--#include file="../configs/include/include_menu_central.asp"-->
							</td>
						</tr>
						<tr>
							<td background="../images/linha.gif" bgcolor="#FFFFFF" height="2">
								<p align="center"><span style="font-size: 1pt">&nbsp;</span></td>
						</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td>
					<table border="0" width="100%" cellspacing="0" cellpadding="0">
						<tr>
							<td width="170" valign="top" bgcolor="#ECEBEB" align="center">

&nbsp;

<script type="text/javascript"><!--
google_ad_client = "ca-pub-9630449311308074";
/* CaraguaLateral4 */
google_ad_slot = "3013141824";
google_ad_width = 120;
google_ad_height = 600;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


</td>
							<td align="center" valign="top">
							<table border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr>
				<td background="../images/barratitulo2.jpg" height="40">
				<table border="0" width="100%" cellspacing="0" cellpadding="0">
					<tr>
						<td height="28">
				<table border="0" width="100%" cellspacing="0" cellpadding="0">
					<tr>
						<td width="60">&nbsp;<font face="Verdana" size="2"><a class="link_hosp_voltar" href="listar.asp">Voltar</a></font></td>
						<td>
				<p align="center"><b>
				<font face="Tahoma" size="3" color="#FFFFFF">Hospedagem em Caragua</font></b></td>
						<td width="60">
				&nbsp;</td>
					</tr>
				</table>
						</td>
					</tr>
					<tr>
						<td>
						<p align="center">
						<font face="Verdana" style="font-size: 6pt">&nbsp;</font></td>
					</tr>
				</table>
				</td>
			</tr>
			<tr>
				<td>
				<table border="0" width="100%" cellspacing="0" cellpadding="0">
					<tr>
				<td>
<table width='100%' id='table21' height='40' cellspacing="3" cellpadding="0"><tr>
<td width="156" bgcolor="#E7ECF1">
<p align="center">
<span style="font-weight: 700">
<font face="Tahoma" style="font-size: 8pt"><%=nome_praia%></font></span></td>
<td bgcolor="#E7ECF1">
<p align="center">
<font face="Verdana" style="font-size: 1pt">
<br>
</font>
<font face="Tahoma" style="font-size: 9pt" STYLE="letter-spacing: 1pt">Hospedagens selecionadas para envio de e-mail: <b><font id="txt_contador" color="#1169B5">
0</font></b></font></td>
<%

if praia <> "0" then
					
'Response.write "<td width='156' ONMOUSEOVER='movein(this)' ONMOUSEOUT='moveout(this)' BORDER='0' CELLPADDING='2' STYLE='border-collapse: collapse;cursor:pointer' bgcolor='#E7ECF1'><p align='center'>"
'Response.write "<b><font face='Verdana' style='font-size: 8pt'>"
'Response.write "<a target='_blank' href='"& link_praia &"' style='text-decoration: none'>"
'Response.write "<font color='#1169B5'>Conheça a praia</font></a></font></b></td>"

else

Response.write "<td width='156' BORDER='0' CELLPADDING='2' STYLE='border-collapse: collapse;' bgcolor='#E7ECF1'><p align='center'>"
Response.write "<b><font face='Verdana' style='font-size: 8pt'>"
Response.write "<font color='#000000'>"& nome_praia &"</font></font></b></td>"

end if%>
					
					</tr></table>				
	<table border="0" width="100%" cellspacing="6">
					<tr>
				<td>
</td>
					</tr>
					<tr>
				<td>
						<p align="center">
<font face="Verdana" style="font-size: 8pt; font-weight: 700">CLIQUE SOBRE O ESTABELECIMENTO E VEJA FOTOS E INFORMAÇÕES SOBRE O MESMO.<br><br><font color=red>
Envie emails para os estabelecimentos, clicando no box ao lado do nome.</font>

<br> 
Para efetuar uma reserva no estabelecimento, clique em <img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'>
<br>
Para verificar as avaliações dos hóspedes, clique em <img alt='Avaliacao' border='0' src='../images/triplogo.jpg' width='20' height='11' alt='Ver Avaliacoes'>

</font></td>
					</tr>
					</table>
				</td>
					</tr>
					</table>
				</td>
			</tr>
		</table>

<form name="hosp" METHOD="POST" ACTION="hospedagem_email.asp" onSubmit="return validar_form(this);">

<!-- Modificado por Marcio Nakamura -->
<!-- <INPUT TYPE="hidden" name="contador" value="0" > -->
<INPUT TYPE="hidden" name="contador" value="1" >
<!-- Fim Modificado por Marcio Nakamura -->
<%
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_caragua_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 "<tr><td width='50%'>"
			call cria_celula()
			Response.write "</td>"
		else
			Response.write "<td width='50%'>"
			call cria_celula()
			response.write "</td></tr>"
		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 "<td width='50%'>"
				call celula_vazia()
				response.write "</td></tr>"
				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 "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td background='../images/barratitulo2.jpg' height='40'>"

Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td height='28'>"
Response.write "<p align='center'><b>"
Response.write "<font face='Tahoma' size='3' color='#FFFFFF'>"
Response.write "Pesquisa de Hospedagem"
Response.write "</font></b></td></tr><tr><td>"
Response.write "<p align='center'>"
Response.write "<font face='Verdana' style='font-size: 6pt'>&nbsp;</font></td>"
Response.write "</tr></table></td></tr><tr><td>"

Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr><td>"
Response.write "<table border='0' width='100%' cellspacing='6'>"
Response.write "<tr><td>"
	
Response.write "<TABLE HEIGHT='20' BGCOLOR='#E7ECF1' BORDER='0' CELLPADDING='2' STYLE='border-collapse: collapse;' WIDTH='98%' >"
Response.write "<TR>"
Response.write "<TD WIDTH='100%'>"
Response.write "<b><P ALIGN='center'><FONT COLOR='#000000' FACE='Verdana' style='font-size:10px;'>"
Response.write ucase("Não foi encontrado nenhum item nessa pesquisa.")
Response.write "</font></p></b>"
Response.write "</TD>"
Response.write "</TR>"
Response.write "</TABLE>"	
	

Response.write "</td></tr></table></td></tr></table></td></tr></table>"
end function

function inicio_tabela()

Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td background='../images/barratitulo2.jpg' height='40'>"
Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td height='28'>"
'Response.write "<p align='center'><b>"
'Response.write "<font face='Tahoma' size='3' color='#FFFFFF'>"

Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td width='220'>&nbsp;</td>"
Response.write "<td width='220'>"
Response.write "<p align='left'><b>&nbsp;"
Response.write "<font face='Tahoma' size='3' color='#FFFFFF'>"
if rsquery("mostrar") = "Campings" then
   Response.write "Outros Estabelecimentos" 
Response.write "</font></b></td>"
else
   Response.write rsquery("mostrar")
Response.write " em Caragua</font></b></td>"
end if
Response.write "<td width='220'>"
Response.write "<p align='right'>"

'select case lcase(rsquery("mostrar"))

'case "hotéis"
'	Response.write "<img style='cursor:pointer' id='cota_1' onclick='envia_cotacao(1)' alt='Cotar todos os hotéis da lista' title='Cotar todos os hotéis da lista' border='0' src='imagens/cotar_hoteis.png' hspace='4' >"
'case "pousadas"
'	Response.write "<img style='cursor:pointer' id='cota_2' onclick='envia_cotacao(2)' alt='Cotar todos as pousadas da lista' title='Cotar todos as pousadas da lista' border='0' src='imagens/cotar_pousadas.png' hspace='4' >"
'case "chalés"
'	Response.write "<img style='cursor:pointer' id='cota_3' onclick='envia_cotacao(3)' alt='Cotar todos os chalés da lista' title='Cotar todos os chalés da lista' border='0' src='imagens/cotar_chales.png' hspace='4' >"
'case "condomínios"
'	Response.write "<img style='cursor:pointer' id='cota_4' onclick='envia_cotacao(4)' alt='Cotar todos os condomínios da title' alt='Cotar todos os condomínios da lista' border='0' src='imagens/cotar_condominios.png' hspace='4' >"
'case "flats"
'	Response.write "<img style='cursor:pointer' id='cota_5' onclick='envia_cotacao(5)' alt='Cotar todos os flats da lista' title='Cotar todos os flats da lista' border='0' src='imagens/cotar_flats.png' hspace='4' >"
'case "campings"
'	Response.write "<img style='cursor:pointer' id='cota_6' onclick='envia_cotacao(6)' alt='Cotar todos os campings da lista' title='Cotar todos os estabelecimentos da lista' border='0' src='imagens/cotar_campings.png' hspace='4' >"
'end select

Response.write "<img style='cursor:pointer' id='cota_7' onclick='envia_cotacao(7)' alt='Cotar estabelecimentos selecionados' title='Cotar estabelecimentos selecionados' border='0' src='imagens/cotar_email.png' hspace='4' >"


Response.write "</td></tr>"
Response.write "</table>"


'</font></b>
Response.write "</td></tr><tr><td>"
Response.write "<p align='center'>"
Response.write "<font face='Verdana' style='font-size: 6pt'>&nbsp;</font></td>"
Response.write "</tr></table></td></tr><tr><td>"
Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr><td>"
Response.write "<table border='0' width='100%' cellspacing='6'>"
Response.write "<tr><td>"


Response.write "<table border='0' width='100%' cellspacing='3' cellpadding='0'>"

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 "<TABLE HEIGHT='20' BGCOLOR='#E7ECF1' BORDER='0' CELLPADDING='2' STYLE='border-collapse: collapse;' WIDTH='98%' >"
Response.write "<TR>"
Response.write "<TD WIDTH='20px'>"
if email_ativo = true and ativo = 2 then
	Response.write "<input onclick=contar('cod_"& cod &"') type='checkbox' name='cod_"& cod &"' value='1' unchecked='checked'>"
else
	Response.write "&nbsp;"
end if
Response.write "</TD>"
Response.write "<TD WIDTH='32px'>"
if email_ativo = true and ativo = 2 then
	Response.write "<a href="& CHR(34) &"javascript:clica_box('cod_"& cod &"');"& CHR(34) &">"
	Response.write "<img alt='Selecionar' border='0' src='../images/envelope2.gif' width='32' height='20'></a>"
else
	Response.write "&nbsp;"
end if
Response.write "</TD>"
Response.write "<TD STYLE='text-align:left; padding-left:6px'>"
if ativo = 2 then
	Response.write "<a class='link_hosp_list' target='_blank' href='"& rsquery("link") &"'>"
	Response.write ucase(rsquery("nome"))
	Response.write "</a>"
else
	response.write "<b><FONT COLOR='#000000' FACE='Verdana' style='font-size:10px;'> " & ucase(rsquery("nome")) & "</font></b>"
end if
Response.write "</TD>"


Response.write "<TD WIDTH='32px'>"

if (rsquery("cod")) = "2" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/carasol-residence.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "7" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/tabatinga.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "19" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/aguas-vivas.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "46" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/costa-norte-massaguaassu.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "15" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/pousada-econosco.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "3" then
                  Response.write "<a target='_blank' href=http://www.booking.com/hotel/br/apart-paradise.pt-br.html?aid=357769;lang=pt-br>"
                  Response.write "<img alt='Reserve' border='0' src='../images/book3.jpg' width='38' height='17' alt='Reserve Agora'></a>"
else
                  Response.write "&nbsp;"
end if
end if
end if
end if
end if
end if
	
Response.write "</TD>"


Response.write "<TD WIDTH='20px'>"

if (rsquery("cod")) = "2" then
                  Response.write "<a target='_blank' href=http://www.tripadvisor.com.br/Hotel_Review-g675037-d2284015-Reviews-CaraSol_Hotel-Caraguatatuba_State_of_Sao_Paulo.html>"
                  Response.write "<img alt='Reserve' border='0' src='../images/triplogo.jpg' width='20' height='11' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "7" then
                  Response.write "<a target='_blank' href=http://www.tripadvisor.com.br/Hotel_Review-g675037-d1746468-Reviews-Costa_Verde_Tabatinga_Hotel-Caraguatatuba_State_of_Sao_Paulo.html>"
                  Response.write "<img alt='Reserve' border='0' src='../images/triplogo.jpg' width='20' height='11' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "10" then
                  Response.write "<a target='_blank' href=http://www.tripadvisor.com.br/Hotel_Review-g675037-d4510174-Reviews-Hotel_Guanabara-Caraguatatuba_State_of_Sao_Paulo.html>"
                  Response.write "<img alt='Reserve' border='0' src='../images/triplogo.jpg' width='20' height='11' alt='Reserve Agora'></a>"
else
if (rsquery("cod")) = "15" then
                  Response.write "<a target='_blank' href=http://www.tripadvisor.com.br/Hotel_Review-g675037-d2470960-Reviews-Pousada_Econosco-Caraguatatuba_State_of_Sao_Paulo.html>"
                  Response.write "<img alt='Reserve' border='0' src='../images/triplogo.jpg' width='20' height='11' alt='Reserve Agora'></a>"
else

	Response.write "&nbsp;"
end if
end if
end if
end if


Response.write "</TD>"


Response.write "<TD WIDTH='1%'>"
Response.write "<P ALIGN='center' STYLE='line-height: 100%; margin-bottom: 0'></P>"
Response.write "</TD>"
Response.write "</TR>"
Response.write "</TABLE>"

end function


function celula_vazia()

Response.write "<TABLE HEIGHT='20' BGCOLOR='#E7ECF1' BORDER='0' CELLPADDING='2' STYLE='border-collapse: collapse;' WIDTH='98%' >"
Response.write "<TR>"
Response.write "<TD WIDTH='10px'>&nbsp;"
Response.write "</TD>"
Response.write "<TD WIDTH='10px'>"
Response.write "&nbsp;</TD>"
Response.write "<TD STYLE='text-align:left; padding-left:6px'>&nbsp;"
Response.write "</TD>"
Response.write "<TD WIDTH='19%'>"
Response.write "<P ALIGN='center' STYLE='line-height: 100%; margin-bottom: 0'></P>"
Response.write "</TD>"
Response.write "</TR>"
Response.write "</TABLE>"

end function

		
function fim_tabela()

Response.write "</table>"

Response.write "</td></tr></table></td></tr></table></td></tr></table>"

end function
'''FIM FUNCÇÕES

Response.Write "<input type='hidden' value='"&envia_campos&"' name='envia_campos'>"
%>
							<table border="0" width="100%" cellspacing="4" cellpadding="0">
								<tr>
									<td width="50%" valign="top">
									<!-- Modificado por Marcio Nakamura -->
									&nbsp;&nbsp;<!input onclick="md_chkbx()" type="checkbox" name="cod_selecionar_tudo" value="1"  unchecked='checked'> 
<b><font color="#0000FF">Marcar somente 10 estabelecimentos</b></font>
									<!-- Fim Modificado por Marcio Nakamura -->
									<p align="center">
									&nbsp;</td>
									<td>
									<p align="center" style="margin-top: 3px; margin-bottom: 3px">
									<input type="image" src='imagens/cotar_email.png' value="ENVIAR E-MAIL" name="B1"><p align="center" style="margin-top: 3px; margin-bottom: 3px">
									<font face="Verdana" size="2">
									<a href="javascript:AbrirJanela('email_generico.htm','',776,410)" style="text-decoration: none">
									<font color="#0000FF">Como fazer isso?</font></a></font></td>
								</tr>
</table>
							</form><center>


<br></br><p></P>
<script type="text/javascript"><!--
google_ad_client = "ca-pub-9630449311308074";
/* CaraguaRodape1 */
google_ad_slot = "4769076621";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


							</td>
							<td width="130" align="center" bgcolor="#ECEBEB" valign="top">
							<table border="0" width="170" cellspacing="0" cellpadding="0" bgcolor="#ECEBEB">
									<tr>
<td width="100%" align="center">
&nbsp;

<script type="text/javascript"><!--
google_ad_client = "ca-pub-9630449311308074";
/* CaraguaLateral1 */
google_ad_slot = "7722543020";
google_ad_width = 120;
google_ad_height = 600;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


</td>

  									</tr>
									</table>
							</td>
							</tr>
						</table>
					</td>
					</tr>
					<tr>
						<!--#include file="../configs/include/include_rodape.asp"-->	
					</tr>
				</table>
			</td>
			</tr>
		</table>
	</div>

<%

'Response.write "<script LANGUAGE='javascript'>"

'if Session.Value("uba_hotel") = "1" then Response.write "document.pesquisa_avancada['hotel'].checked = true;"
'if Session.Value("uba_pousada") = "1" then Response.write "document.pesquisa_avancada['pousada'].checked = true;"
'if Session.Value("uba_chale") = "1" then Response.write "document.pesquisa_avancada['chale'].checked = true;"
'if Session.Value("uba_flat") = "1" then Response.write "document.pesquisa_avancada['flat'].checked = true;"
'if Session.Value("uba_condominio") = "1" then Response.write "document.pesquisa_avancada['condominio'].checked = true;"
'if Session.Value("uba_camping") = "1" then Response.write "document.pesquisa_avancada['camping'].checked = true;"


'Serviços basicos
'if Session.Value("uba_cafe") = "1" then Response.write "document.pesquisa_avancada['cafe'].checked = true;"
'if Session.Value("uba_serv_quarto") = "1" then Response.write "document.pesquisa_avancada['serv_quarto'].checked = true;"
'if Session.Value("uba_tv_aberta") = "1" then Response.write "document.pesquisa_avancada['tv_aberta'].checked = true;"
'if Session.Value("uba_frigobar") = "1" then Response.write "document.pesquisa_avancada['frigobar'].checked = true;"
'if Session.Value("uba_ventilador") = "1" then Response.write "document.pesquisa_avancada['ventilador'].checked = true;"
'if Session.Value("uba_ar") = "1" then Response.write "document.pesquisa_avancada['ar'].checked = true;"
'if Session.Value("uba_cozinha") = "1" then Response.write "document.pesquisa_avancada['cozinha'].checked = true;"
'if Session.Value("uba_cozinha_mae") = "1" then Response.write "document.pesquisa_avancada['cozinha_mae'].checked = true;"
'if Session.Value("uba_estacionamento") = "1" then Response.write "document.pesquisa_avancada['estacionamento'].checked = true;"
'if Session.Value("uba_estacionamento_f") = "1" then Response.write "document.pesquisa_avancada['estacionamento_f'].checked = true;"

'Serviços diferenciados
'if Session.Value("uba_serv_praia") = "1" then Response.write "document.pesquisa_avancada['serv_praia'].checked = true;"
'if Session.Value("uba_piscina") = "1" then Response.write "document.pesquisa_avancada['piscina'].checked = true;"
'if Session.Value("uba_play_ground") = "1" then Response.write "document.pesquisa_avancada['play_ground'].checked = true;"
'if Session.Value("uba_salao_jogos") = "1" then Response.write "document.pesquisa_avancada['salao_jogos'].checked = true;"
'if Session.Value("uba_esportes") = "1" then Response.write "document.pesquisa_avancada['esportes'].checked = true;"
'if Session.Value("uba_internet_wifi") = "1" then Response.write "document.pesquisa_avancada['internet_wifi'].checked = true;"
'if Session.Value("uba_internet") = "1" then Response.write "document.pesquisa_avancada['internet'].checked = true;"
'if Session.Value("uba_lanchonete") = "1" then Response.write "document.pesquisa_avancada['lanchonete'].checked = true;"
'if Session.Value("uba_restaurante") = "1" then Response.write "document.pesquisa_avancada['restaurante'].checked = true;"
'if Session.Value("uba_refeicao") = "1" then Response.write "document.pesquisa_avancada['refeicao'].checked = true;"
'if Session.Value("uba_tv_fechada") = "1" then Response.write "document.pesquisa_avancada['tv_fechada'].checked = true;"
'if Session.Value("uba_filmes") = "1" then Response.write "document.pesquisa_avancada['filmes'].checked = true;"
'if Session.Value("uba_churrasqueira") = "1" then Response.write "document.pesquisa_avancada['churrasqueira'].checked = true;"
'if Session.Value("uba_frente_mar") = "1" then Response.write "document.pesquisa_avancada['frente_mar'].checked = true;"

'Serviços especiais
'if Session.Value("uba_animais") = "1" then Response.write "document.pesquisa_avancada['animais'].checked = true;"
'if Session.Value("uba_deficientes") = "1" then Response.write "document.pesquisa_avancada['deficientes'].checked = true;"


'Response.write "</script>"

Response.write "<script>"
Response.write "document.hosp.reset();"
Response.write "</script>"

Response.Flush
Response.Clear()
%>

</body>

</html>