random billede med timer
jeg har denne kode som henter et random billede fra et bibliotek. men jeg vil også gerne have at billede selv skifter til et nyt med 4 sekunders mellemrum - kan man implementere det i nedenstående kode.<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
visID = Request.QueryString("id")
mappenavn = "../images/index/" '<---- 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)))
if visID <> "" then
if isNumeric(visID) then
visID = Int(visID)
if visID > Ubound(billeder) then visID = ""
end if
end if
if visID = "" then
randomize
visID = Int(rnd * (Ubound(billeder)+1))
end if
billedsrc = mappenavn & billeder(visID)
Set fs = Nothing
Set files = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/javascript" src="fade.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div id="container">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="700"><img src="<%=billedsrc%>" width="700" height="300" name="photo" id="photo"></td>
</tr>
</table>
</div>
</body>
</html>
