Knapper som kan bladre i billedebibliotek
jeg vil gerne have at knapperne under billedet kan bladre i de billeder der ligger i det bibliotek det hentes fra.http://www.dfas.dk/index.asp
billedet: <img src="<%=billedsrc%>" border="0">
script: <%
mappenavn = "/images/billedeholder/" '<---- Angiv hvilken folder billeder er i
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)))
Set fs = Nothing
Set files = Nothing
%>
