NOMBRE DE CONNECTÉ (AVEC MEMBRES ;)

' Nombres de visiteurs anonyme
Function AnonymousVisitors()
   Dim RS, rSQL
   rSQL = "SELECT Count(*) FROM conn"
   Set RS= CONN.Execute(rSQL)
   AnonymousVisitors = RS(0)
   CONN.Close
   Set RS= Nothing 
   Set CONN= Nothing
End Function
	
' Nombres de visiteurs logués
Function AuthentVisitors()
Dim RS, rSQL
   rSQL = "SELECT Count(*) FROM conn WHERE lpseudo<>''"
   Set RS= CONN.Execute(rSQL)
   AuthentVisitors = RS(0)
   CONN.Close
   Set CONN= Nothing
   Set RS= Nothing
End Function

' Nombre de visiteur connecté sur le site
Sub DisplayDynamicCounter()
   Dim iAuthent, iAnonymous

   iAnonymous = AnonymousVisitors
   iAuthent = AuthentVisitors
   Response.Write "Nb de visiteurs connectés : " & iAnonymous & " dont " & iAuthent & " Membres
End Sub