opdatere ved login/out

Hey eksperter!

Jeg har forsøgt at lave noget kode men får en http 500 error klasket retur af explorer....

Jeg vil gerne lave det sådan at når en person logger ind på siden sættes et felt ved navn "online" til 'true'

Når person logger ud vil jeg gerne opdatere to felter
1 "online" skal sættes til 'false' igen og
2 "sidstonline" skal sættes til '(dags dato)'

* her er koden til min login
<% Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/kongelogen.mdb")
Conn.Open DSN

Dim strKongenavn, strPassword
strUsername = (Trim(Replace(request.form("username"),"'","''" )))
strPassword = (Trim(Replace(request.form("password"),"'","''" )))

SQL = "select * from konge where username= '" & strUsername & "' and password= '" & strPassword & "'"
Set rs = Conn.Execute(SQL)

If Not (rs.BOF Or rs.EOF) Then
Session("konge") = rs("username")
Session("id") = rs("id")
Session("logemedlem") = True
Conn.Close
Set Conn = Nothing
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/kongelogen.mdb")
Conn.Open DSN
SQL = "UPDATE [konge] SET [online] = 'true' WHERE [id] = "&Session("id")
Set rs = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Response.redirect "index.asp"
Else
Response.redirect "login.asp"
End If
%>

** her er koden til min logud
<% Response.Buffer = True
dtmDate = Request.QueryString("date")
dtmToday = Date

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/kongelogen.mdb")
Conn.Open DSN
SQL = "UPDATE [konge] SET [sidstonline] = '"&dtmDate&"', [online] = 'false' WHERE [id] = "&Session("id")
Set rs = Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Session.Abandon
Response.redirect "index.asp"
%>

mvh.
Kristian