Lave så global.asa tæller unikke besøg

Hej

Ja overskriften siger jo det hele.. Hvordan får jeg følgende kode til at tælle unikke besøgende?
For som det er nu lægger den en til hver gang man opdatere siden..

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    ' Skriv kode som skal køres når applikationen (serveren) starter
   
    Application.Lock
    Application("OnlineUsers") = ","
    Application.UnLock   
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    ' Skriv kode som skal køres når en session starter
End Sub

Sub Session_OnEnd
    ' Skriv kode som skal køres når en session afsluttes
   
    If Len(Session("UserName")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("Username") & ",", "")
    Application.UnLock
End If
   
End Sub
</SCRIPT>