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
"
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 "
"
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 "
"
if email_ativo = true and ativo = 2 then
Response.write ""
else
Response.write " "
end if
Response.write "
"
Response.write "
"
if email_ativo = true and ativo = 2 then
Response.write ""
Response.write ""
else
Response.write " "
end if
Response.write "
"
if (rsquery("cod")) = "23" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "119" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "13" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "127" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "92" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "165" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "85" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "65" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "80" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "79" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "87" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "177" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "239" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "11" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "195" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "213" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "93" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "142" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "90" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "29" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "64" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "110" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "128" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "247" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "31" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "210" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "174" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "32" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "27" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "254" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "60" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "71" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "220" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "255" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "33" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "229" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "70" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "75" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "152" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "111" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "91" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "199" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "261" then
Response.write ""
Response.write ""
else
if (rsquery("cod")) = "265" then
Response.write ""
Response.write ""
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 ""
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 ""
%>