[Resolvido] Criar paginacao integrada com minha busca

[Marcos Coelho2 2]

Eu tenho um codigo de paginacao so que nao estou conseguindo fazer funcionar em conjunto com a busca que tenho.

deem uma olhada no meu problema http://www.zonadownload.com.br/

facam uma busca com o nome harry vai encontrar 2 paginas somente mas quando eu clico pra ir pra segunda nao busca a segunda pagina da busca busca a segunda pragina principal

estou querendo fazer com que isso funcione e que tmb escreva na url na parte superior a palavra buscada.

 

se quizerem os codigos eh so postar aki q colokarei

[jrcardozo 4]

é porque sua busca usa o metodo POST e sua paginacao GET. vai ter que mudar uma das duas formas pra ficar compativel

[Marcos Coelho2 2]

como posso fazer a busca em metodo get?

alguem tem algum exemplo pra me passar??

[jrcardozo 4]

no seu formulário de pesquisa coloque o method="get". No request.form("buscando") coloque request.querystring("buscando")

na paginação coloque assim:

 

"index.asp?PagAtual=" & variavelDoContador & "&buscando=" & request.querystring("buscando")

[Marcos Coelho2 2]

ta funcionando agora

so ta com um erro

faz a busca pela harry e passa pra pagina dois

http://www.zonadownload.com.br/

 

erro

Provider error '80020005'

 

Type mismatch.

 

/zonadownload/busca/inicio.asp, line 268

Const NumPorPage = 6
        
        'Verifica qual a página solicitada
        Dim PagAtual
        Dim TotalPages 'Pega o número total de páginas
        
        IF Request.QueryString("PagAtual") = "" Then
            IF NOT rs.EOF THEN
                PagAtual = 1 'Primeira página
            ELSE
                PagAtual = 0
            END IF
        Else
            PagAtual = Request.QueryString("PagAtual")
        End If
        
        rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
        
        IF not rs.EOF THEN
            rs.MoveFirst 'Move o RecorSet para o início
         
            rs.PageSize = NumPorPage 'Coloca a quantidade de páginas
        
            TotalPages = rs.PageCount
        
            rs.AbsolutePage = PagAtual 'Configura a página atual(TA DANDO ERRO NESSA LINHA)
        ELSE
            TotalPages = 0
        END IF
        
        '############## paginacao Introdução - FIM #################          
        
        Count = 0 'Zera o contador
        i = 0 
        
        
        Dim intAux
        intAux = 0
        
        TotalRecs = rs.recordcount

[Marcos Coelho2 2]

resolvido

valeu pela ajuda