Tilfældig billede fra mappe

Fik selv lavet det:

    <%
            dim FilArray(5000)
           
      strPath = "images" 'Stien til billederne
            FilNummer = 0

      Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
      Set MyFolder=MyFileObject.GetFolder(Server.MapPath(strPath))

      FOR EACH Fil in MyFolder.Files
        FilNummer = FilNummer + 1
        FilArray(FilNummer) = Fil.Name
      NEXT

      Randomize
      FilRandom =  Int((FilNummer * Rnd) + 1)
     
      response.write "<img src=images/" & FilArray(FilRandom) & ">"
    %>