Vil ikke slette i DB fra global.asa

Nogen der kan se fejlen. Koden til at slette fra databasen virker hvis man kører den fra en normal ASP side.


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    ' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application("ActiveUsers") = 0
    Application("MaxActiveUsers") = 0
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    ' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") + 1
        If Application("MaxActiveUsers") < Application("ActiveUsers") then
        Application("MaxActiveUsers") = Application("ActiveUsers")
        end if

' Tilføj brugeren til databasen...
Set DataConn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db/users.mdb")
DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Set link = Server.CreateObject("ADODB.RecordSet")
link.open "Select * From Users Order by id", DataConn, 1, 3 

link.addnew
link.Fields("SessionN") = Session.SessionID
link.Fields("UserName") = "Standard Bruger"
link.Fields("UserIP") = Request.ServerVariables("REMOTE_ADDR")
link.update

link.close

    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Reducer antallet af brugere med 1, når en session afsluttes
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") - 1
        Set DataConn = Server.CreateObject("ADODB.Connection")
        DBPath = "DBQ=" & server.mappath("db/users.mdb")
        DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
        Set RS = DataConn.Execute("DELETE * FROM Users WHERE SessionN = '" & Session.SessionID & "'")
    Application.UnLock
End Sub
</SCRIPT>