paginazione funziona solo la pagina 1

[Stanislao]

ho uno script contenente una query proveniente da un form di richiesta
e tutto funziona benissimo

solo che alla prima pagina restituisce i record mentre alle pagine successive compare l'errore

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/new/cerca.asp, line 149

in pratica non mi passa la query alle altre pagine....come potrei risolvere?

<%

'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 40

'connessione al db

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("miodta.mdb")

Set rs=Server.CreateObject("ADODB.RecordSet") 

dim sesso, data_ricerca,anni_ricerca 

sesso=request.form("Sesso") 

anni_ricerca=(cint(request.form("Eta")))*-1 

data_ricerca=dateadd("yyyy",anni_ricerca,now()) 

sql="select * from Iscritti where sesso='" & replace(sesso,"'","''") & "' and " & "year(Data_Nascita)=" & year(data_ricerca) & " and month(Data_Nascita)<=" & month(data_ricerca) & " and Day(Data_Nascita)<=" & day(data_ricerca)



rs.Open sql,Conn,3,3 


'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = 1
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page 

'scrivo i link ai 24 record

response.Write("<P align='center'>[B]Pagine[/B]")

For pag= 1 to rs.PageCount
if CStr(page) = Cstr(pag) then
'grassetto per la pagina corrente
Response.Write "[b]"
Response.Write "<A style='text-decoration:none;' href='cerca.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write "[/b]"
else
'normale per le altre pagine
Response.Write "<A  style='text-decoration:none;' href='cerca.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 




x=0
response.Write("<table id='table_1' align='center' border=0 cellpadding=0 cellspacing=0><tr>")
For i = 1 to perpage
if not rs.eof then 


Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Foto = Server.MapPath("/foto/bbart/public/" & rs("Foto"))



    if fso.fileExists(Foto) then
        Response.write("<td id='td' width='150' height='110'>[url='profilo2.asp?ID=" & rs("ID") & "'][img]../foto/bbart/public/miniatura.aspx?fileName="&rs("Foto")&"[/img]<div align=left>" & rs("User"))&"</div>[/url]"
        if rs("Status_Connect")=true then
        response.write("[url='#'][img]immagini varie/busta.gif[/img][/url][img]immagini varie/connesso.gif[/img]</td>")    
        else
        response.write("[url='#'][img]immagini varie/busta.gif[/img][/url][img]immagini varie/disconnesso.gif[/img]</td>")                
        end if    
            else 

        Response.write("<td id='td' width='150' height='110'><a href='profilo2.asp?ID=" & rs("ID") & "' id=link>[img]uomo.gif[/img]
<div align=left>" & rs("User"))&"</div></a>"
        if rs("Status_Connect")=true then
        response.write("[url='#'][img]immagini varie/busta.gif[/img][/url][img]immagini varie/connesso.gif[/img]</td>")    
        else
        response.write("[url='#'][img]immagini varie/busta.gif[/img][/url][img]immagini varie/disconnesso.gif[/img]</td>")                
        end if    
            end if


        Response.write("</div>")

rs.MoveNext

                        x = x + 1
                        if x=4 then 
                        Response.Write("</tr><tr>")
                        x=0
                        end if
end if
next



rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
response.Write("</tr></table>")
%> 

grazie infinite