Ciao a tutti,
ho questo problema, devo far visualizzare in forma random delle immagini, su questo forum ho trovato uno script che, adattato alle mie esigenze, mi da il seguente errore:

SELECT * FROM PICTURES WHERE PIC_APPROVED = True ORDER BY PIC_ID
Microsoft OLE DB Provider for ODBC Drivers error '80040e24'

Rowset does not support fetching backward.

/inc/inc_myimg.asp, line 19


La linea 19 é: RSimg.Move rndNumber


Sotto vi posto il mio codice e poi dopo l'originale per farvi capire cosa ho modificato....


SCRIPTS MODIFICATO
codice:
<%	Dim  RSimg, SQLimg

		SQLimg = " SELECT * FROM PICTURES WHERE PIC_APPROVED = True ORDER BY PIC_ID "

	Response.Write SQLimg
	Set RSimg= Conn.Execute(SQLimg)

Dim rndMax 
rndMax = CInt(RSimg.RecordCount) 
RSimg.MoveFirst 
Dim rndNumber 
Randomize Timer 
rndNumber = Int(RND * rndMax) 
RSimg.Move rndNumber 
%>

" target="_blank">[img]/img/MY_IMG/<%=RSimg([/img]" alt="<%=RSimg("PIC_DESC") %>" width="100" height="100" border="0" />
   <%if RSimg("PIC_DESC") <> "" Then%><span class="no"><%=RSimg("PIC_DESC") %></span><%End if%>
SCRIPTS ORIGINALE
codice:
<% Dim objRS 
set objCON = Server.CreateObject("ADODB.Connection") 
objCON.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/photogallery.mdb") 
set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.open "SELECT PIC_ID, PIC_CAT, PIC_NAME, PIC_IMAGE, PIC_APPROVED, PIC_DESC FROM PICTURES where PIC_APPROVED=1 order by PIC_ID ", objCON, 3, 1 
Dim rndMax 
rndMax = CInt(objRS.RecordCount) 
objRS.MoveFirst 
Dim rndNumber 
Randomize Timer 
rndNumber = Int(RND * rndMax) 
objRS.Move rndNumber 
%> 
[img]public/<%=objRS([/img]" alt="<%=objRS("PIC_DESC") %>" width="18%" height="60%" />
 
<%if objRS("PIC_DESC") <> "" Then%><span class="no"><%=objRS("PIC_DESC") %></span><%End if%> 
<% 
objRS.Close 
Set objRS = Nothing 
objCON.Close 
Set objCON = Nothing 
%>