if recModCount <> "" then
      for x = 0 to recModCount
         if x = 0 then
            ModOfForums = allModData(0,x)
         else
            ModOfForums = ModOfForums & "," & allModData(0,x)
         end if
      next
   else
      ModOfForums = ""
   end if
else
   ModOfForums = ""
end if

'## Forum_SQL - Build SQL to get forums via category
strSql = "SELECT F.FORUM_ID, F.F_STATUS, F.CAT_ID, F.F_SUBJECT, F.F_URL, F.F_TOPICS, " &_
    "F.F_COUNT, F.F_LAST_POST, F.F_LAST_POST_TOPIC_ID, F.F_LAST_POST_REPLY_ID, F.F_TYPE, " & _
    "F.F_ORDER, F.F_A_COUNT, F.F_SUBSCRIPTION, F_PRIVATEFORUMS, F_PASSWORD_NEW, " & _
    "M.MEMBER_ID, M.M_NAME, " & _
         "T.T_REPLIES, T.T_UREPLIES, " & _
         "F.F_DESCRIPTION " & _
    "FROM ((" & strTablePrefix & "FORUM F " &_
    "LEFT JOIN " & strMemberTablePrefix & "MEMBERS M ON " &_
    "F.F_LAST_POST_AUTHOR = M.MEMBER_ID) " & _
         "LEFT JOIN " & strTablePrefix & "TOPICS T ON " & _
         "F.F_LAST_POST_TOPIC_ID = T.TOPIC_ID) "

<SCRIPT LANGUAGE="JavaScript">
document.write('<font size="<%= strHeaderFontSize %>" face="<%= strdefaultFontFace %>" color="<%= strDefaultFontColor %>">')
document.write('<Div align="center"><View_announcements.asp><strong><%= replace(formatstr(rsAnnounce("A_SUBJECT")),"'","#39;") %></strong></font><br><br><view_announcements.asp><%= rsAnnounce("A_message") %><br></div><br>');
document.write('</font>');
</script>
<% rsAnnounce.movenext
loop %>
<SCRIPT LANGUAGE="JavaScript">