ZM2E
signal strength @ 3d2kl graph 1
ZM2E
signal strength graphs 2 very early morning @ 3d2kl
Lovely multiples from VD on 400
Useful links
<%
Function mostRecentImage(imgFolder)
dim fs, path, folder, file, item
Set fs = CreateObject("Scripting.FileSystemObject")
path = Server.MapPath(imgFolder)
Set folder = fs.GetFolder(path)
'Loop through the list of files, looking for newest one
mostRecent = 0
newestFile = ""
For each item in folder.Files
fileName = item.Name
' Only look at JPEG files
If LCase(Right(fileName,4)) = "jpeg" Or LCase(Right(fileName,3)) = "jpg" Then
' Is this "newer" than the previous most recent file?
If item.DateLastModified > mostRecent Then
mostRecent = item.DateLastModified
newestFile = imgFolder & "/" & fileName
End If
End If
Next
timeStamp = Year(mostRecent) & Month(mostRecent) & Day(mostRecent) & Hour(mostRecent) & Minute(mostRecent) & Second(mostRecent)
mostRecentImage = newestFile & "?" & timeStamp
End Function
%>
