Erro Na Paginação

[Nesh]

Olá tenho uma paginação que está 99% concluida, só falta corrigir um erro, ela não está levando o valor digitado pelo usuario para a proxima pagina. Ela busca certinho mas quando troco de pagina ela tras o banco todo, o que posso fazer para concertar isto?

ai vai a parte da paginação:

<%

busca=Replace(Request.form("busca"),"'","''")

PagAtual = Request.QueryString("PagAtual") 'página atual

dim caminho_sub

dim conexao_sub

caminho_sub=server.mappath("banco.mdb")

conexao_sub="dbq="&caminho_sub&";driver={microsoft access driver (*.mdb)}"

set conn=server.createobject("adodb.connection")

conn.open conexao_sub

Set RS= Server.CreateObject("ADODB.Recordset")

SQL = "select * from empresas where liberado='sim' and palavras_chaves like '%" & busca & "%' or empresa like '%" & busca & "%' order by empresa"

RS.Open SQL, conn, 3

set objloc=rs

if objloc.bof and objloc.eof then

response.redirect "erro.asp"

end if

set rs=objloc

%>

<%

SELECT CASE np

CASE "1" NumPorPage = "1"

CASE "15" NumPorPage = "15"

CASE ELSE NumPorPage = "1"

END SELECT

'Const NumPorPage = 20

Dim PagAtual

IF Request.QueryString("PagAtual") = "" Then

PagAtual = 1 'Primeira página

Else

PagAtual = Request.QueryString("PagAtual")

End If

'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")

'>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient

RS.CacheSize = NumPorPage registros

RS.MoveFirst 'Move o RecorSet para o início

RS.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas

TotalPages = RS.PageCount

RS.AbsolutePage = PagAtual 'Configura a página atual

'paginacao Introdução

Count = 0 'Zera o contador

'Inicia a Função DO, utilizando a quantidade de páginas especificadas

'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo

i = 0

DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize

%>

[Nesh]

E ai caras, tem algum jeito nesse pepino ai?