Global.asa der virker lokalt men ikke på server!

Hej !

Jeg har via global.asa lavet et script der retter en information i databasen når en brugers session udløber.
Dette script virker fint på min lokale IIS klient, men når jeg smækker det ud på min server virker det ikke. Ude på min server kan jeg dog godt få den til at rette i db'en når jeg vil eksikvere scriptet fra Sub Session_onStart, men ikke fra Sub Session_OnEnd

Her er scriptet:
------------------------

<script language="VBScript" runat="server">
Sub Application_OnStart
Application("BrugereOnline") = 0
End Sub

Sub Session_OnStart
Application.Lock
Application("BrugereOnline") = Application("BrugereOnline") + 1
Session.Timeout = 1
Application.Unlock
End Sub


Sub Session_OnEnd
Application.Lock
Application("popup") = "Du rettede i databasen!"
Application("BrugereOnline") = Application("BrugereOnline") - 1
  DSN = "Data Source=d:\www\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

    Dim TjekOnlineGlobal
    Dim OnlineGlobal

    Set TjekOnlineGlobal = Server.CreateObject ("ADODB.Connection")
    Set OnlineGlobal = Server.CreateObject ("ADODB.Recordset")
    TjekOnlineGlobal.Open DSN
    TjekOnlineGlobal.Execute("Update Test Set Test = 0 where Id = 1")
  TjekOnlineGlobal.close
  Set TjekOnlineGlobal = Nothing
    Application.Unlock

End Sub
</script>