<%
'
' Module: Displays file system's last modified for the current web page.
' The date is displayed CLF compliant "YYYY-MM-DD" string
'
'
' History: 2002-Feb-07 BL - created
' 2007-Feb-14 Webmaster - modified
'
on error resume next
dim thisFile, fso, fs, dlm
dim y, m, d
thisfile = Request.ServerVariables("SCRIPT_NAME")
thisfile = Server.MapPath(thisfile)
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fs = fso.getfile(thisfile)
dlm = fs.datelastmodified
set fs = nothing: set fso = nothing
if IsDate(dlm) then
if err.number = 0 then
y = Year(dlm)
m = Month(dlm)
d = Day(dlm)
if m < 10 then m = "0" & m
if d < 10 then d = "0" & d
Response.Write(y & "-" & m & "-" & d)
end if
end if
%>