Date Last Modified - ASP

Original - asp Code <% 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" FileLastMod = CStr(FormatDateTime(ldLast, 2)) End Function %> <%="Last Modified: " & FileLastMod() %>

<%
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"
  FileLastMod = CStr(FormatDateTime(ldLast, 2))
End Function
%>
<%="Last Modified: " & FileLastMod() %> 

<%="Last Modified: " & FileLastMod() %> 

<%="Last Modified: " & FileLastMod()) %>