[Resolvido] busca paginada

aprendizes · Setembro 14, 2010

Patrique,

Agora funcionou a paginação, as notícias apareceram. Só tem mais um probleminha. o sistema esta buscando todas as noticias cadastradas no bd, eu precisava buscar apenas as noticias procuradas. Até mesmo pra buscar com e sem acento. Então inseri o code abaixo:

<%
<% @Language = VBScript %>
<%session.LCID=1046%>
<%
function preparaPalavra(str)
preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")
preparaPalavra = replace(str,"c","[c,ç]")
preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")
preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")
preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")
preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")
preparaPalavra = preparaPalavra
preparaPalavra = preparaPalavra
end function StrAcento = preparaPalavra(Request.QueryString("busca"))
if StrAcento<> "" then
stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("admin/dados/dados.mdb")
Set ObjRsConexao = Server.CreateObject("ADODB.Connection")
ObjRsConexao.Open stringConexao
strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrAcento &"%'" 
Set ObjRS = ObjRsConexao.Execute(strSQL) 
%>

e deu este erro:

Script error detected at line 2.

Source line: <% @Language = VBScript

Description: Instrução esperada

Patrique · Setembro 14, 2010

<% @Language = VBScript %>

<%

session.LCID=1046

function preparaPalavra(str)

preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")

preparaPalavra = replace(str,"c","[c,ç]")

preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")

preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")

preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")

preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")

preparaPalavra = preparaPalavra

end function

StrAcento = preparaPalavra(Request.QueryString("busca"))

if StrAcento<> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("admin/dados/dados.mdb")

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

ObjRsConexao.Open stringConexao

strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrAcento &"%'"

Set ObjRS = ObjRsConexao.Execute(strSQL)

%>

aprendizes · Setembro 14, 2010

o erro meu para este agora:

Script error detected at line 14.

