Carissimi,
come posso adattare questo script che mi stampi a video le immagini comprese in[*] in modo casuale?
codice:
<%
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.