'## Forum_SQL - Count total number of Replies
			strSql = "SELECT Sum(" & strTablePrefix & "TOPICS.T_REPLIES) AS SumOfT_REPLIES, Count(" & strTablePrefix & "TOPICS.T_REPLIES) AS cnt "
			strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
			strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.FORUM_ID = " & ForumID
			strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS <= 1"

			set rs1 = my_Conn.Execute(strSql)

			if rs1.EOF or rs1.BOF then
			        intF_COUNT = 0
				intF_TOPICS = 0
			else
				intF_COUNT = cLng(rs1("cnt")) + cLng(rs1("SumOfT_REPLIES"))
				intF_TOPICS = cLng(rs1("cnt")) 
			end if
			if IsNull(intF_COUNT) then intF_COUNT = 0 
			if IsNull(intF_TOPICS) then intF_TOPICS = 0 

			set rs1 = nothing