Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>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.
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...
é só retirar a porcentagem...
'%"&query_busca&"%'
para isso
'"&query_busca&"'
>
é só retirar a porcentagem...
'%"&query_busca&"%'
para isso
'"&query_busca&"'
Valewwww Ted K'
Simples amigo...
Usa Assim!!
Set rsjogos = conexao.execute("SELECT * FROM jogos WHERE genero LIKE '%"&query_busca&"%' ORDER BY id ASC")