Jump to content
Fórum Script Brasil
  • 0

Erro na busca


Question

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>

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148682
    • Total Posts
      644515
×
×
  • Create New...