Source line: end function StrAcento = preparaPalavra(Request.QueryString("busca")

Description: Fim da instrução esperado

Patrique · Setembro 14, 2010

.... olhe novamente o code... eu arrumei.

aprendizes · Setembro 14, 2010

por favor, veja se esta correto:

<% @Language = VBScript %>
<%
session.LCID=1046

function preparaPalavra(str)
preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")
preparaPalavra = replace(str,"c","[c,ç]")
preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")
preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")
preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")
preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")
preparaPalavra = preparaPalavra
preparaPalavra = preparaPalavra
end function 
StrAcento = preparaPalavra(Request.QueryString("busca"))
if StrAcento<> "" then
stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("admin/dados/dados.mdb")
Set ObjRsConexao = Server.CreateObject("ADODB.Connection")
ObjRsConexao.Open stringConexao
strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrAcento &"%'" 
Set ObjRS = ObjRsConexao.Execute(strSQL) 
%>
<title>Resultado da pesquisa</title>
<%
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("admin/dados/dados.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set objRS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "buscar001.asp" 'IMPOTANTE:Coloque aqui o nome desta página.
registros = 4

objRS.CacheSize = registros
objRS.PageSize = registros

SQL = "Select * from Noticias"

objRS.Open SQl,Conexao,3,3

If objRS.Eof then
    Response.Write("Nenhum registro encontrado.")
else
    if Request.QueryString("pagina")="" then
        pagina = 1
    elseif cint(Request.QueryString("pagina"))<1 then
        pagina = 1
    elseif cint(Request.QueryString("pagina"))>objRS.PageCount then
        pagina = objRS.PageCount
    else 
        pagina=Request.QueryString("pagina")
    End If
end if

objRS.AbsolutePage = pagina

contador = 0

While not objRS.EOF
response.write ("" & objRS ("Data") & "</P>" & "<a href=""noticia.asp?id=" & ""    & objRS("ID") & """>" & "" & "" & "" & objRS("Detalhe") & "</a>") & "<hr>" & ""
objRS.MoveNext

contador = contador + 1

If objRS.eof then
Response.Write("")
end if

Wend

for i=1 to objRS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next
%>

Erro:

Script error detected at line 71.

Source line:

Description: 'End' esperado

xanburzum · Setembro 14, 2010

onde esta o end do

if StrAcento<> "" then

Patrique · Setembro 14, 2010

<% @Language = VBScript %>

<%

session.LCID=1046

function preparaPalavra(str)

preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")

preparaPalavra = replace(str,"c","[c,ç]")

preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")

preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")

preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")

preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")

preparaPalavra = preparaPalavra

end function

StrAcento = preparaPalavra(Request.QueryString("busca"))

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("admin/dados/dados.mdb")

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

ObjRsConexao.Open stringConexao

strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrAcento &"%'"

Set ObjRS = ObjRsConexao.Execute(strSQL)

%>

<title>Resultado da pesquisa</title>

<%

StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("admin/dados/dados.mdb")

Set Conexao = Server.CreateObject("AdoDb.Connection")

Conexao.Open StringDeConexao

Set objRS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "buscar001.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

registros = 4

objRS.CacheSize = registros

objRS.PageSize = registros

SQL = "Select * from Noticias"

objRS.Open SQl,Conexao,3,3

If objRS.Eof then

Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>objRS.PageCount then

pagina = objRS.PageCount

else

pagina=Request.QueryString("pagina")

End If

end if

objRS.AbsolutePage = pagina

contador = 0

While not objRS.EOF

response.write ("" & objRS ("Data") & "</P>" & "<a href=""noticia.asp?id=" & "" & objRS("ID") & """>" & "" & "" & "" & objRS("Detalhe") & "</a>") & "<hr>" & ""

objRS.MoveNext

contador = contador + 1

If objRS.eof then

Response.Write("")

end if

Wend

for i=1 to objRS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")

aprendizes · Setembro 14, 2010

agora buscaou todas as noticias novamente, ao invés de buscar somente a que eu digitei.

Patrique · Setembro 14, 2010

Velho... tu tem que quebrar mais a cabeça ai, se ta tendo duvida com isso, imagina o restante.

Ta ai.

<title>Resultado da pesquisa</title>
<%
session.LCID=1046

function preparaPalavra(str)
    preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")
    preparaPalavra = replace(str,"c","[c,ç]")
    preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")
    preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")
    preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")
    preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")
    preparaPalavra = preparaPalavra
    preparaPalavra = preparaPalavra
end function

StrAcento = preparaPalavra(Request.QueryString("busca"))

if StrAcento = "" then
    Response.Redirect("nadaprocurado.asp")
End If

StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("admin/dados/dados.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set objRS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "buscar001.asp" 'IMPOTANTE:Coloque aqui o nome desta página.
registros = 4

objRS.CacheSize = registros
objRS.PageSize = registros

SQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrAcento &"%'"

objRS.Open SQl,Conexao,3,3

If objRS.Eof then
    Response.Write("Nenhum registro encontrado.")
else
    if Request.QueryString("pagina")="" then
        pagina = 1
    elseif cint(Request.QueryString("pagina"))<1 then
        pagina = 1
    elseif cint(Request.QueryString("pagina"))>objRS.PageCount then
        pagina = objRS.PageCount
    else 
        pagina=Request.QueryString("pagina")
    End If
end if

objRS.AbsolutePage = pagina

contador = 0

While not objRS.EOF
    response.write ("" & objRS ("Data") & "</P>" & "<a href=""noticia.asp?id=" & ""    & objRS("ID") & """>" & "" & "" & "" & objRS("Detalhe") & "</a>") & "<hr>" & ""
objRS.MoveNext

contador = contador + 1

If objRS.eof then
    Response.Write("")
end if

Wend

for i=1 to objRS.PageCount
    response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")
Next
%>

aprendizes · Setembro 14, 2010

Cara eu até to chegando lonje demais! é verdade estou aprendendo com vcs, pois ainda num fiz curso, por isso peço ajuda, mas com certeza farei um curso e aprenderei mais ainda... Muito obrigado cara ta funcionando show de bola, obrigadão!

Patrique · Setembro 15, 2010

Excelente :)

Na maioria das vezes basta ter paciência e organização, nunca deixe o code mal organizado, pois isso ajuda e muito a se perder.

Outra coisa é tentar... pois não adianta pensar que não consegue fazer e pronto, tenha certeza que se errando é o momento em que mais se aprende.

No mais pegue uns scripts prontos... e comece a depurar... fazendo modificações aqui e ali e vendo o que faz o que, o google é um excelente aliado, caso tenha dúvida em relação a algo, basta digitar o problema seguido de asp... ele retornará um monte de resultado.

Boa sorte.

Arquivado

[Resolvido] busca paginada

Recommended Posts

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Fóruns

Tempo Real

Informação importante