Random visning af flash fil.
Hejsa...Jeg har problemer med at få vist nogle flash filer i en random rækkefølge...
Jeg læste http://www.eksperten.dk/spm/387117 og har sat denne kode på min side:
<%
mappenavn = "/web-dezigns/flash/" '<---- 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="227" height="70">
<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="227" height="70"></embed></object>
<%
Set fs = Nothing
Set files = Nothing
%>
Men det virker stadig ikke.. Siden står bare og bliver ved med loade ?? Nogen kan løse det ?
