Problem med 'Sidst Opdateret' dato

Jeg kan ikke forstå hvorfor mit script ikke angiver den rigtige dato for hvornår der sidst er sket ændringer i databasen. Jeg bruger nedenstående script, og det plejer at virke:

<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("../fjordvejs.mdb"))

Session.LCID = 1030

lngDate = f.DateLastModified
    arrMonth2 = Array("JAN.", "FEB.", "MARTS", "APRIL", "MAJ", "JUNI", "JULI", "AUG.", "SEP.", "OKT.", "NOV.", "DEC.")
        lngCDate = CDate(lngDate)

    lngMonth2    = Month(lngCDate)-1
    lngDay        = Day(lngCDate)
    lngYear        = Year(lngCDate)


Response.Write("Opdateret:<br>" & lngDay & ". " & arrMonth2(lngMonth) & " " & lngYear & "<br>")
set f=nothing
set fs=nothing
%>

Hvad kan være galt? Den skriver den 25. JAN., men ændringen er sket den 25. SEP.