her er scriptet:
<html>
<head>
<meta http-equiv="refresh" content="5">
</head>
<%
if request.querystring("dir") = "" Then
dir = "snapshot/"
else
dir = Request.querystring("dir") & "/"
end if
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(server.mappath(dir))
Set objFiles = objFolder.Files
%>
<!-- ************************ filoversigt *************************** -->
<%
For Each Image In objFiles
'response.Write Image.Name & "<br><br>"
sti = server.mappath(dir & image.name)
set f= objFS.GetFile(sti)
'Response.Write("Filen er oprettet: ")
'Response.Write(f.DateCreated)
'response.Write "<br><br><br>"
currentFile = f.DateCreated
if sidste <> "" Then
mForskel = DateDiff("d",currentFile,sidste)
dForskel = DateDiff("h",currentFile,sidste)
nForskel = DateDiff("n",currentFile,sidste)
end if
If (mForskel < 1) and (dForskel < 1) and (nForskel < 1) Then
nyeste = image.name
end if
sidste = (f.DateCreated)
set f=nothing
Next
response.Write "<br><br>Nyeste fil er: " & nyeste
%>
<!-- ************************ // filoversigt slut // *************************** -->
<img src="snapshot/<%= nyeste %>" alt="" border="0">
</body>
</html>
