Busca não retorna o que deveria

ASP Clássico

18/11/2019

Bom dia 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>
Celso Peres

Celso Peres

Curtidas 0
POSTAR