<% 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
<% x=0 do while x<3 AND not People.eof IF People(2)="" OR IsNull(People(2)) THEN %> <% x=x+1 People.movenext loop People.close Set People=nothing %>
No Picture Yet <% ELSE %> <%= People(1) %> <% END IF %>
<%= People(1) %>

Launch Community

Sign up for the Community
Login Name:
Password: