Du får loopa igenom Mapp.SubFolders, och där loopa igenom filerna för varje mapp. Du får ta bort kontrollen som kollar ifall det inte fanns några filer, och lägga det meddelandet som en else-sats till den sista If-satsen istället.
Trådstart#1
HUr skriver man om för att denna kod skall även slumpa ifrån undermappar till mappen stuff/
<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = FSO.GetFolder(Server.MapPath("stuff"))
If Mapp.Files.Count = 0 Then
Response.Write "Tomt!"
Else
For Each File In Mapp.Files
If Not File.Name = "Thumbs.db" Then
strImage = strImage & File.Name &";"
End If
Next
arrImages = Split(strImage, ";")
End If
Set FSO = Nothing
If IsArray(arrImages) Then
randomize
rndNumber = Int(Rnd * UBound(arrImages))
Response.Write "<a href=""main.asp?cat=pics&view=stuff/" & arrImages(rndNumber) & "#pic""><img src=""stuff/"& arrImages(rndNumber) &""" width=""150"" height=""100"" border=""1""></a>"
End If%>