News

Send us your news and we'll add it to this page.

Home | About | News | Calendar | Photo Gallery | Contact | admin | Wells

<% Dim strFileName Dim dtmLastModified Dim dtmLastModifiedDate Dim dtmLastModifiedTime Dim updated 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) updated = "Updated " & monthname(month(dtmLastModified)) & " " & year(dtmLastModified) 'Response.Write(dtmLastModifiedDate & " " & dtmLastModifiedTime) %>

<%=updated%>