Online bruger

jeg har denne ide www.club-p.dk i mit community vil jeg gerne havde at man kan se om de andre brugerer er online. (der skal være et online ikon ved siden af køn under "brugerliste" (når man er logget ind)) jeg har brugt dette script Function Online(Login)

  If DateDiff("n", Login, Now) < 3 Then
      Online = "<img src='online.gif'>"
  Else
      Online = "<img src='offline.gif'>"
  End If
End Function


Response.Write Online("04-02-2003 09:57:46")

men så viser den kun at brugeren er online i 3 min og det er ikke meningen. meningen er at så længe brugerern er online skal der være et online ikon ud for hans navn i brugere listen hvordan gør man det. Funktionen skalgå ind og vise offline ikonet hvis man lukker browservinduet eller logger af (altså via et link). og den skal vise online ikonet når man er online