<% response.buffer = true response.expires = 0 response.cachecontrol = "Private" on error resume next set objFS = CreateObject("Scripting.FileSystemObject") strFileName = Request.ServerVariables("PATH_TRANSLATED") strFileName = left(strFileName, len(strFileName)-3) & "jpg" set objFile = objfs.GetFile(strFileName) %> alisonblogs.com LaundryCam
Time: <% = Now() %> Picture: <% = objFile.DateLastModified %>
LaundryCam, updated every 10 minutes or so...
alisonblogs.com LaundryCam
<% set objFile = nothing set objFS = nothing %>