%
Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = s & "Page Last Updated: " & DateValue(f.DateLastModified)
ShowFileAccessInfo = s
End Function
%>
DEP Online: Hotel and Restaurant Recycling
DEP Recycling
Hotel
and Restaurant Recycling
Recycling
Resources for Hotels and Restaurants
Today
is: <% Response.Write(DateValue(NOW)) %>
<% Response.Write(ShowFileAccessInfo("F:\inetpub\wwwroot\mwcog.org\dep\recycle\mentor\case.htm")) %>
|
|