Session_OnEnd script

Hejsa,

Jeg har nogle problemer med at få et script til at køre. Jeg har lavet dette kode i global.asa med det virker ikke helt.

Der bliver ikke oprettet nogen fil, hvis den ikke findes, og findens den bliver der ikke skrevet i den.

Nogen der kan hjælpe?


<script language="vbscript" runat="server">

Sub Application_OnStart
    Application("visitors") = 0
    Application("LogPath") = Server.Mappath("/data/logs/")
    Application("DBPath") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/data/db/data.mdb")
End Sub

Sub Session_OnStart
    Session.Timeout = 1
    Session.LCID = 1030
    Application.Lock
    Application("visitors") = Application("visitors")+1
    Application.UnLock
End Sub

Sub Session_OnEnd

    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    If not fso.FileExists(Application("LogPath")&"\logout.log") Then
        fso.CreateTextFile(Application("LogPath")&"\logout.log")
        Set File = fso.OpenTextFile(Application("LogPath")&"\logout.log", 2)
            File.WriteLine(vbcrlf &"--------------------------------------")
            File.WriteLine("LOGOUT.log created: "& Now())
            File.WriteLine("--------------------------------------"& vbcrlf)
        Set File = Nothing
    End if
   
    Set File = fso.OpenTextFile(Application("LogPath")&"\logout.log", 8)
   
    If not Session("username") = "" and Session("login") = "OK" then
        LoginData = Now() & " [ACTION: Logout OK]                                  [USER: "& Session("username") &"]"
    Else
        LoginData = Now() & " [ACTION: Logout OK]                                  [USER: UNKNOWN USER]"
    End if
   
    Application.Lock
    Application("visitors")=Application("visitors")-1
    Application.UnLock
End Sub

</script>