hide member list and statistics.

</table>
<br /><%
     
 'Loop back round for next category
 Loop
End If
If intGroupID = 1 Then
%>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <tr class="tableLedger">
  <td colspan="2"><% = strTxtWhatsGoingOn %></td>
 </tr>
 <tr class="tableSubLedger">
  <td colspan="2"><% = strTxtForumStatistics %></td>
 </tr>
 <tr class="tableRow">
  <td width="4%" align="center"><img src="<% = strImagePath %>stats_bar.gif" alt="<% = strTxtForumStatistics %>" /></td>
  <td width="96%" nowrap><%
Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"<br />" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserIDAllForums & strQsSID2 & """>" & strLastEntryUserAllForums & "</a>")
'Display some statistics for the members
If lngNoOfMembers > 0 Then
Response.Write("<br />" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"<br />" & strTxtTheNewestForumMember & " <a href=""member_profile.asp?PF=" & saryMemebrStats(1,0) & strQsSID2 & """>" & saryMemebrStats(0, 0) & "</a>")
End If
%></td>
 </tr><%

'Get the number of active users if enabled
If blnActiveUsers Then
 
 %>
 <tr class="tableSubLedger">
  <td colspan="2"><a href="active_users.asp<% = strQsSID1 %>"><% = strTxtActiveUsers %></a></td>
 </tr>
 <tr class="tableRow">
  <td width="4%" align="center"><a href="active_users.asp<% = strQsSID1 %>"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" border="0" /></a></td>
  <td width="96%"><%
 
 'Get the active users online
 For intArrayPass = 1 To UBound(saryActiveUsers, 2)
 
  'If this is a guest user then increment the number of active guests veriable
  If saryActiveUsers(1, intArrayPass) = 2 Then 
   
   intActiveGuests = intActiveGuests + 1
  
  'Else add the name of the members name of the active users to the members online string
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then 
   If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", "
   strMembersOnline = strMembersOnline & "<a href=""member_profile.asp?PF=" & saryActiveUsers(1, intArrayPass) & strQsSID2 & """>" & saryActiveUsers(2, intArrayPass) & "</a>"
  End If
  
 Next 
 'Calculate the number of members online and total people online
 intActiveUsers = UBound(saryActiveUsers, 2)
 intActiveMembers = intActiveUsers - intActiveGuests
 
 'Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuestsAnd & " " & intActiveMembers & " " & strTxtMembers)
 If strMembersOnline <> "" Then Response.Write(vbCrLf & "   <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If
End If '  addition End IF for If statement above
%>
  </td>
 </tr>

If intGroupID = 1 Then Response.Write ("&nbsp;&nbsp;<a href=""members.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "members_list.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMembersList & """ />" & strTxtMemberlist & "</a>")