<% 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 | |||
|
|