Hjælp til en online liste

Jeg kan snart ikke mere, jeg har spurgt dette spm mange gange uden den rigtige svar.

Jeg håber virkelig at i ekspertere hjælper mig denne gang. TAK

Jeg skal bare have en liste af online brugere.

Hvis en brugere logger af eller lukker for vinduet skal man ikke længere være online.

Jeg ønsker ikke links, TAK.  I må meget gerne sende hele koden SOM VIRKER, TAK: madka@msn.com


Her er min login kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("members.mdb")
   
    SQL = "SELECT * FROM users where username = '" & Request.form("username") & "'"
    Set rs = Conn.Execute(SQL)
       
        If rs.BOF Or rs.EOF Then
        Response.Redirect("login.asp?error=Incorrect username!")
        end if
           
            if rs("password") = Request.form("password") then
            session("username") = rs("username")
            session("id") = rs("id")
            session("login") = yes
            Response.Redirect("logget.asp")           
           
            else
            Response.Redirect("login.asp?error=Wrong password!")
            end if

rs.close
set rs = Nothing
Conn.Close
Set Conn = Nothing
%>