Vis 5 nyeste billeder fra forskellige undermapper

Hej Eksperter.

Jeg har benyttet mig af følgende kode for at få vist de 5 nyeste billeder, der er blevet lagt i undermapper til en bestemt mappe på min server:
------------------------------------
<%Set fso = CreateObject("Scripting.FileSystemObject")

fileDate = ""
fileName = ""
filePath = ""
FileNr = 1
function saveFiles (foldernavn)
  Set objFolder = fso.getFolder( foldernavn )
  Set objFiles = objFolder.Files

  for each file in objFiles
  if instr(1,"bmp,gif,jpg,png,jpeg,tif",lcase(fso.GetExtensionName(file.name)))>0 then
    if isDate(fileDate) then
      if CDate(file.DateLastModified) > CDate(fileDate) then
        fileDate = file.DateLastModified
        fileName = file.name
        filePath = file.Path
      end if
    else
      fileDate = file.DateLastModified
      fileName = file.name
      filePath = file.Path
    end if
  end if

If FileNr < 6 Then
sti = replace(filePath,Server.MapPath("/"),"",1,-1,1)
sti = replace(sti,"\","/")
Response.Write "<a title=""Vis billed i stort format i galleriet"" href=""/gallery.asp?ShowPic=" & sti & """><img src=""" & sti & """ width=""120"" height=""120"" class=""opacity1"" onmouseover=""this.className='opacity2'"" onmouseout=""this.className='opacity1'"" border=""0""></a>&nbsp;"
End If

FileNr = FileNr + 1

  next

  For each Folder in objFolder.SubFolders
    call saveFiles (Folder.path)
  next
 
  Set objFolder = Nothing
  Set objFiles = Nothing
end function

relativSti = "/upload/downloads/billed"
strPhysicalPath = Server.MapPath(relativSti)
Set objFolder = fso.getFolder( strPhysicalPath )
For each Folder in objFolder.SubFolders
  call saveFiles (folder.Path)
next

FileNr = ""

Set objFolder = Nothing
Set fso = Nothing%>
------------------------------------
Men desværre virker den ikke ordentligt, når en ny mappe oprettes og der lægges et billed i den. Så viser den nemlig kun det ene billed 5 gange.

Er der nogen, der har en bedre kode?

Mvh.
W13