Slumpa bilder

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%>

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.