Erro na busca

[Legionáriors]

Boa tarde pessoal,

 

Será que alguém pode me dar uma luz sobre isso? Vou postar o código mas acontece o seguinte: Mesmo com os itens configurados para não serem mostrados ele continua mostrando mas somente quando faço a pesquisa. Tem outros modos de listar todos os itens estes funcionam perfeitamente mas na pesquisa acontece isso. Se alguém poder ajudar agradeço.

 

<%
Dim col,colu,lista,cid_id,cid_nome,nome,lista_anunciante,msgnada
lista=Request.querystring("lista")
cid_id=Request.querystring("cid_id")
cid_nome=Request.querystring("cid_nome")
nome=Request.querystring("nome")
%>

    <div class="site-section bg-light">
      <div class="container">
        <div class="row justify-content-center mb-5">
          <div class="col-md-7 text-center border-primary">
            <h3><font color="green">Anunciantes Ativos</font></h3>
          </div>
        </div>
        <div class="row">

<%
Select Case lista
Case "cidade"
    set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE cid_id="& cid_id &" AND disp='S' ORDER BY nome")
    msgnada = "<h5>No momento não dispomos de nenhum comércio nesta região.</h5>"
Case "busca"
    set lista_anunciante = lojaDB.Execute("SELECT * FROM anunciantes WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' OR imagem2 LIKE '%"& nome &"%' OR imagem3 LIKE '%"& nome &"%' OR imagem4 LIKE '%"& nome &"%' OR imagem5 LIKE '%"& nome &"%' OR imagem6 LIKE '%"& nome &"%' OR imagem7 LIKE '%"& nome &"%' OR imagem8 LIKE '%"& nome &"%' OR imagem9 LIKE '%"& nome &"%' OR imagem10 LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
    msgnada = "<h5>Nenhum comércio localizado com esse nome.</h5>"
Case Else
    %>
    <script>window.location="./index.asp"</script>
    <%
End Select
If lista_anunciante.EOF Then 
    Response.Write "" & msgnada & ""
Else 
%>
    <%
        col=1
        if not lista_anunciante.eof then
        colu=2
        response.write ""
        while not lista_anunciante.eof
        
    Dim com_cid_id,com_id,com_nome,com_descricaop,com_imagem,com_data,com_mapalink,com_whats
    while not lista_anunciante.EOF
        com_cid_id = lista_anunciante("cid_id")
        com_id = lista_anunciante("id")
        com_nome = lista_anunciante("nome")
        com_descricaop = lista_anunciante("descricaop")
        com_imagem = lista_anunciante("imagem")
        com_data = lista_anunciante("data")
        com_mapalink = lista_anunciante("mapalink")
        com_whats = lista_anunciante("whats")
        %>
        
          <div class="col-md-6 mb-4 mb-lg-4 col-lg-4">
            
            <div class="listing-item">
              <div class="listing-image">
                <img src="images/<%=com_imagem%>" alt="<%=com_nome%>" class="img-fluid">
              </div>
              <div class="listing-item-content">
                <a href="<%=com_mapalink%>" class="bookmark" data-toggle="tooltip" data-placement="left" title="Localização" target="new"><span class="icon-map"></span></a>
                <h2><a href="http://api.whatsapp.com/send?1=pt_BR&phone=<%=com_whats%>" style="position:absolute; top:-30px;" class="bookmark" target="new"><span class="icon-whatsapp"></span></a></h2>
                <h2 class="mb-1"><a href="detalheanunciante.asp?com_id=<%=com_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><%=left(com_nome ,23) %>...</a></h2>
                <span class="address"><%=com_descricaop%></span>
              </div>
            </div>
          </div>

        <%
        if colu=col then
        response.write "<tr><td>"
        colu=1
        else
        response.write "<td>"
        colu=colu+1
        end if
        lista_anunciante.movenext
        wend
        wend
        response.write ""
        end if
        end if
lista_anunciante.close
set lista_anunciante=nothing
%>

        </div>
      </div>
    </div>