<%
'-----------------------------------------------------
'Funcao: UltimaAtualizacao()
'Sinopse: 'Retorna a data da ultima atualização do arquivo que se está visitando
'Parametro: Nenhum
'Retorno: String a Data e Hora de ultima atualização do arquivo
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function UltimaAtualizacao()
    Dim strCaminhoArquivo
    Dim objFSO
    Dim objFile

    'Caminho físico do arquivo
    strCaminhoArquivo    = (Request.ServerVariables("PATH_TRANSLATED"))

    'Criando o objeto FSO
    Set objFSO            = Server.CreateObject("Scripting.FileSystemObject")
    'Resgatando o objeto File
    Set objFile            = objFSO.GetFile(strCaminhoArquivo)

    'Retonando a função
    UltimaAtualizacao    = objFile.DateLastModified

    'Tirando os objetos da memória
    Set objFile            = Nothing
    Set objFSO            = Nothing
End Function
%>