Ir para conteúdo
Fórum Script Brasil
  • 0

Busca No Site


Guest Caroline Vearick

Pergunta

Guest Caroline Vearick

Pessoal, estou com um problema.

Fiz a busca cfme descrevo abaixo porém está retornando todos os dados do banco.

Alguém pode me ajudar a visualizar o erro?

[]

<%

varbusca = request.form("procurar")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DBQ=" & Server.MapPath("../../db/pesqkreische.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'conn.cursorlocation = 3

%>

<style type="text/css">

<!--

.secao {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #FF9900;

}

-->

<!--

.itens {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #999999;

}

-->

<!--

.resultado {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #000000;

}

-->

</style>

<table width="400" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>

<%

'******************************** PESQUISA EM HOME ***********************************************

set rshome = server.createobject("adodb.recordset")

rshome.cursorlocation = 3

rshome.open ("SELECT * FROM home WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rshome.EOF then %>

<p><font class="secao"><b>Home</b></font>

<font class="itens">- <%=rshome.recordcount%> item(s) encontrado(s)</font></p>

<%

do while not rshome.EOF

%>

<p><b><%=rshome("nm_palavra")%></b></font><br></p>

<%

rshome.movenext

loop

else

nd1 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rshome = nothing

'******************************** PESQUISA EM EMPRESA ***********************************************

set rsemp = server.createobject("adodb.recordset")

rsemp.cursorlocation = 3

rsemp.open ("SELECT * FROM empresa WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rsemp.EOF then

%>

<br>

<font class="secao"><b>Empresa - </b></font>

<font class="itens"><%=rsemp.recordcount%> item(s) encontrado(s)</font>

<%

do while not rsemp.EOF

%>

<br>

<br> <font class="resultado"><%=rsemp("link")%><br>

<br>

</font>

<%

rsemp.movenext

loop

else

nd2 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rsemp = nothing

%>

<%

'******************************** PESQUISA EM PRODUTOS ***********************************************

set rsprod = server.createobject("adodb.recordset")

rsprod.cursorlocation = 3

rsprod.open ("SELECT * FROM produtos WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rsprod.EOF then %>

<br>

<br>

<font class="secao"><b>Produtos - </b></font>

<font class="itens"><%=rsprod.recordcount%> item(s) encontrado(s)</font>

<%

do while not rsprod.EOF

%>

<br>

<br> <font class="resultado"><%=rsprod("link")%><br>

<br>

</font>

<%

rsprod.movenext

loop

else

nd3 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rsprod = nothing

%>

<%

'******************************** PESQUISA EM ACESSORIOS ***********************************************

set rsaces = server.createobject("adodb.recordset")

rsaces.cursorlocation = 3

rsaces.open ("SELECT * FROM acessorios WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rsaces.EOF then %>

<br>

<br>

<font class="secao"><b>Acess&oacute;rios - </b></font>

<font class="itens"><%=rsaces.recordcount%>

item(s) encontrado(s)</font>

<%

do while not rsaces.EOF

%>

<br>

<br> <font class="resultado"><%=rsaces("link")%><br>

<br>

</font>

<%

rsaces.movenext

loop

else

nd4 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rsaces = nothing

%>

<%

'******************************** PESQUISA EM SAC ***********************************************

set rssac = server.createobject("adodb.recordset")

rssac.cursorlocation = 3

rssac.open ("SELECT * FROM sac WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rssac.EOF then %>

<br>

<br>

<font class="secao"><b>SAC - </b></font>

<font class="itens"><%=rssac.recordcount%> item(s) encontrado(s)</font>

<%

do while not rssac.EOF

%>

<br>

<br> <font class="resultado"><%=rssac("link")%><br>

<br>

</font>

<%

rssac.movenext

loop

else

nd5 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rssac = nothing

%>

<%

'******************************** PESQUISA EM FALE CONOSCO ***********************************************

set rsfale = server.createobject("adodb.recordset")

rsfale.cursorlocation = 3

rsfale.open ("SELECT * FROM fale WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rsfale.EOF then %>

<br>

<br>

<font class="secao"><b>Fale Conosco - </b></font>

<font class="itens"><%=rsfale.recordcount%> item(s) encontrado(s)</font>

<%

do while not rsfale.EOF

%>

<br>

<br> <font class="resultado"><%=rsfale("link")%><br> <br></font>

<%

rsfale.movenext

loop

else

nd6 = "Nenhum item foi encontrado para " & varbusca & "."

end if

set rsfale = nothing

%>

<%

'********************************** QUANDO NÃO EXISTIR NENHUM ITEM *************************************

if nd1 <> "" then

if nd2 <> "" then

if nd3 <> "" then

if nd4 <> "" then

if nd5 <> "" then

if nd6 <> "" then

response.write "<p align='center'><font class='secao'>Nenhum item foi encontrado para <b>'" & request("busca") & "'</b>.</font></p>"

end if

end if

end if

end if

end if

end if

%>

</td>

</tr>

</table>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Cara Carol.... (hehehe)....

Primeiramente umas dicas rápidas......

códigos como o de conexão ao bd.... css ... e outros que podem vir a se repetir em mais de uma página eu aconselho você a criar um arquivo novo com estes dado...

tipo... o de conexão cria um "connection.asp"

<%

varbusca = request.form("procurar")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DBQ=" & Server.MapPath("../../db/pesqkreische.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'conn.cursorlocation = 3

%>

, os css crie um "carol_styles.css"
.secao {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #FF9900;

}

-->

<!--

.itens {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #999999;

}

.resultado {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #000000;

}

...

depois é só fazer os "includes"....

assim o código fica menor e mais organizado.... mas fácil para achar erros........

Já o problema do seu código, como eu estou sem prática nenhuma em asp (fiz o curso em fevereiro, e não pude treinar muito pois estou fazendo cursinho pré-vestibular) eu vou ficar devendo... mas com certeza nossos amigos aqui do forum vão resolver o probleminha..... ;)

Link para o comentário
Compartilhar em outros sites

  • 0

Carol

não entendi porque que você colocou o nm_palavra no Select

o seu codigo é o seguinte:

rshome.open ("SELECT * FROM home WHERE nm_palavra like '%" & varbusca & "%';"), conn, 1, 3

if not rshome.EOF then %>

eu acho que o certo deveria ser assim:
rshome.open ("SELECT * FROM home WHERE '% & varbusca & %'"), conn, 1, 3

if not rshome.EOF then %>

eu costumo fazer assim, não sei se o certo é assim

não te garanto que de certo

mas tente

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...