| ............................................................................................ |
 |
Bingos para jogar na internet e ganhar prêmios reais ! Os bingos online abaixo, foram testados por nossa equipe.
|
<%
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_codigo = "&f_estado&""
elseif f_estado = "" OR f_estado = "Todos" then
f_estado = " AND est_codigo = "&28&""
end if
if f_busca <> "" then
f_busca = " AND bin_nome like '%"&f_busca&"%'"
else
end if
//Quando abre o site
if f_codigo = "" then
queryselbin = "SELECT * FROM bingo "&_
" WHERE bin_ativo = true "&_
" AND bin_descricao_pt<> ''"&f_busca&f_estado&" "&_
"ORDER BY bin_rating DESC, bin_codigo DESC "
set i_query = Conexao.Execute(queryselbin)
do while not i_query.eof
%>
|
|
<%=i_query("bin_descricao_pt")%>
|
<% i_query.movenext
loop
else
%>
<%
queryselbin = "SELECT * FROM bingo WHERE bin_codigo="&f_codigo
set i_query = Conexao.Execute(queryselbin)
%>
|
<%=i_query("bin_descricao_pt")%>
|
<%
end if
%>
|
|
")
next
%>