<%
con_abre
id = request.querystring("id")
subcat = request.querystring("subcat")
categoria = request.querystring("cat")
if id = "0" then
sql="select * FROM pacote WHERE status = 'ativo' AND idcategoria = '"&categoria&"' order by datasaida asc"
elseif id = "00" then
sql="select * FROM pacote WHERE status = 'ativo' AND idsubcategoria = '"&subcat&"' order by datasaida desc"
else
sql="select * FROM pacote WHERE status = 'ativo' and id = '"&id&"' order by datasaida asc"
end if
rs_sql(sql)
rs_abre
if grs.eof then
response.write "
Desculpe! Mas não obtemos resultados para sua busca!
"
else
idcategoria = grs("idcategoria")
idsubcategoria = grs("idsubcategoria")
sql="select * FROM categoria WHERE id = '"&idcategoria&"' AND status = 'ativo'"
rs_sql(sql)
rs_abre1
sql="select id, status, iddestino as PegaDestino FROM subdestino WHERE id = '"&grs("idsubdestino")&"' AND status = 'ativo'"
rs_sql(sql)
rs_abre5
if grs("dia")="1" then dia = grs("dia")&" dia" else dia = grs("dia")&" dias"
if grs("noite")="1" then noite = grs("noite")&" noite" else noite = grs("noite")&" noites"
if grs("datasaida")="" or isnull(grs("datasaida")) then datasaida = "a confirmar" else datasaida = mostradata(grs("datasaida")) end if
%>
<%=grs1("categoria")%> / <%=NomeDestino(grs5("PegaDestino"))%> / <%=NomeSubdestino(grs("idsubdestino"))%>
">" border="0" align="left" width="250" style="margin-right:10px;">
<%=grs("pacote")%>
Data Saída: <%=datasaida%>
<%=replace(grs("chamada"), vbcrlf,"
")%>
<%=replace(grs("conteudo"), vbcrlf,"
")%>
<%=replace(grs("historico"), vbcrlf,"
")%>
Duração: <%=dia%> / <%=noite%>
<%
sql="select * FROM galeria WHERE id = '"&grs("idgaleria")&"' "
rs_sql(sql)
rs_abre2
if not grs2.eof then
%>
Galeria de Fotos
<%
cont = 0
foto=split(grs2("foto"),"#")
descricao=split(grs2("descricao"),"#")
for i=0 to ubound(foto)-1
cont=cont+1
espaco = ""
if cont=1 then espaco = "margin-right:10px;" end if
if cont=3 then espaco = "margin-right:10px;" end if
if cont=5 then espaco = "margin-right:10px;" end if
if cont=7 then espaco = "margin-right:10px;" end if
if cont=9 then espaco = "margin-right:10px;" end if
%>
<%
next
%>
<%end if%>
OUTROS PACOTES RELACIONADOS
<%
dataagora = vGravaData(date())
sql="select * FROM pacote WHERE id <> '"&id&"' AND id <>'"&grs("id")&"' AND idcategoria = '"&idcategoria&"' AND status = 'ativo' AND datasaida >= '"&dataagora&"' ORDER BY datasaida asc"
rs_sql(sql)
rs_abre3
while not grs3.eof
sql="select * FROM subdestino WHERE id = '"&grs3("idsubdestino")&"' AND status = 'ativo'"
rs_sql(sql)
rs_abre4
%>
" border="0" align="left" width="150" style="margin-right:10px;">
<%=mostradata(grs3("datasaida"))%> - <%=NomeSubCategoria(grs3("idsubcategoria"))%>
<%=NomeSubdestino(grs3("idsubdestino"))%>
<%
grs3.movenext
wend
%>
<%end if%>