CIAO RAGAZZI HO SEMPRE BISOGNO DI VOI. HO QUESTO PROBLEMA: VOGLIO GESTIRE UNA LISTA DI UTENTI REGISTRATI E QUINDI APPROVARLI, ELIMINARLI ECC. MA OTTENGO QUESTO ERRORE:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/_admin/Gestione_registrazioni.asp, line 58

IL MIO SCRIPT E' IL SEGUENTE (SONO SU SERVER A RUBA, MA C'ENTRA QUALCOSA??):

' NUMERO DI UTENTI PER PAGINA
iPageSize = 50

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

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../database/shop.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

' FA LA RICHIESTA AL DATABASE
sql = "SELECT * FROM Utenti ORDER BY " & strOrderBy & " DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

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

' NESSUN UTENTE REGISTRATO -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' REGISTRATO
' NEMMENO UN UTENTE!
If iPageCount = 0 Then
%><hr>
<p align="center"><font size="2" face="Verdana">Nessun utente registrato!</font></p>
<hr>
<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0

' SE INVECE SONO PRESENTI DEGLI UTENTI..
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
' VISUALIZZA L'USERNAME DELL'UTENTE
Do While iRecordsShown < iPageSize And Not RS.EOF

numero = numero + 1
%>
<tr>
<td width="7%"><font face="Verdana" size="2"><%=numero%>.</font></td>
<td width="172%"><font face="Verdana" size="2">"><%=RS("Username")%></font></td>
<td width="19%"><font face="Verdana" size="2">">Cancella</font></td>
</tr>
<%

iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
' MOSTRA IL NUMERO DELLE PAGINE,
' DATO CHE VERRANNO MOSTRATI
' IN QUESTO ESEMPIO 50 UTENTI PER PAGINA

For x=1 to iPageCount
%>
<font face="Verdana" size="2">[ <%=x%> ]</font>
<%
Next
%>