<%
strSQL = "SELECT ID, Login, Picture FROM People WHERE DATE_SUB(Now(), INTERVAL 3 MINUTE)<=LastMove AND Community=1"
Set Online = Server.CreateObject("ADODB.Recordset")
Online.Open strSQL, strConnectionStringPeople
TotalOnline=Online.recordcount
Online.close
Set Online=nothing
strSQL = "SELECT ID, Login, Picture FROM People WHERE Community=1 ORDER By LastMove Desc"
Set People = Server.CreateObject("ADODB.Recordset")
People.Open strSQL, strConnectionStringPeople
TotalPeople=People.recordcount
%>
<%= TotalPeople %> Members in the Community - <%= TotalOnline %> online | |||
|
|