Erro Na Paginação

[Lone 0]

Galera consegui fazer a paginação com a ajuda do pessoal do forum, mas tem um erro esquisito, agora o sistemas lista todos os registro da variavel login, mas quando navego entre as paginas ele busca também os outros registro que não foram solicitados, ou seja quando clico no link para ir para a proxima pagina ele automaticamente busca os registros que estão no bd , gostaria de saber como travar a paginação só nos registros da variavel login,

 

<%'Paginação de Registrosn_page=request("n_page")If n_page="" Then n_page = 1set db = server.CreateObject("ADODB.Connection")db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"Set RecSet=Server.CreateObject("ADODB.Recordset")RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3 IF RecSet.EOF then   Response.Write "nenhum registro encontrado"  Response.End 'paramos o programaELSERecSet.PageSize = 1 'registros por páginaRecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a páginacontador=0do While not RecSet.EOF AND contador < RecSet.PageSizecontador=contador+1response.write "<font face=verdana size=2><b>"response.write RecSet("nome")&"</b><BR>"%> <table align="center" cellspacing=4 class="quadro" cellpading=0> <tr bgcolor=#EBEBEB>    <td><font color="#0000FF">Data <%=RecSet("data")%></font></td>   <td> </td>   <td><font size="2"> </font></td>   <td><font size="2"> </font></td> </tr> <tr>    <td bgcolor="#EBEBEB"><font color="#009999" size="2">01 - Abertura</font></td>   <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("abertura")%></font></td>   <td bgcolor="#EBEBEB"><font color="#009999" size="2">02 - Levantamento das      Necessidades</font></td>   <td bgcolor="#EBEBEB"><font size="2"><%=RecSet("levantamentonecessidades")%></font></td> </tr> <tr bgcolor="#009999">    <td> </td>   <td> </td>   <td> </td>   <td> </td> </tr> <tr>    <td colspan=4 align=center> </td> </tr></table><%RecSet.MoveNextloop response.write "<br>"For navega= 1 to RecSet.PageCountIf navega = Cint(n_page) Then response.write "<font face=verdana size=2><b>"response.write navegaElseresponse.write "<font face=verdana size=2><b>"response.write space(1) & "<a href=paginacaoteste2.asp?n_page=" & navega & ">" & navega & "</a>" & space(1)End IfNextresponse.write "<br><br>"anterior = n_page - 1proxima = n_page + 1If anterior > 0 Thenresponse.write "<font face=verdana size=2><b>"response.write "<a href=paginacaoteste2.asp?n_page="&anterior&">Anterior</a>" End IfIf proxima < navega Thenresponse.write "<font face=verdana size=2><b>"response.write space(1) & "<a href=paginacaoteste2.asp?n_page="&proxima&">Próxima</a>" End IfEnd If%>

[Lone 0]

você tem que especificar os campos a buscar nos links de navegação...

 

Por exemplo:

 

If anterior > 0 Then

response.write "<font face=verdana size=2><b>"

response.write "<a href=paginacaoteste2.asp?n_page="&anterior&">Anterior</a>"

End If

Ficar assim:

 

If anterior > 0 Then

response.write "<font face=verdana size=2><b>"

response.write "<a href=paginacaoteste2.asp?buscar="&palavra_a_buscar&"&n_page="&anterior&">Anterior</a>"

End If

Lembre que tem que passar todos os valores e recuperá-los através do Request.!!!

 

Ok?

Kara vou testar assim que chegar em casa, mas me diga uma coisa no caso ficaria assim então

 

request.form("login") 'no inicio e no fim If anterior > 0 Thenresponse.write "<font face=verdana size=2><b>"response.write "<a href=paginacaoteste2.asp?login="&login&"&n_page="&anterior&">Anterior</a>" End If