Sistema De Busca

[mariofdf]

Criei um sistema de busca, quando eu efetuo uma pesquisa ele apresenta o seguinte erro, era para exibir 20 resultados por vez mas só mostra 16 e quando clico em proximo não aparece nada

se quiser ver o erro entre em http://www.diitroya.com.br/shopping/index.asp

e faça uma procura por palavra, digite por exemplo a e mande procurar.

Quando acessa pelos links esta tudo normal só na pesquisa que acontece o erro.

e quando deixa em branco da um erro tambem...

Estou aprendendo asp e espero que me ajudem

o codigo é esse...

<!--#include file="cabeca.asp"-->

<%

Const TamanhoPagina = 20

Pagina = Request.QueryString("Pagina")

Pagina = Se(Pagina = "", 1, Pagina)

codcategoria = Request.QueryString("codcategoria")

codcategoria = Se(codcategoria = "", Request.Form("codcategoria"), codcategoria)

palavra = Lcase(Request.Form("palavra"))

palavra = Se(palavra = "", Lcase(Request.QueryString("palavra")), palavra)

codcategoriapalavra = Request.Form("codcategoriapalavra")

codcategoriapalavra = Se(codcategoriapalavra = "", Request.QueryString("codcategoriapalavra"), codcategoriapalavra)

response.write "<font id='resumo'>"

'Veririca se alguns campos não foram preenchidos corretamente

If codcategoria <> "" Then

SQL = "SELECT TbBanners.*, TbCategoria.*, TbBanners.codcategoria "

SQL = SQL & "FROM TbBanners INNER JOIN TbCategoria ON TbBanners.codcategoria = TbCategoria.CodCategoria "

SQL = SQL & "WHERE (((TbBanners.codcategoria) = "& codcategoria &")) ORDER BY TbBanners.data DESC"

SQLpt = "SELECT COUNT(*) AS TotalPessoas FROM TbBanners WHERE codcategoria = "& codcategoria &""

ElseIf palavra <> "" Then

SQL = "SELECT TbBanners.*, TbCategoria.*, TbBanners.codcategoria "

SQL = SQL & "FROM TbBanners INNER JOIN TbCategoria ON TbBanners.codcategoria = TbCategoria.CodCategoria "

SQL = SQL & "WHERE (((TbBanners.descricao)LIKE '%" & palavra & "%') AND ((TbBanners.nome)LIKE '%" & palavra & "%')) ORDER BY TbBanners.data DESC"

SQLpt = "SELECT COUNT(*) AS TotalPessoas FROM TbBanners WHERE nome LIKE '%" & palavra & "%' Or descricao LIKE '%" & palavra & "%'"

Else

Response.Write("não pegou nada")

Response.Write("<a href=javascript:window.history.back()>Voltar</a>")

End If

Set RP = Connexao.Execute(SQL)

Set RPT = Connexao.Execute(SQLpt)

Total = 0

Total= RPT("TotalPessoas")

'não encontrou camponumero ou senha é invalida

If RP.BOF And RP.EOF Then %>

<font id="resumo")

<b>Pesquisa não encontrada!!</b><br>

<a href=javascript:window.history.back()>Voltar</a>

</font>

<br>

<% ELSE %>

<%If codcategoria <> "" then%>

<font id="resumo">Categoria pesquisada:&nbsp;<b><%=lcase(RP("nomecategoria"))%>&nbsp;(<%=RPT("TotalPessoas")%>)</b></font>

<%end if%>

<%IF palavra <> "" then%>

<font id="resumo">Palavra pesquisada:&nbsp;<%=palavra%></font>

<%If codcategoria <> "" then%>

<font id="resumo">&nbsp;&nbsp;Categoria pesquisada:&nbsp;<%=codcategoria%></font>

<%end if%>

&nbsp;<font id="resumo">(<%=RPT("TotalPessoas")%>)</font>

<%end if%>

<hr>

<%If Not RP.EOF Then

De = (Pagina - 1) * TamanhoPagina + 1

Ate = (Pagina) * TamanhoPagina

Ate = Se(Ate > Total, Total, Ate)

Linha = 1

RP.Move TamanhoPagina * (Pagina - 1)%>

<table width="100%" cellpadding="2" cellspacing="5">

<tr><td>

<%Do While not RP.EOF and Linha <= TamanhoPagina %>

