Ciao a tutti.
Dovrei visualizzare in modalità random ad ogni reload della pagina, delle immagini contenute in una directory (qui contenuta nella variabile percorsoPhoto).
Il codice che utilizzo è il seguente (peraltro ve lo consiglio in quanto "dovrebbe" essere sufficiente caricare una nuova immagine nella directory per essere caricata casualmente):
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(percorsoPhoto))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
seme=Rnd()
intFileNumberToUse = Int(objFileCollection.Count * seme) + 1
response.Write(intFileNumberToUse)
response.Write(objFileCollection.Count)
response.Write(seme)
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = percorsoPhoto & objImageFileToUse.Name
Set objImageFileToUse = Nothing
%>
<table >
<tr>
<td><div id="menuFoto">[img]<%=strImageSrcText%>[/img]</div>
</td>
</tr>
</table>
Nella directory ci sono 42 immagini.
Il problema è che mi visualizza sempre la numero 30
In effetti con la response.write(seme) visualizzo sempre lo stesso numero, quindi devo supporre che la funzione Rnd non mi funziona correttamente.
Qualche suggerimento ?
Grazie
Marco
Rispondi quotando
