Salve ragazzi,
cercando tra i vecchi post ho trovato questo script per caricare immagini random da una cartella, l'ho testato e andrebbe benissimo se non fosse che a volte va a vuoto, ossia non mi carica nessuna immagine, sapreste mica correggerlo??
Grazie..
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder(Server.MapPath("/public/cucciolate/"))
Set fileset = fold.files
fileCount = fileset.count
if fileCount > 0 then
counter = 1
randomize
fileToPick = clng((rnd * fileCount) + 0.5)
for each file in fileset
if counter < fileToPick then
counter = counter + 1
else
randomFile = file.name
exit for
end if
next
else
response.write "Empty folder."
end if
set fileset = nothing
set fold = nothing
set fso = nothing
%>
Rispondi quotando
