random flashmovie eller billede

Det kan godt lade sig gøre..
Med FSO læser du alle filnavnene i en mappe, og smider dem ind i en streng.
Derefter splitter du strengen op. Så har du en array, og kan bruge en random funktion, til at hente et tilfældig filnavn.

Eksempel:

<%
Option Explicit
dim objFSO, objFiles, item

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFiles = objFSO.GetFolder(Server.MapPath("."))

For each item in objFiles.Files
  if item.Name <> mid(request.servervariables("script_name"), instrrev(request.servervariables("script_name"), "/") + 1) then streng = streng & item.Name & ";"
Next

Set objFSO = Nothing

dim streng, arrStreng, filnavn

streng = left(streng, len(streng) - 1)
arrStreng = split(streng, ";")

randomize
filnavn = arrStreng(int(( 1 * Rnd + 1)) + 2) ' ved jeg ikke lige hvordan skal laves..

Select Case LCase( mid(filnavn, InStrRev(filnavn, ".") + 1) )
case "jpg"
  response.write "<br>skriv html kode til JPG filen"
case "swf"
  response.write "<br>skriv html kode til SWF filen"
End Select
response.write "<br><br>Filnavn: " & filnavn
%>

Denne linie skal rettes:
filnavn = arrStreng(int(( 1 * Rnd + 1)) + 2) ' ved jeg ikke lige hvordan skal laves..

Du kan tiløje flere formater, ved at tilføje:
case "(format)"
  response.write "<br>skriv html kode til (format) filen"

Jeg tror at det skal være:
filnavn = arrStreng(int((UBound(arrStreng) * Rnd + 1)) - 1)

lukker spørgsmålet...