Stampare a video immagine casuale

[djjunior]

Carissimi,
come posso adattare questo script che mi stampi a video le immagini comprese in[*] in modo casuale?

	<%
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "img/" 
strExt = ".JPG"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date
custRs.Open

For Each strFile in objFiles

custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated
next

custRs.Sort = "data ASC"

custRs.movefirst
 
Do until custRs.eof
  
	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
	%>
    <span>[img]<%=strPath%><%=custRs([/img]" width="990" height="262" /></span>
<%
end if	
custRs.movenext

loop
Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing
%>

Grazie
G.

[djjunior]

nessun aiuto?

[optime]

non ho capito la domanda

[djjunior]

In pratica, così facendo mi stampa in ordine di data ASCENDENTE le immagini:

 <span>[img]<%=strPath%><%=custRs([/img]" width="990" height="262" /></span>

Invece vorrei che mi stampasse in random, ad ogni caricamento, le immagini.
Grazie
G.

[optime]

ma mica è quella riga che decide l'ordinamento! è l'ordinamento che hai impostato nella query sql...

[djjunior]

appunto, non vorrei che sia ordinato per data (come è ora) ma random....

[cavicchiandrea]

Una ricerchina (tempo stimato 2min) qui sul forum http://forum.html.it/forum/showthrea...=record+random

[djjunior]

grazie ANDREA, credimi avevo girato ma non avevo trovato questo post.
Grazie
G.