Code com falhas

Achei este code aqui no forum, e fiz as alterações necessarias. ele até faz busca certo, porém na hora que clico para ir para a próxima pagina (paginação) ele repeta as mesmas noticias e não tem o controle de X noticias por pagina. Como posso resolver isso?

<%
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("dB.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

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

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

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("p")="" then
p = 1
elseif cint(Request.QueryString("p"))<1 then
p = 1
elseif cint(Request.QueryString("p"))>objRS.PageCount then
p = objRS.PageCount
else
p=Request.QueryString("p")

objRS.AbsolutePage = p

contador = 0
End If
end if

While not objRS.EOF
response.write ("" & objRS ("Data") & "</P>" & "<a href=""ver.asp?id=" & "" & objRS("id") & """>" & "" & "" & "" & objRS("Not") & "</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&"?busca="&Request.QueryString("busca")&"&p="&i&">"&replace(i,p,"<font color=blue><b>"&i&"</b>")&"</a> ")
Next
%>