Paginação não funciona

[ANDRE_GUSTAVO]

Galera eu já utilizo essa paginação a um tempao, peguei o exemplo aqui mesmo no forum,

fui utiliza-la novamente em outro projeto, mas não quer funcionar.

Tipo quando clico em proximo ou em algum link para o numero da pagina ou pag anterior, é listado na

página os mesmos registros.

parte do codigo

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

dim strSQL , RS_prod
                                                        
 call fncOpenConnection                                            

  

SQL = "SELECT * FROM CATALOGO"
 SET RS_prod = fncOpenConnection.Execute(SQL)

dim rsTotal , TOTALREGISTROS
Set rsTotal = Server.CreateObject("ADODB.Recordset")
rsTotal.ActiveConnection = fncOpenConnection
rsTotal.CursorType = 3
rsTotal.CursorLocation = 2
rsTotal.LockType = 1
rsTotal.Open "SELECT * FROM CATALOGO"

TOTALREGISTROS = 0
TOTALREGISTROS = rsTotal.RecordCount


If (TOTALREGISTROS = -1) Then    
    ' *** Conta o total de registros por iteração realizada no recorset
    TOTALREGISTROS = 0
    While (Not rsTotal.EOF)
        TOTALREGISTROS = TOTALREGISTROS + 1
        rsTotal.MoveNext
    Wend
End If
  

  


SELECT CASE np
CASE "1" NumPorPage = "1"
CASE "15" NumPorPage = "15"
CASE ELSE NumPorPage = "10"
END SELECT
'Const NumPorPage = 20

'Verifica qual a página solicitada
Dim PagAtual

IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If



RS_prod.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
RS_prod.MoveFirst 'Move o RecorSet para o início
RS_prod.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = RS_prod.PageCount 

RS_prod.AbsolutePage = PagAtual 'Configura a página atual
Count = 0 'Zera o contador

%>

obs: o resultado PAGECOUNT ESTA SENDO -1 ( a tabela tem quase 1000 registros)

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

TotalPages = RS_prod.PageCount

Desde já obrigado pela ajuda e atenção de todos

até mais

[bareta]

a solução é simples,

funcionava , copiei e colei não funciona mais logo pulei alguma coisa... certo???

trecho q falta:

RS.AbsolutePage = PagAtual

em vez de um loop pra contar os registros já tentou:

regs=rs.recordcount '(é algo assim se de errado digita no google)

[ANDRE_GUSTAVO]

a solução é simples,

funcionava , copiei e colei não funciona mais logo pulei alguma coisa... certo???

trecho q falta:

RS.AbsolutePage = PagAtual

em vez de um loop pra contar os registros já tentou:

regs=rs.recordcount '(é algo assim se de errado digita no google)

olá bareta, beleza?!?! cara, essa parte do codigo que você citou, já tem ela no codigo abaixo de TotalPages = RS_prod.PageCount

RS_prod.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
RS_prod.MoveFirst 'Move o RecorSet para o início
RS_prod.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = RS_prod.PageCount

RS_prod.AbsolutePage = PagAtual 'Configura a página atual
Count = 0 'Zera o contador