<tr>
	  <td bgcolor="<% =strCategoryCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("8") else Response.Write("6") end if %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" valign="top"><b>Announcements</b></font></td>
        </tr>
	  <td bgcolor="<% =strAltForumCellColor %>" align=center valign="center" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("8") else Response.Write("7") end if %>">
	    <applet code="Fade.class" width="500" height="40">
	      <param name="bgcolor" value="DDDDDD">
	      <param name="txtcolor" value="996699">
	      <param name="changefactor" value="2">
	      <param name="text1" value="Welcome to <% =strForumTitle %>"">
	      <param name="url1" value="">
	      <param name="font1" value="Arial,sans-serif,20">
<%            '## Forum_SQL - Get newest membername and id from DB
	      strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1 AND MEMBER_ID > 1"
	      strSql = strSQL & " ORDER BY M_DATE desc;"
	      set rsNewMember = my_Conn.Execute(strSql)
	      if not rsNewMember.EOF then
		ANewMember_Name = ChkString(rsNewMember("M_NAME"), "display")
		NewMember_Id = ChkString(rsNewMember("MEMBER_ID"), "display")
	      else 
		ANewMember_Name = ""
	      end if %>

	      <param name="text2" value="Please Welcome our newest member: <% =ANewMember_Name %>">
	      <param name="url2" value="<% =StrForumURL & "pop_profile.asp?mode=display&id=" & NewMember_Id%>">
	      <param name="font2" value="Arial,sans-serif,20">

	      <param name="text3" value="Be featured here!  Register now!">
	      <param name="url3" value="<% =StrForumURL %>policy.asp">
	      <param name="font3" value="Arial,sans-serif,20">

	      <param name="text4" value="Here are today's Announcements">
	      <param name="url4" value="<% =StrForumURL %>view_announce.asp">
	      <param name="font4" value="Arial,sans-serif,20">
<%
	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "ANNOUNCE.A_ID"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_AUTHOR"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_SUBJECT"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_MESSAGE"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_START_DATE"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_END_DATE"
	strSql = strSql & " FROM " & strTablePrefix & "ANNOUNCE "
	if mLev < 4 then
		strSql = strSql & " WHERE " & strTablePrefix & "ANNOUNCE.A_START_DATE <= " & "'" & DatetoStr(Now()) & "'"
		strSql = strSql & " AND " & strTablePrefix & "ANNOUNCE.A_END_DATE > " & "'" & DatetoStr(Now()) & "'"
        end if
	strSql = strSql & " ORDER BY " & strTablePrefix & "ANNOUNCE.A_START_DATE DESC"
	strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_ID DESC;"

	set rsAnnounce = Server.CreateObject("ADODB.Recordset")
	rsAnnounce.cachesize = 20
	rsAnnounce.open  strSql, my_Conn, 3

	if not(rsAnnounce.EOF or rsAnnounce.BOF) then  '## Replies found in DB
		rsAnnounce.movefirst
		rsAnnounce.pagesize = strPageSize
		maxpages = cint(rsAnnounce.pagecount)
	end if
	if rsAnnounce.EOF or rsAnnounce.BOF then  '## No replies found in DB
		Response.Write ""
	else
		'rsAnnounce.movefirst
		intI = 5 

		do until rsAnnounce.EOF '**
			AnnounceSubject = rsAnnounce("A_SUBJECT")
			AnnounceLink = StrForumURL & "view_announce.asp?A_ID=" & rsAnnounce("A_ID") %>
	      <param name="text<% =intI %>" value="<% =AnnounceSubject %>">
	      <param name="url<% =intI %>" value="<% =AnnounceLink %>">
	      <param name="font<% =intI %>" value="Arial,sans-serif,20">
<%
		    rsAnnounce.MoveNext
		    intI  = intI + 1
		loop
	end if
%>
 	    </applet></td>
	</tr>