Online eller ej !

Først:
Når brugeren logger ind på siden tilføjer jeg dem i min Database... Koden ser sådan ud:

<%
If session("Brugernavn") = "" then
Session("Guest") = request.servervariables("REMOTE_ADDR")
Set Con = Server.CreateObject("ADODB.Connection")
con.open DB

strSQL = "SELECT * FROM guests WHERE (IP = '" & request.servervariables("REMOTE_ADDR") & "');"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, con, 1, 3
If (Rs.BOF AND Rs.EOF) Then
    Rs.AddNew
End If

    Rs("IP") = request.servervariables("REMOTE_ADDR")
  Rs.Update
    Session("Id") = Rs("ID")


Con.close
Set con = Nothing
Set sql = nothing
else
Session("Guest") = False
End IF
%>


Og så vil jeg så lave en funktion der sletter dem igen når de forlader siden ! Jeg prøvede så at lave min Global.asa sådan:


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
<% If session("brugernavn") = True then
    Set Con = Server.CreateObject("ADODB.Connection")
    con.open DB
                   
                    sql1 = "DELETE * FROM guests WHERE IP = '" & request.servervariables("REMOTE_ADDR") & "'"
                    Set rs = Con.Execute (sql1)
   
    Session("Guest") = ""
    Con.Close

%>

End Sub

Sub Session_OnEnd
<%

    Set Con = Server.CreateObject("ADODB.Connection")
    con.open DB
   
                    sql = "UPDATE users SET Online = 'Nej'"
                    sql = sql & "WHERE Id = " & Session("ID")
                    Set rs = Con.Execute (sql)
                   
                strSQL = "DELETE FROM Guests WHERE (ip = "& request.servervariables("REMOTE_ADDR") &");"
                Con.Execute (strSQL)
   
    Session.Abandon
  Response.Redirect("Login.asp")
    Con.Close
%>
End Sub
</SCRIPT>



Men det virkede sq heller ikke.... Jeg håber at der er en der vil hjælpe...