-- text figures

Figure 1 GetFileInfo.asp
 <html>
 <head>
 <%
 Function ShowDateCreated(filespec)
     Dim fso, f
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set f = fso.GetFile(filespec)
     ShowDateCreated = f.DateCreated
 End Function
 
 Function ShowLastModified(filespec)
     Dim fso, f
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set f = fso.GetFile(filespec)
     ShowLastModified = f.DateLastModified
 End Function
 %>
 
 </script>
 </head>
 
 <body bgcolor="white">
 <%
 f = server.mappath(Request.ServerVariables("PATH_INFO"))
 d1 = ShowDateCreated (f)
 d2 = ShowLastModified (f)
 %>
 <B><%=f%></b>
 <UL>
 <LI>Was created: <%=d1%><br>
 <LI>Last modified: <%=d2%><br>
 </UL>
 </body>
 </html>