|
|
| ............................................................................................ |
 |
|
<%
f_codigo = request("codigo")
f_codigo = Replace(f_codigo, "'", "")
f_estado = request("menu_estado")
f_busca = request("busca")
if f_estado <> "" AND f_estado <> "Todos" then
f_estado = " AND est_nome = '"&f_estado&"'"
elseif f_estado = "" OR f_estado = "Todos" then
f_estado = ""
end if
if f_busca <> "" then
f_busca = " AND cas_nome like '%"&f_busca&"%'"
else
end if
//Quando abre o site
if f_codigo = "" then
queryselcasino = "SELECT * FROM casino "&_
" WHERE cas_ativo = true "&_
" AND cas_destaque = true"&f_busca&f_estado&" "&_
"ORDER BY cas_rating DESC, cas_codigo DESC "
set i_query = Conexao.Execute(queryselcasino)
do while not i_query.eof
%>
|
|
<%= replace(Left(i_query("cas_descricaopt"),200), chr(13), "
") %>.....
> "> Review completo
" target="_blank"> Acessar o website
|
<% i_query.movenext
loop
elseif f_codigo <> "" then
%> <%
queryselcasino = "SELECT * FROM casino WHERE cas_codigo="&f_codigo
set i_query = Conexao.Execute(queryselcasino)
%>
|
<%=i_query("cas_descricaopt")%>
|
<%
end if
%>
|
|
")
next
%>