Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

klebeer_

[Resolvido] Busca usando List Menu

Por , em ASP Clássico

Recommended Posts

klebeer_    0

klebeer_
Postado

Bem, Olá pessoal tudo na santa paz, espero que sim, venho pedir a ajuda de vocês mais uma vez, apesar de fazer algum tempo que não entro no forum.

Estou fazendo um site de aluguel de jogos e estou com dificuldade na busca com o list menu, ai vai o código:

				<!--#include file="StrCOn.asp" -->
                
				<form action="" method="post" name="formjogos">
				<input type="hidden" name="numerojogoescolhido" id="numerojogoescolhido" value="">

                  <td width="412" height="115" valign="top"><table width="434" border="0" align="center" cellspacing="0">
                      <tr>
                        <td width="123"><p align="left">Categoria:</p></td>
                        <td width="307"><div align="left">
                        <select size='1' name='filtro1' id='filtro1' class='box'>
                        <option value=''></option>
                        <option value='todos'>Todos</option>
                        <option value='acao'>Ação / Aventura</option>
                        <option value='acessorios'>Acessórios</option>
                        <option value='corrida'>Corrida</option>
                        <option value='educativo'>Educativo</option>
                        <option value='esporte'>Esporte</option>
                        <option value='estrategia'>Estratégia / RPG</option>
                        <option value='infantil'>Infantil</option>
                        <option value='luta'>Luta</option>
                        <option value='outra'>Outra</option>
                        <option value='quebra-cabeca'>Quebra-Cabeça</option>
                        <option value='ritmo'>Ritmo / Música</option>
                        <option value='simulacao'>Simulação</option>
                        <option value='tabuleiro'>Tabuleiro</option>
                        <option value='tiro'>Tiro / Primeira-Pessoa</option>
                        </select>
                        </div></td>
                      </tr>
                      <tr>
                        <td><p align="left" class="linque1">Nome do jogo contém:</p></td>
                        <td><div align="left">
					<input type='text' name='filtro2' id='filtro2' maxlength='50' size='50' class='box' value=''>
                        </div></td>
                      </tr>
                      <tr>
                        <td> </td>
                        <td><div align="left">
					<input type='button' name='Pesquisar' value='Pesquisar' class='bigbuttom' onClick="mudaaction();">
                        </div></td>
                      </tr>
                    </table>
                      <p align="justify" class="style8"><br /><input type='hidden' name='qtdporpagina' id='qtdporpagina' value='20'>
                    </p></td>
                </form></tr>
              </table>
<!-- -------------------------------------------------------------------------------------------------------------------   -->   
			  <%
			DIM rsjogos
			query_busca = request.form("filtro1") 
			
			Set rsjogos = Server.CreateObject("ADODB.RecordSet")
			rsjogos.ActiveConnection = Conexao
			Set rsjogos = conexao.execute("SELECT * FROM jogos WHERE genero LIKE '%'"&query_busca&"'%' ORDER BY id")
			If not rsjogos.Eof 
			then %>
			<table>
              <tr>
                <%While not rsjogos.Eof%>
                <td>
			        <img src="<%=rsjogos("img")%>" /><br />
			        <%=rsjogos("titulo")%>
			    </td>
			    <%rsjogos.MoveNext
			    wend%>
			  </tr>
            </table>
			<%
			else
			Response.write "O jogo procurado não foi encontrado.<br /><br />Por favor, entre em contato conosco!"
			end if
			rsjogos.Close()
			%>
Da esse erro quando se pede para pesquisar:

 

Microsoft JET Database Engine

 

erro '80040e14'

 

Erro de sintaxe (operador faltando) na expressão de consulta 'genero LIKE '%'acao'%''.

 

/jogos/jogos.asp, linha 402

 

 

===> Set rsjogos = conexao.execute("SELECT * FROM jogos WHERE genero LIKE '%'"&query_busca&"'%' ORDER BY id")

 

com a palavra acao no lugar de '%'"&query_busca&"'%' da esse erro quando se pede para pesquisar:

 

Microsoft JET Database Engine

 

erro '80040e10'

 

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

 

/jogos/jogos.asp, linha 402

 

 

===> Set rsjogos = conexao.execute("SELECT * FROM jogos WHERE genero LIKE acao ORDER BY id")

 

Espero que alguem possa me ajudar.

Grato.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Simples amigo...

 

Usa Assim!!

 

Set rsjogos = conexao.execute("SELECT * FROM jogos WHERE genero LIKE '%"&query_busca&"%' ORDER BY id ASC")

