Ir para conteúdo

Legionario-rs

Members
  • Total de itens

    93
  • Registro em

  • Última visita

Tudo que Legionario-rs postou

  1. Legionario-rs

    Erro na busca

    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>
  2. Legionario-rs

    Erro na busca

    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>
  3. Legionario-rs

    Mostrar quantidade de registros

    Bom dia pessoal, Alguém pode postar um modelo de script que conte a quantidade de registros de uma tabela chamada comércios e imprima na tela desta forma: Restaurantes - (6) Lanchonetes - (5) Bares - (10) Agradeço demais
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.