Busca No Site

Julho 17, 2003

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

%>

<!--

.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>

<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 %>

Home

- <%=rshome.recordcount%> item(s) encontrado(s)

<%

do while not rshome.EOF

%>

<%=rshome("nm_palavra")%>

<%

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

%>

Empresa -

<%=rsemp.recordcount%> item(s) encontrado(s)

<%

do while not rsemp.EOF

%>

<%=rsemp("link")%>

<%

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 %>

Produtos -

<%=rsprod.recordcount%> item(s) encontrado(s)

<%

do while not rsprod.EOF

%>

<%=rsprod("link")%>

<%

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 %>

Acessórios -

<%=rsaces.recordcount%>

item(s) encontrado(s)

<%

do while not rsaces.EOF

%>

<%=rsaces("link")%>

<%

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 %>

SAC -

<%=rssac.recordcount%> item(s) encontrado(s)

<%

do while not rssac.EOF

%>

<%=rssac("link")%>

<%

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 %>

Fale Conosco -

<%=rsfale.recordcount%> item(s) encontrado(s)

<%

do while not rsfale.EOF

%>

<%=rsfale("link")%>

<%

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 "Nenhum item foi encontrado para '" & request("busca") & "'."

end if

%>

</td>

</tr>

</table>

diraol · Julho 17, 2003

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..... ;)

FelipeLopes · Julho 17, 2003

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

Entrar

Busca No Site

Pergunta

Guest Caroline Vearick

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

diraol

Link para o comentário

Compartilhar em outros sites

FelipeLopes

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades