Vise tilfældigt billede fra et dir

Hm...

Set fso = Server.Createobject(\"scripting.filesystemobject\")
set mappe = fso.getfolder(server.mappath(\".\"))
For each file in mappe.files
buildArr = buildArr & file.name & \"|\"
Next
Set mappe = nothing
set fso = nothing
buildArr = Left(buildArr, Len(buildArr)-1)
myarray = Split(buildArr, \"|\")
RANDOMIZE
index = int(rnd * Ubound(myarray))
Response.write(\"<IMG SRC=\"\"\" & myArray(index) & \"\"\">\")

Fantastisk!! Tak

Så lidt :-)