lista inloggade i administrationen?

Jag undrar, - finns det möjligheter att visa vilka som är inloggade? (se kod nedan) Önskar att recensenterna ska ha direktkontakt med varann.

If Request.Form("Action") = "Login" Then

	strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
	strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))

	If Len(strUID) > 0 And Len(strPWD) > 0 Then

		Set myConn = Server.CreateObject("ADODB.Connection")
		myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databasen.mdb")

		strSQL = "SELECT UserID, Anvniva FROM Users "&_
			" WHERE (Username = '" & strUID & "')"&_
			" AND (Password = '" & strPWD & "')"

		Set rs = myConn.Execute(strSQL)
		If Not (rs.BOF Or rs.EOF) Then

		intUID = rs("UserID")
		UserLevelautho  = rs("Anvniva")

	Response.Cookies ("User") 	= strUID
	Response.Cookies ("Username") = strUID
	Response.Cookies ("Userlevel")	= UserLevelautho

			
		Else

			strERR = "Du blev inte godkänd av vår rigorösa säkerhetskontroll"
		End If

		myConn.Close
		Set myConn = Nothing

		If Len(intUID) Then

			Session("UserID") = intUID
			Response.Redirect("redir.asp")
		End If
	Else

		strErr = "Du skall skriva båda Användarnamn och Lösenord"
	End If

	If Len(strErr) > 0 Then

		strErr = "<p><font color=red>" & strErr & "</font></p>"
	End If
End If

..eller finns det nåt annat enkelt system för att göra detta?