ho fatto mille volta una paginazione ma ora mi ritrovo questo errore:

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/dablones/affiliazioni/pay_per_impression.asp, line 118


la riga è questa:

RS.CacheSize = iPageSize

il codice che sto utilizzando è questo:

codice:
<%
Dim iPageSize'Numero di record da visualizzare per ogni pagina
Dim iPageCount'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent   'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim SQL 'Comando da eseguire per effettuare la ricerca
Dim RS'Il nostro solito recordSet
Dim iRecordsShown 'Variabile usata per definire i record mostrati
dim adOpenKeyset 
iPageSize = 6
If Request.QueryString("page") = "" Then 

                iPageCurrent = 1 
Else 
                iPageCurrent = CInt(Request.QueryString("page")) 
End If 
If Request.QueryString("order") = "" Then 
                strOrderBy = "id" 
Else 
                strOrderBy = Request.QueryString("order") 
End If


Set RS = Server.CreateObject("ADODB.Recordset") 
'qui dico di estrarre i titoli della  in ordine alfabetico
sql="select * from listaaffiliazioni  where codcat=1 order by id DESC"
RS.Open sql, dcnDB, adOpenKeyset 
RS.PageSize = iPageSize 

RS.CacheSize = iPageSize 

iPageCount = RS.PageCount 
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount 
If iPageCurrent < 1 Then iPageCurrent = 1 
If iPageCount = 0 Then

Response.Write("Nessun record visualizzato!")
Else 

                RS.AbsolutePage = iPageCurrent 
iRecordsShown = 0 %>

<%Do While iRecordsShown < iPageSize And Not RS.EOF %>




<%' alterna i colori delle celle
dim acolori
dim col
dim col1
dim bgcolor
dim bgcolor1
dim acolori1
dim url
aColori = Split("#D9ECFF,#E8E8E8",",")
aColori1 = Split("#BBDDFF,#D7D7D7",",")
col=0
col1=0
while NOT RS.EOF
bgcolor = aColori(col)
bgcolor1 = acolori1(col)
titolo =rs("titolo")
 %>
         

 <tr>
	<td bgcolor="<%=bgcolor%>" width="321" height="17"  class="fontsize">
	[img]<%response.write percorsoimglink%>img/quadro2.gif[/img]
	[" target="_blank"><% response.write(ucase(rs("titolo"))) %>]
	<td bgcolor="<%=bgcolor%>" width="104" height="17" class="fontsize">
<tr>
	<td bgcolor="<%=bgcolor1%>" width="425" height="23" colspan="2" class="fontsize">
	<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%" bgcolor="#336699">[img]<%response.write percorsoimglink%>img/1x1.gif[/img]</td>
  </tr>
</table>
				<%dim mess
				dim messaggio
				dim i
				dim descrizione
				descrizione = RemoveTags(rs("descrizione"))
				mess = Split(descrizione)
				messaggio = "" 
				for i = 0 to Ubound(mess) 
				messaggio = messaggio & mess(i) & " " 
				if i = 30 then exit for 
				next 
				Response.Write(messaggio) %>...

</td> </td> </tr></tr>
<tr>
	<td bgcolor="#FFFFFF" width="425" height="10" colspan="2"></td></tr>
<%
col=col+1
if col>UBound(aColori) then col=0
col1=col+1
if col1>UBound(aColori1) then col1=0
%>

<%
col=col+1
if col>UBound(aColori) then col=0
col1=col+1
if col1>UBound(aColori1) then col1=0
Rs.movenext
wend
Rs.close
set Rs = nothing%>

<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop 
End If %>

</tr>
<tr>
	<td bgcolor="#FFFFFF" width="425" height="13" colspan="2" class="fontsize">
	<div align="center">[img]<%response.write percorsoimglink%>img/inviarticolo.gif[/img]Segnala programma Affiliazione - 
	[img]<%response.write percorsoimglink%>img/segnalaamico.gif[/img] Segnala ad un amico</div>
	
<div align="center">
<%RS.Close 
Set RS = Nothing 
dcnDB.Close %>

               
Pagina <%= iPageCurrent%> di <%= iPageCount%>
<% 
If iPageCurrent <> 1 Then 
%> 
<<Indietro

<% end if %> 
<%If iPageCurrent < iPageCount Then %> 
Avanti>> 
<% 
End If 
%>
ho messo del codice in più cioè non relativo alla paginazione perchè non vorrei che si fosse creato qualche conflitto