errore paginazione

[ANTAGONIA]

Buon pomeriggio, il problema che ho con la paginazione è che, mi impagina i primi 5 record, suddivide le pagine ma,quando clicco la pagina N°2 o la 3 non mi fa vedere gli altri record sapete perchè?
per il momento vi posto il codice:

<% 
'NUMERO DI notizie PER PAGINA 
iPageSize = 5 
	
if request.QueryString("page") = "" then 
iPageCurrent = 1 'IMPOSTA LA PAGINA CORRENTE A 1 
else 
iPageCurrent = CInt(Request.QueryString("page")) 
end if 
if request.QueryString("order") = "" then 
StrOrderBy = "id_officina" 
else 
strOrderBy = CInt(request.QueryString("id_officina")) 
end if 

Dim scelta
'passaggio valore per Get
scelta = Request.QueryString("scelta")
'IMPOSTA LA CONNESSIONE E IL PERCORSO DEL DATABASE 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db_officine\officine_convenzionate.mdb") 
Set RS = Server.CreateObject("ADODB.Recordset") 
strSQL = "select * from officine_convenzionate where provincia like '%"&scelta&"%' order by id_officina desc"
RS.Open strSQL,Conn,3,3
RS.pagesize = iPageSize 
RS.cachesize = iPageSize 
'apertura recordset

iPageCount = RS.PageCount 
if iPageCurrent > iPageCount then iPageCurrent = iPageCount 
if iPageCurrent < 1 then iPageCurrent = 1 
'SE L'ARCHIVIO GUESTBOOK è VUOTO VISUALIZZA UN MESSAGIO 
if iPageCount = 0 then 
%> 
<hr> 
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nessuna Notizia presente!</font></p> 
<hr> 
<% 
else 
RS.absolutePage = iPageCurrent 
iRecordShown = 0 
		
'SE INVECE SONO PRESENTI NEWS 
%> 
<table border="0" cellpadding="0" cellspacing="0" width="100%"> 
<% 
do while iRecordShown < iPageSize and not RS.eof 
%> 
<tr> 
<td width="2%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&gt;</font></td> 
<td width="98%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
"><%=RS("ragione_sociale")%> di <%=RS("indirizzo")%>-<%=RS("provincia")%>-<%=RS("telefono")%>-<%=RS("fax")%>-<%=RS("cell")%>-<%=RS("venditore_cards")%></font>
</td> 
</tr> 
<% 
'COMPLETA LA VISUALIZZAZIONE DEI TITOLI DELLE NEWS E CHIUDE LA CONNESSIONE AL DATABASE 
iRecordShown = iRecordShown + 1 
RS.movenext 
loop 
%> 
</table> 
<% 
end if 
RS.close 
Set RS = nothing 
Conn.close 
%
<center> 
<% 
'MOSTRA IL NUMERO DELLE PAGINE 
for x = 1 to iPageCount 
%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">[ 
<%=x%>
]
</font> 
</center> 
<% 
next 
%>

Scusate se è molto lungo.. ma non posso altrimenti...
Aiutatemi per favore...Grazie mille

[Roby_72]

Devi passare anche la variabile "scelta" nel link della paginazione altrimenti lui cosa ne sa per cosa deve filtrare i record dalla seconda pagina in poi?

Roby

[ANTAGONIA]

in pratica ho fatto come hai detto te ma ho un'errore nella paginazione nel senso che, i primi 5 record impaginati, risultato esatti, quando clicco poi sulla pag.2-3-4 ect ect...mi tira fuori record che non centrano niente...
questo è quello che ho fatto:

<%=x%>

come mai ho l'errore sopra citato?Grazie mille

[Roby_72]

Nel link passi la variabile "officina" che non recuperi più...

Roby