Compartilhar este post

Link para o post
Compartilhar em outros sites

klebeer_    0

klebeer_
Postado

Opaaa beleza pessoal "e Ted K' hehehe", consegui com uma "ajudinha" resolver parte do problema, digo parte porque mesmo quando não se escolhe categoria nenhuma ou não digita o nome de um jogo, e aperta o botão " Pesquisar " ele mostra como se o " Todos " estivesse selecionado, mostrando todos os jogos...de resto ta tudo funcionando perfeitamente.

 

Se alguem puder ajudar arrumando esse pequeno defeito agradeço....ah! e pode usar o código à vontade!

 


 <table width="86%" border="0" align="center" cellpadding="0" cellspacing="0">
 <!--DWLayoutTable-->
 <tr>
 <form id="formjogos" name="formjogos" method="post" action="jogos.asp">
 <input type="hidden" value="1" name="generoescolhido" id="generoescolhido"/>
 <td width="412" height="115" valign="top"><table width="337" border="0" align="center" cellspacing="0">
 <tr>
 <td width="127"><p align="left">Categoria:</p></td>
 <td width="206"><div align="left">
 <select name="filtro1" size="1" id="filtro1" onchange="MM_jumpMenu('parent',this,0)">
 <option value="" selected="selected"> -- Escolha a Categoria -- </option>
 <option value="*">Todos</option>
 <option value="acao">Ação</option>
 <option value="aventura">Aventura</option>
 <option value="coletanea">Coletânea</option>
 <option value="corrida">Corrida</option>
 <option value="esporte">Esporte</option>
 <option value="estrategia">Estratégia</option>
 <option value="familia">Família</option>
 <option value="futebol">Futebol</option>
 <option value="luta">Luta</option>
 <option value="musica">Música</option>
 <option value="rpg">RPG</option>
 <option value="tiro1">Tiro / Primeira-Pessoa</option>
 <option value="tiro3">Tiro / Terceira-Pessoa </option>
 </select>
 </div></td>
 </tr>
 <tr>
 <td><p align="left" class="linque1">Nome do jogo contém:</p></td>
 <td><div align="left">
 <input type="text" name="filtro2" id="filtro2" size="28" />
 </div></td>
 </tr>
 <tr>
 <td> </td>
 <td><div align="left">
 <input class="bigbuttom" value="Pesquisar" type="submit" name="Pesquisar" />
 </div></td>
 </tr>
 </table>
 <p align="justify" class="style8"><br />
 </p></td>
 </form></tr>
 </table>
              
 <table width="86%" border="0" align="center" cellpadding="0" cellspacing="0">
 </table>    
 <%
     
 if request.form("generooescolhido") <> "" then 
 DIM rsjogos, query_busca, strSQL, query_nome
 query_busca = request.form("filtro1")
 query_nome = request.Form("filtro2")
 Set rsjogos = Server.CreateObject("ADODB.Recordset")
 rsjogos.ActiveConnection = Conexao
   
 strSQL = "SELECT * FROM jogos where 1=1 "
 if query_busca <> "" then
 strSQL = strSQL & " and  genero like '%"&query_busca&"%'"
 end if
 if query_nome <> "" then 
 strSQL = strSQL & " and  titulo like '%"&query_nome&"%'"
 end if
 
 rsjogos.Source = (strSQL)
 rsjogos.CursorType = 3
 rsjogos.CursorLocation = 3
 rsjogos.LockType = 2
 rsjogos.Open()
 If not rsjogos.Eof then%>
 
 <table>
 <tr>
 <%While not rsjogos.Eof%>
 <td>
 <img src="<%=rsjogos("img")%>" /><br />
 <%=rsjogos("titulo")%>
 </td>
 <%
 contador = contador +1 
 If contador = 5 then
 response.Write("<tr>")
 contador = 0
 end if
 rsjogos.MoveNext
 wend
 %>
 </tr>
 </table>
 <%
 else
 Response.write "O jogo procurado não foi encontrado.<br /><br />Por favor, entre em contato conosco!"
 end if
 rsjogos.Close()
 end if
 %>

 <br /></td>
        </tr>
 </table></td>

Valeu pessoal "e Ted K'"!!!!

 

Desculpa aeee por não estar concatenado...

Compartilhar este post

Link para o post
Compartilhar em outros sites

klebeer_    0

klebeer_
Postado

é só retirar a porcentagem...

 

'%"&query_busca&"%'

para isso

 

'"&query_busca&"'

Valewwww Ted K'

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito