function chkForumModerator(fForum_ID, fMember_Name)
	'## Forum_SQL 
	strSql = "SELECT mo.FORUM_ID "	
	strSql = strSql & " FROM " & strTablePrefix & "MODERATOR mo, " & strTablePrefix & "MEMBERS me "	
	strSql = strSql & " WHERE mo.FORUM_ID = " & fForum_ID & " "	
	strSql = strSql & " AND   mo.MEMBER_ID = me.MEMBER_ID "	
	
	if strAuthType = "db" then		
		strSql = strSql & " AND me.M_NAME = '" & fMember_Name & "'"	
	elseif strAuthType = "nt" then			
			strSql = strSql & " AND humm.M_USERNAME = '" & fMember_Name & "'"		
	end if	

	Set rsChk = Server.CreateObject("ADODB.Recordset")
	rsChk.open strSql, my_Conn
	
	if rsChk.bof or rsChk.eof then		
		chkForumModerator = "0"	
	else		
		chkForumModerator = "1"	
	end if 	
	rsChk.close	
	set rsChk = nothing
end function