Salve a tutti, avrei l'esigenza di ricavare la data dell'ultima modifica di un db access, avevo provato con la seguente funzione, ma evidentemente non funge bene.
La data di aggiornamento sembra impazzita nel senso che in modo del tutto casuale anche senza aver apportato modifiche al db (insert, delete, update) la data e l'ora si aggiornano.
Questo succede sia in locale che in remoto, quando si verifica l'anomalia in realtà le uniche operazioni al db sono di lettura cioè delle query di tipo select.
Sbaglio forse funzione o anche le select influenzano la DateLastModified?

Grazie.

codice:
Function Aggiornamento()

Dim Db, FSO, TextStream, Data, Data1, Ora
      
Db = "/mdb-database/notizie.mdb"
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set TextStream = FSO.GetFile(Server.MapPath(Db))   
Data = TextStream.DateLastModified                                                     
Data1 = FormatDateTime(Data,0)
Data1 = Left(Data1, 10)
Ora = Replace(Right(Data, 8),".",":")
Ora=  Left(Ora, 5)
Response.Write(Data1&" "&Ora)

Set FSO = Nothing
Set TextStream = Nothing

End Function