Function FileLastMod()
	' Local variables
	Dim loFs, lsFile, lsPath, loFile, ldLast
	
	' Create an instance of FileSystemObject object
	Set loFs = CreateObject("Scripting.FileSystemObject")
	
	' Get the logical path of the current file 
	' (i.e. the file in which this code runs)
	lsFile = Request.ServerVariables("SCRIPT_NAME")
	
	' Get the physical path of the file
	lsPath = Server.MapPath(lsFile)
	
	' Get a handle/pointer to this file
	Set loFile = loFs.GetFile(lsPath)
	
	' Get the "Last Modified" property of this file
	ldLast = loFile.DateLastModified
	
	' Release the objects
	Set loFile = Nothing
	Set loFs = Nothing
	
	' Write out the date in the long date 
	' format e.g. "MM/DD/YY"
	' vbGeneralDate	0	Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed. 	
	' vbLongDate	1	Display a date using the long date format specified in your computer's regional settings.	
	' vbShortDate	2	Display a date using the short date format specified in your computer's regional settings.	
	' vbLongTime	3	Display a time using the time format specified in your computer's regional settings.	
	' vbShortTime	4	Display a time using the 24-hour format (hh:mm).
	FileLastMod = CStr(FormatDateTime(ldLast, 1) & " " & FormatDateTime(ldLast, 4))
End Function