Lista inloggade medlemmar

Tjena,

försöker skapa ett inloggnings system där man sen ska kunna se vilka andra som e online/inloggade.

Inloggningen fungerar korrekt men den uppdaterar inte mitt fält OnlineStatus i databasen (Access) som fortfarande står som 0 :(

just nu så har jag följande kod:

<% Response.Buffer = TRUE

	Set Conn = Server.CreateObject("ADODB.Connection") 
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb") 

	Set recset = Conn.Execute("Select * from tbl_users")

	X = FALSE

	Do Until X = TRUE OR RecSet.EOF

	If RecSet("Username") = Request.Form("Username") Then
	X = TRUE
	Exit Do
	End If

	RecSet.MoveNext
	Loop

	If X = TRUE Then

		Y = FALSE
		Do Until Y = TRUE OR RecSet.EOF

		If RecSet("Password") = Request.Form("password") Then
		Y = TRUE
		Exit Do
		End If

		RecSet.MoveNext

		Loop

	End If

	If X = FALSE Then 
	Response.Redirect "index.asp?mess=error&username"

	ElseIf Y = FALSE Then
	Response.Redirect "index.asp?mess=error&password"

	End If

	If X = TRUE AND Y = TRUE Then 

	Session("username") = Request.Form("username")
	Session("password") = Request.Form("password") 

        strSQL = "UPDATE tbl_users SET OnlineStatus = 1 WHERE Username = "&Session("Username")&""
        

	%>

<%	
	If RecSet("Access") = "2" Then
	Session("access") = "Admin" 
	Session("control") = "yes"

	Response.Redirect "admin.asp"
	
%>
		

	

<% End If %>

<% 	If RecSet("Access") = "1" Then
	Session("access") = "Member"
	Session("control") = "yes"

 %>

	<% Response.Redirect "member.asp" %>

<% Else %>

<%	End If 
	End If
	RecSet.Close
	Conn.Close %>

</html>

OnlineStatus är satt till tal i databasen

vad är det jag missar?? Jag kanske är helt ute och cyklar men mina ögon tycker det ser rätt ut (dom har iofs svikit mig förr)

Tacksam för all hjälp jag kan få

/S