'if strRqMethod = "Reply" or _
'strRqMethod = "TopicQuote" or _
'strRqMethod = "ReplyQuote" then 
if false then

if strRqMethod = "Reply" or _
	strRqMethod = "TopicQuote" or _
	strRqMethod = "ReplyQuote" then
%>
</table>
<table border="0" width="100%" align=center>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="4">
      <tr>
        <td bgcolor="<% =strHeadCellColor %>" colspan="2" align="center"><b><font <% =strDefaultFontFace %> size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">T O P I C      R E V I E W</font></b></td>
      </tr>
<%
	' DEM --> Added Select of Moderation Fields
	strSQL = "SELECT " & strTablePrefix & "CATEGORY.CAT_MODERATION, "
	strSQL = strSQL & strTablePrefix & "FORUM.F_MODERATION "
	strSQL = strSQL & "FROM " & strTablePrefix & "CATEGORY, " & strTablePrefix & "FORUM "
	strSQL = strSQL & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID
	strSQL = strSQL & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumID
	set rsa = my_Conn.Execute (strSql) 
	' ## Moderators and Admins can see unmoderated posts.
	if (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") then
		Moderation = "N"
	else
		if strModeration = 1 and rsa("CAT_MODERATION") = 1 and (rsa("F_MODERATION") = 1 or rsa("F_MODERATION") = 3) then
			Moderation = "Y"
		else
			Moderation = "N"
		end if
	end if
	' DEM --> End of Moderation Code

	'## Forum_SQL
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strActivePrefix & "TOPICS.T_MESSAGE " 
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "TOPICS.T_AUTHOR AND "
	strSql = strSql & "       " & strActivePrefix & "TOPICS.TOPIC_ID = " &  strRqTopicID

	set rs = my_Conn.Execute (strSql) 

	Response.Write "      <tr>" & vbNewline
	Response.Write "        <td bgcolor='" & strForumFirstCellColor & "' valign=top width='" & strTopicWidthLeft & "'"
	if lcase(strTopicNoWrapLeft) = "1" then
		Response.Write " nowrap"
	end if 
	Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'><b>" & ChkString(rs("M_NAME"),"display") & "</b></font></td>" & vbNewline
	Response.Write "        <td bgcolor='" & strForumCellColor & "' valign='top' width='" & strTopicWidthRight & "'" 
	if lcase(strTopicNoWrapRight) = "1" then
		Response.Write " nowrap"
	end if 
	Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" & formatStr(rs("T_MESSAGE")) & "</font></td>" & vbNewline
	Response.Write "      </tr>" & vbNewline

	'## Forum_SQL - Get all replies to Topic from the DB
	strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strActivePrefix & "REPLY.R_MESSAGE "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "REPLY "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "REPLY.R_AUTHOR "
	strSql = strSql & " AND   TOPIC_ID = " & strRqTopicID & " "
	' DEM --> Added check for moderation so that only admins and moderators can see the unapproved posts.
	if Moderation = "Y" then
		strSql = strSql & " AND R_STATUS < 2 "		' Ignore unapproved and rejected posts...
	else
		strSql = strSql & " AND R_STATUS < 3 "		' Ignore all rejected posts....
	end if
	strSql = strSql & " ORDER BY " & strActivePrefix & "REPLY.R_DATE"

	set rs = Server.CreateObject("ADODB.Recordset")

'	rs.cachesize=15
	rs.open  strSql, my_Conn, 3

	strI = 0 
	if rs.EOF or rs.BOF then
		Response.Write ""
	else
		rs.movefirst
		do until rs.EOF
			if strI = 0 then
	 			CColor = strAltForumCellColor
			else
				CColor = strForumCellColor
			end if
			Response.Write "      <TR>" & vbNewline & _
						   "        <TD bgcolor='" & CColor & "' valign='top'" & vbNewline
			if lcase(strTopicNoWrapLeft) = "1" then
				Response.Write " nowrap"
			end if 
			Response.Write "><b><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" &  ChkString(rs("M_NAME"),"display") & "</font></b></td>" & vbNewline & _
						   "        <TD bgcolor='" & CColor & "' valign='top'"
			if lcase(strTopicNoWrapRight) = "1" then
				Response.Write " nowrap"
			end if
			Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" & formatStr(rs("R_MESSAGE")) & "</font></td>" & vbNewline & _
						   "      </tr>" & vbNewline
			rs.MoveNext
			strI = strI + 1
			if strI = 2 then 
				strI = 0
			end if
		loop
	end if

	Response.Write	"    </table>" & vbNewline  & _
					"    </td>" & vbNewline & _
					"  </tr>" & vbNewline  & _
					"</table>" & vbNewline & _
					"</font>" & vbNewline  
end if