Last Updated: <% 'Dim strFileName 'Dim dtmLastModified 'Dim dtmLastModifiedDate 'Dim dtmLastModifiedTime Dim strFileName, strFileNameCalendar, objFile, objFileSystemObject Dim dtmLastModified, dtmLastModifiedDate, dtmLastModifiedTime Dim sLastModifiedMonth strFileName = Request.ServerVariables("SCRIPT_NAME") strFileName = Replace(strFileName, "/", "\") strFileName = Server.MapPath(strFileName) Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystemObject.GetFile(strFileName) dtmLastModified = objFile.DateLastModified Set objFile = Nothing Set objFileSystemObject = Nothing dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1) dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3) Select Case Month(dtmLastModified) Case 1 sLastModifiedMonth = "January" Case 2 sLastModifiedMonth = "February" Case 3 sLastModifiedMonth = "March" Case 4 sLastModifiedMonth = "April" Case 5 sLastModifiedMonth = "May" Case 6 sLastModifiedMonth = "June" Case 7 sLastModifiedMonth = "July" Case 8 sLastModifiedMonth = "August" Case 9 sLastModifiedMonth = "September" Case 10 sLastModifiedMonth = "October" Case 11 sLastModifiedMonth = "November" Case 12 sLastModifiedMonth = "December" End Select Response.Write sLastModifiedMonth & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified) %> 01/09