Random visning af flere flash filer

Et eks kunne være dette som løber filerne igennem i en folder og er det swf filer putter den dem i en liste og vælger så en tilfældigt fil bagefter og viser den.:


<%
mappenavn = "images/mediafiles/"    '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
  if InStr(1,"swf", 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)))

'Lav Flash object
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
  <param name="movie" value="<%=billedsrc%>">
  <param name="quality" value="high">
  <embed src="<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>

<%
Set fs = Nothing
Set files = Nothing
%>

Jeg har nu prøvet scriptet hvor jeg har angivet navnet på mappen som den eneste ændring, men filen bliver ikke vist, siden står bare og kører. Det er kun mappens navn der skal angives og ikke hele stien ikke?

Mappen indeholder to .swf filer

Nogen ide om hvorfor en af flash filerne ikke bliver vist?

Hænger siden ?

En ting omkring stien mappenavn den skal slutte på / for eller bliver det ikke rigtigt når man senere sætte filnanvet efter:

mappenavn = "images/mediafiles/"

Noget andet kunne være, hedder filerne ikke .swf  ?

Grunden til at siden "hang" var fordi jeg ikke havde den afsluttende / med, den er nu tilføjet og det virker perfekt.

1000 tak for hjælpen, du har sparet mig for en masse tid :o))