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:
ho messo del codice in più cioè non relativo alla paginazione perchè non vorrei che si fosse creato qualche conflittocodice:<% 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 %>
- 
Rispondi quotando
