Aiuto!
Sto tentando di usare la paginazione per questa pagina, ma ottengo questo errore:

ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/ADMIN/elenco_utenti.asp, line 47

--- questo è il codice, chi mi da una mano, per favore???


<%
Option Explicit
%>

<!--#include virtual="/include/inc_logincheck_admin.asp"-->
<!--#include virtual="/include/inc_parole.asp"-->
<!--#include virtual="/include/inc_variabili.asp"-->
<!--#include virtual="/include/inc_db.asp"-->
<!--#include virtual="/include/inc_libreria.asp"-->

<!--#include virtual="/include/inc_admin_alto.asp"-->
<%
Dim QSOrdinaPer, SQL, RS, QSPg
%>
<br>
<p align="right">
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>">Indietro</a>  
</p>

<table align="center" border="0" width="350">
<tr>
<td width="25" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=id">ID</a></td>
<td width="50" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=userid">UserID</a></td>
<td width="50" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=cognome">Cognome</a></td>
<td width="25" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=provincia">Pr</a></td>
<td width="50" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=stato">Stato</a></td>
<td width="25" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=rivenditore">Riv</a></td>
<td width="50" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=referral">Referral</a></td>
<td width="50" bgcolor="#FFFFEC"><a href="elenco_utenti.asp?ordinaper=data">Data</a></td>
<td width="25" bgcolor="#FFFFEC">Opzioni</td>
</tr>
<%
QSOrdinaPer = Request.QueryString("ordinaper")
If QSOrdinaPer = "" then
QSOrdinaPer = "id"
End If

SQL = " SELECT * FROM Utenti ORDER BY " & QSOrdinaPer
Set RS = Conn.Execute(SQL)
RS.PageSize = MaxProdottiPerPagina



If Not RS.EOF Then RS.MoveFirst


RS.AbsolutePage = QSPg

If QSPg <> 1 Then
Footer = "<a href=""catalogo.asp?scat=" & QSSCategoria & "&cat=" & QSCategoria & "&pg=1&q=" & QSQuery & """>" & PrimaPagina & "</a> "
Else
Footer = PrimaPagina & " "
End If

For I = 1 To RS.PageCount
If I = QSPg Then
Footer = Footer & I & " "
Else
Footer = Footer & "<a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&pg="&i&"&q=" & QSQuery & """>"& I &"</a> "
End If
Next

If QSPg <> RS.PageCount Then
Footer = Footer & "<a href=""catalogo.asp?scat="&QSSCategoria&"&cat="&QSCategoria&"&pg="&RS.PageCount&"&q=" & QSQuery & """>" & UltimaPagina & "</a>"
Else
Footer = Footer & UltimaPagina
End If

For I = 1 To RS.PageSize
If RS.EOF Then Exit For



Do While Not RS.EoF
%>
<tr>
<td valign="top"><b><%=RS("ID")%></b></td>
<td valign="top"><%=RS("UserID")%></td>
<td valign="top"><%=RS("Cognome")%></td>
<td valign="top"><%=RS("Provincia")%></td>
<td valign="top"><%=RS("Stato")%></td>
<td valign="top">
<%
If RS("Rivenditore") = True Then
%>
Sì
<%
Else
%>
No
<%
End If
%>
</td>
<td valign="top"><%=RS("Referral")%></td>
<td valign="top"><%=RS("Data")%></td>
<td valign="top">
<a href="modifica_utenti.asp?id=<%=RS("ID")%>">Mod</a> |
<a href="conferma_elimina.asp?id=<%=RS("ID")%>&tabella=utenti&descrizione=<%=RS("UserID")%>">Canc</a> |
<a href="elenco_ordini.asp?userid=<%=RS("UserID")%>">Stat</a>
</td>
</tr>
<%
RS.MoveNext

%>

</table>

<%
RS.Close
%>

<!--#include virtual="/include/inc_admin_basso.asp"-->

<%
Set RS = Nothing
Conn.Close
Set Conn = Nothing
loop
next

%>