Paginacao, nao consigo fazer funcionar para busca tambem

[Marcos Coelho2 2]

Tenho um código para a paginação das minhas páginas que funciona perfeitamente.

Só que agora estou implantando no site um sistema de busca, qdo faco a busca parece funcionar tudo certo, ate busca quantas paginas que tem da busca feita, por exemplo: eu busco por "abc" ai aparece la os arquivos e que encontrou duas paginas na busca.

Agora vem o problema, qdo clico na segunda pagina da busca(ainda usando o exemplo acima) em vez de buscar somente a segunda pagina ele busca tudo que esta cadastrado no site e onde estava na navegacao da busca so duas paginas vira 10 paginas.

 

O codigo que estou usando eh o seguinte

 

<%        '############## paginacao Introdução #################
        
                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 rs10.EOF THEN
                PagAtual = 1 'Primeira página
            ELSE
                PagAtual = 0
            END IF
        Else
            PagAtual = Request.QueryString("PagAtual")
        End If
        
        rs10.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
        
        IF not rs10.EOF THEN
            rs10.MoveFirs10t 'Move o RecorSet para o início
         
            rs10.PageSize = NumPorPage 'Coloca a quantidade de páginas
        
            TotalPages = rs10.PageCount
        
            rs10.AbsolutePage = PagAtual 'Configura a página atual
        ELSE
            TotalPages = 0
        END IF
        
        '############## paginacao Introdução - FIM #################          
        
        Count = 0 'Zera o contador
        i = 0 
        
        
        Dim intAux
        intAux = 0
        
        TotalRecs = rs10.recordcount
		 
		 %>


aki eu coloco pra busca todos os registros e tals
agora irei postar o resto do codigo e axo q nessa parte esta o erro

'################## paginacao 01 #####################

'Coloca o Nº página atual / Nº Total de páginas

IF tipo = "" THEN

  Response.Write("<B><font color=""#000000"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 
  
  'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
  
  IF PagAtual > 1 THEN 
  
    'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
    Response.Write("<a href='index.asp?PagAtual=" & 1 & "'>")
    Response.Write("Primeira") 
    Response.Write("</a></font></B> ")
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
    Response.Write("<a href='index.asp?PagAtual=" & PagAtual - 1 & "'>")
    Response.Write("Anterior") 
    Response.Write("</a></font></B> ")
  
  Else
  
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
    Response.Write("Primeira") 
    Response.Write("</font></B> ")
    
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
    Response.Write("Anterior") 
    Response.Write("</font></B> ")
  
  
  End If

  '------------------- numero -------------------------
  '---------- Numero de numeros para ser mostrados ----
  max_n_mostrados = 10
  
  intervalo = Int(max_n_mostrados /2)
  inicio = PagAtual - intervalo
  final = PagAtual + intervalo
  
  If CInt(inicio) <1 Then 
    inicio = 1
    final = 10
  END IF
  If CInt(final) > CInt(TotalPages) Then final = TotalPages
  
    For i = inicio To final
      If CInt(i)=CInt(PagAtual) Then
        'Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "
        'Response.Write " <span style=""height:15;border:1px solid #000000;width:18;color:#ffff00;background-color:#336699;padding:3;font-family:arial;text-decoration:none;font-size:9;font-weight:bold"">"
        Response.Write " <span style=""font-weight:bold;color:#ffff00;background-color:#336699;padding:3"">"
        Response.Write i
        Response.Write "</span>"
      END IF
      If CInt(i) < CInt(PagAtual) Then
        Response.Write " <span style=""font-weight:bold;color:#ff0000;background-color:#f1f1f1;padding:3"">"
        Response.Write "<a href='index.asp?PagAtual=" & i & "'>" & i & "</a>"
      END IF
      If CInt(i) > CInt(PagAtual) Then
        Response.Write " <span style=""font-weight:bold;color:#ff0000;background-color:#f1f1f1;padding:3"">"
        Response.Write "<a href='index.asp?PagAtual=" & i & "'>" & i & "</a>"
      END IF
      Response.Write "</span> "
    Next

'------------------------------------------------------

  IF CInt(PagAtual) <> CInt(TotalPages) THEN 
  
    'Se estiver na última página, mostra apenas o botão Anterior e Primeira
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
    Response.Write("<a href='index.asp?PagAtual=" & PagAtual + 1 & "'>")
    Response.Write("Próxima")
    Response.Write("</a></font></B> ") 
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
    Response.Write("<a href='index.asp?PagAtual=" & TotalPages & "'>")
    Response.Write("Última")
    Response.Write("</a></font></B> ") 
    
    Else
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
    Response.Write("Próxima") 
    Response.Write("</font></B> ")
    
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
    Response.Write("Última") 
    Response.Write("</font></B> ")
  End If
End If

'End If
''wend

						rs.close
set rs = nothing

%>

Se alguem souber como resolver o problema me ajuda.

axo que se eu conseguir passar por exemplo nesse codigo que vou passar oq foi buscado e assim passar na propria url o que foi buscado tmb funcionaria só que nao sei como faco isso a parte do codigo que citei eh a seguinte Response.Write("<a href='index.asp?PagAtual=" & PagAtual + 1 & "'>")

 

Muito obrigado pela atencao e qualquer duvida pode perguntar

[xanburzum 169]

gera algum erro ...

dá uma olhada no lab. de script k ótimos exemplos pode te ajudar na logica...

[Marcos Coelho2 2]

como eu faco pra aparecer na url tmb a palavra que foi buscada

tipo acontece no orkut o sistema d busca deles

[xanburzum 169]

você fala salientar a palavra k foi pesquisada, realçando ela...

tem e xemplos no lab. de script