<%
on error resume next
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile(Request.ServerVariables("PATH_TRANSLATED"))
Response.Write("Last Modified: " & FormatDateTime(f.DateLastModified,1))
set f=nothing
set fs=nothing
%>
