Vis tilfældig billed

Dette tyk kode tager en tilfældig billede fil, gif,jpg,jpeg,bmp:

Du kan rette stien i denne linje:
mappenavn = "mappepaadit/"

<%
mappenavn = "mappepaadit/"
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
  if InStr(1,"gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
    filList = filList & "," & f.name
  end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"

Set fs = Nothing
Set files = Nothing
%>

Hej Eagleeye

Undskyld jeg skriver her igen!
Gider du ikke lige kontakte mig?

Mvh Thomas
admin@dirch-passer.dk

Takker - det var lige det jeg skulle bruge:)