I have tried different coding and I always get the same problem : I can list my records on the first page but nothing shoe up on the second page (and all the rest of them).

thanks for helping me

Here is my code:

Code:
<% Dim aut 
aut=Request.QueryString("auteur") %> 
<% Dim aut2 
aut2=Request.QueryString("pauteur") %> 

<% Set Conn = Server.CreateObject("ADODB.Connection") 
myPath = "xxx.mdb" 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & myPath & ";" 


Set rs = Server.CreateObject("ADODB.Recordset") 
rs.PageSize=5 
rs.CursorType = 3 
rs.Open "Select * from table WHERE nomauteur = '" & sqlEncode(aut) & "' and preauteur = '" & sqlEncode(aut2) & "'  ORDER BY titre ASC, datecri DESC ",Conn,3,3 

if rs.eof=false then 

if Request.QueryString("iPage")="" then 
iPage = 1 
else 
iPage = cint(Request.QueryString("iPage")) 
end if 

rs.AbsolutePage = iPage 


Dim iNumLigne 
Do while not rs.EOF and iNumLigne < rs.PageSize%> 

 <%=rs("Titre")%> de  <%=rs("nomauteur")%> <br> 
  
  
<% 
rs.MoveNext 
iNumLigne = iNumLigne + 1 
Loop 
%> 

<%Dim i 
For i = 1 To rs.PageCount%> 

<a href="paged2.asp?iPage=<%=i%>"><%=i%></a> 

<%Next%> 

<%end if%>