display whos online on default.asp

I know there was a MOD for this, but I can't find it!

Copied the code from my navigation_bottons page as follows - view it working at http://www.nwcld.org/index2.htm (please let me know what you think)

Active
                  members: </span>
                  <%
Dim rsActiveMemberName
Dim strMemberName
Dim rsActiveUsers
Dim strRedTextColour
Dim strProfileWindowWidth
Dim strProfileWindowHeight

'Intialise the ADO recordset object
Set rsActiveUsers = Server.CreateObject("ADODB.Recordset")

'Initialise the SQL variable with an SQL statement to get the configuration details from the database
strSQL = "SELECT tblActiveUser.* FROM tblActiveUser WHERE NOT tblActiveUser.Author_ID = 2;"
 
'Query the database
rsActiveUsers.Open strSQL, strCon

If NOT rsActiveUsers.EOF Then
 Do Until rsActiveUsers.EOF
  Set rsActiveMemberName = Server.CreateObject("ADODB.Recordset")

  strSQL = "SELECT tblAuthor.* FROM tblAuthor WHERE tblAuthor.Author_ID = " & rsActiveUsers("Author_ID") & ";"
 
  rsActiveMemberName.Open strSQL, strCon

  If NOT rsActiveMemberName.EOF Then
   strMemberName = ("<font color=""#FF0000"">></font><a href=""javascript:openWin('pop_up_profile.asp?PF=" & rsActiveUsers("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"" class=""smltext"">") & rsActiveMemberName("Username") & ("</a>")
  End If
%>
                  <% = strMemberName %>
                  &nbsp;
                  <% 
 rsActiveUsers.Movenext
 Loop

'Reset server objects
rsActiveMemberName.Close
Set rsActiveMemberName = Nothing

End If
%>

Which sql query should I make the change on please?

The code above was a MOD which I included and changed a bit, only changed the bits I knew about!

Thanks