Pegar a data da última modificação na página

Código bastante útil
para pegar a data da última modificação
na página. Fique à vontade!

<SCRIPT LANGUAGE=VBScript
RUNAT=SERVER>
Function FileLastMod()
‘ declaracao das variaveis locais
Dim loFs, lsFile, lsPath, loFile, ldLast

‘ cria uma chamada
ao objeto File SystemObject
Set loFs = CreateObject("Scripting.FileSystemObject")

‘ Pega o caminho
logico do atual arquivo
‘ (i.e. the file in which this code runs)
lsFile = Request.ServerVariables("SCRIPT_NAME")

‘ pega o caminho
fisico do arquivo
lsPath = Server.MapPath(lsFile)

‘ faz uma ligacao
direto ao arquivo
Set loFile = loFs.GetFile(lsPath)

‘ pega a "ultima
modificacao" deste arquivo
ldLast = loFile.DateLastModified

‘ destroe os objetos
Set loFile = Nothing
Set loFs = Nothing

‘ Formato:. "MM/DD/YY"
FileLastMod = CStr(FormatDateTime(ldLast, 2))
End Function
</SCRIPT>

<% Response.Write
("<br>ultima modificacao: " & FileLastMod())
%>