Online userliste

Hej..

Jeg har lavet mig en online userliste til mit community, hvor jeg korrekt får en liste med hvem der er online, ved at kalde denne

Sub WriteOnLineUsers()
  Dim arrUsers
  Dim n
  ' --- lav et array med online brugere ---
  arrUsers = Split(Application("Onlineusers"), ",")
  ' --- udskriv liste ---
  For n = 1 To UBound(arrUsers) -1
    Response.Write(GetUsername(arrUsers(n)) & "<br>")
  Next
End Sub

<%
Call WriteOnlineUsers()
%>

Men vil også gerne have jeg kan gå ind og lave online/offline status på om en bestemt bruger er online eller offline, og ikke fremkalde en hel liste.. hvordan gør jeg dette?

I stil med

<%=TjekOnline(rsUser("ID"))%>

function TjekOnline (strID)

end function

Nogen som kan hjælpe her?