<% 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.movenext loop else %> <% queryselbin = "SELECT * FROM bingo WHERE bin_codigo="&f_codigo set i_query = Conexao.Execute(queryselbin) %> <% end if %>
............................................................................................
Bingos para jogar na internet e ganhar prêmios reais ! Os bingos online abaixo, foram testados por nossa equipe.  
          
   " target="_blank"><%=i_query("bin_nome")%> <% est = i_query("bin_rating")/2 for i= 1 to est response.write("") next %>
<%=i_query("bin_descricao_pt")%>

   " target="_blank"><%=i_query("bin_nome")%> <% est = i_query("bin_rating")/2 for i= 1 to est response.write("") next %>
<%=i_query("bin_descricao_pt")%>