<%IF palavra <> "" then %>

<font id="resumo-index">Categoria: <%=RP("nomecategoria")%></font><br>

<%end if %>

<% if session("autenticado") = true then %>

<a href="link-altera.asp?codbanner=<%=RP("codbanner")%>" target="_blank"><img src="../bt-alterar.gif" width=15 height=15 alt="alterar ou excluir" border="0"></a> -

<a href="mailto:<%=RP("email")%>"><%=RP("email")%></a><br>

<% end if %>

<a href="<%=RP("site")%>" target="_blank">

<%if RP("imagem") <> "" then %>

<img src="imagens/<%=RP("imagem")%>" border="1" width="470" height="60" alt="<%=RP("nome")%> - <%=RP("descricao")%>"></a><br><br>

<%end if%>

<%=RP("linhacodigo")%>

<br>

<%RP.MoveNext%>

<% Linha = Linha + 1 %>

<%loop%>

</td></tr>

</table>

<%end if%>

<hr>

<table width="100%">

<tr valign="middle">

<td align="right">

<font id="titulo-index">

Total de links: <% = Total %> (<% = De %> a <% = Ate %>)

<%

'Cria links para nagegação em outras páginas

TotalPagina = Total / TamanhoPagina

TotalPagina = Int(Se(TotalPagina - Int(TotalPagina) = 0, TotalPagina, TotalPagina + 1))

If TotalPagina > 1 Then

'Cria link Anterior

If Int(Pagina) > 1 Then

If codcategoria <> "" Then

Response.Write("<a href='pesquisa-acao.asp?codcategoria=" & codcategoria & "&Pagina=" & Pagina - 1 & "'>Anterior</a> | ")

End If

If palavra <> "" Then

Response.Write("<a href='pesquisa-acao.asp?palavra="&palavra&"&codcategoriapalavra="&codcategoriapalavra&"&Pagina="&Pagina - 1 & "'>Anterior</a> | ")

End If

End If

'Cria link Próxima

If Int(Pagina) < TotalPagina Then

If codcategoria <> "" Then

Response.Write("<a href='pesquisa-acao.asp?codcategoria=" & codcategoria & "&Pagina=" & Pagina + 1 & "'>Próxima</a>")

End If

If palavra <> "" Then

Response.Write("<a href='pesquisa-acao.asp?palavra="&palavra&"&codcategoriapalavra="&codcategoriapalavra&"&Pagina="&Pagina + 1 & "'>Próxima</a> | ")

End If

End If

End If%>

</font>

</td></tr>

</table>

<%End if%><!--#include file="rodape.asp"-->

[mariofdf]

Se alguém tiver uma outra sujestão para esse codigo eu agradeço...

[ursolouco]

Ultilize, mais ou menos, a seguinte instrução:

<%If strcomp(intpagina,RS.PageCount) <> 0 then 
%><a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% End If %>

- Código Retirado da Coluna " Paginação sem mistério - Gustavo Faeli (Colunista Imasters)

Espero que lhe ajude...

[mariofdf]

eu mudei mas o erro continua.

A paginação normal esta ok. O problema é na pesquisa...

Ele fala encontrei 32 registros mostrando de 1 á 20 e aparecem 16 dai clico em proximo e não aparece nada...

[mariofdf]

urso voce poderia fazer a gentileza de postar o link para este tutorial que voce se referil, gostaria de lelo.

Agradeço.

[ursolouco]

urso voce poderia fazer a gentileza de postar o link para este tutorial que voce se referil, gostaria de lelo.

Agradeço.

Pra já...

Artigo: Paginação sem mistérios!!!

Ou se prefirir, faça um paginação como nosso amigo AlexCT

Veja se o mesmo pode lhe ajudar...

[]s

[mariofdf]

Eu peguei o sistema de paginação e estou tentando fazer o seguinte.

Crieu um campo para o pessoa digitar o que ela deseja, dai teria que pegar a palavra que a pessoa digitou e verificar o BD para achar as lojas que contem o produto dai retornar as lojas de 10 em 10.

Precisaria a categoria da loja o banner e a url.

Mas não sei como fazer.

Poderia me dar umas dicas ou me indicar um tutorial...

Gostaria de aprender...

Agradeço...

[mariofdf]

alguém por favor...