sub ForumAdminOptions() 
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%	if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then 
		if Cat_Status = 0 then 
			if mlev = 4 then %>
    <a href="JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=<% =Cat_ID %>')"><img src="icon_folder_unlocked.gif" alt="Un-Lock Category" height=15 width=15 border=0></a>
<%			else %>
    <img src="icon_folder_locked.gif" alt="Category Locked" height=15 width=15 border=0>
<%			end if 
		else 
			if Forum_Status <> 0 then %>
    <a href="JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>')"><img src="icon_folder_locked.gif" alt="Lock Forum" height=15 width=15 border=0></a>
<%			else %>
    <a href="JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>')"><img src="icon_folder_unlocked.gif" alt="Un-Lock Forum" height=15 width=15 border=0></a>
<%			end if 
		end if 
		if (Cat_Status <> 0 and Forum_Status <> 0) or (AdminAllowed = 1) then %>
          <a href="post.asp?method=EditForum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>&type=0"><img src="icon_folder_pencil.gif" alt="Edit Forum Properties" border="0" hspace="0"></a>
<%		end if %>
<% if mlev = 4 then %>    
<a href="JavaScript:openWindow('pop_delete.asp?<%= ArchiveLink %>mode=Forum&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>')"><img src="icon_folder_delete.gif" alt="Delete Forum" height=15 width=15 border=0></a>
    <a href="admin_forums.asp?action=archive&id=<% =Forum_ID %>"><img src="icon_folder_archive.gif" alt="Archive Forum" height=15 width=15 border=0></a>
<% end if %>
    <a href="post.asp?method=Topic&FORUM_ID=<% =Forum_ID%>&CAT_ID=<% =Cat_ID%>&Forum_Title=<% =ChkString(Forum_Subject,"JSurlpath") %>"><img src="icon_folder_new_topic.gif" alt="New Topic" height=15 width=15 border=0></a>
<%      ' DEM --> Start of Code for Moderated Posting
        if (CheckForUnModeratedPosts("FORUM", Cat_ID, Forum_ID, 0) > 0) and (AdminAllowed = 1) then
            ForumString = "CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID
            Response.Write "          <a href=""JavaScript:openWindow('pop_moderate.asp?" & ForumString & "')""><img src=""icon_folder_moderate.gif"" alt=""Approve/Hold/Reject All Unmoderated Posts for this Forum"" height=15 width=15 border=0></a>" & vbNewline
        end if
        ' DEM --> End of Code for Moderated Posting
 	' DEM --> Start of Code added to handle subscription processing.
	if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription = 1 then
		CheckSubscription "FORUMNOTEXT", MemberID, Cat_ID, Forum_ID, 0, "", ""
	end if 
   end if %>
</font>
<% 
end sub

sub ForumAdminOptions() 
	if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then 
		if CatStatus = 0 then 
			if mlev = 4 then 
				Response.Write	"    <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & _
								Cat_ID & "')""><img src=""icon_folder_unlocked.gif""" & _
								" alt=""Un-Lock Category"" height=15 width=15 border=0></a>" & vbNewline
			else 
				Response.Write	"    <img src=""icon_folder_locked.gif"" alt=""Category Locked""" & _
								" height=15 width=15 border=0>" & vbNewline
			end if 
		else 
			if ForumStatus <> 0 then 
				Response.Write	"    <a href=""JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & _
								Forum_ID & "&CAT_ID=" & Cat_ID & "&Forum_Title=" & _
								ChkString(Forum_Subject,"JSurlpath") & "')"">" & _
								"<img src=""icon_folder_locked.gif"" alt=""Lock Forum"" height=15 width=15 " & _
								" border=0></a>" & vbNewline
			else 
				Response.Write	"    <a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & _
								Forum_ID & "&CAT_ID=" & Cat_ID & "&Forum_Title=" & _
								ChkString(Forum_Subject,"JSurlpath") & "')"">" & _
								"<img src=""icon_folder_unlocked.gif"" alt=""Un-Lock Forum"" height=15 " & _
								" width=15 border=0></a>" & vbNewline
			end if 
		end if 
		if (CatStatus <> 0 and ForumStatus <> 0) or (AdminAllowed = 1) then 
			Response.Write	"    <a href=""post.asp?method=EditForum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & _
							Cat_ID & "&Forum_Title=" & ChkString(Forum_Subject,"urlpath") & "&type=0"">" & _
							"<img src=""icon_folder_pencil.gif"" alt=""Edit Forum Properties"" border=""0""" & _ 
							" hspace=""0""></a>" & vbNewline
		end if
                if mlev = 4 then
		Response.Write	"    <a href=""JavaScript:openWindow('pop_delete.asp?mode=Forum&FORUM_ID=" & _
						Forum_ID & "&CAT_ID=" & Cat_ID & "&Forum_Title=" & _
						ChkString(Forum_Subject,"JSurlpath") & "')"">" & _
						"<img src=""icon_folder_delete.gif"" alt=""Delete Forum"" height=15 width=15 border=0></a>"
                end if
		Response.Write	"    <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & "&CAT_ID=" & _
						Cat_ID & "&Forum_Title=" & ChkString(Forum_Subject,"urlpath") & """>" & _
						"<img src=""icon_folder_new_topic.gif"" alt=""New Topic"" height=15 width=15 border=0></a>"
	    ' DEM --> Start of Code added for Full Moderation
		if (CheckForUnModeratedPosts("FORUM", Cat_ID, Forum_ID, 0) > 0) then
			QString = "FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID
			Response.Write	" <a href=""JavaScript:openWindow('pop_moderate.asp?" & QString & _
							"')""><img src=""icon_folder_moderate.gif""" & _
							"alt=""Approve/Hold/Reject all posts for this Topic"" height=15 width=15 " & _
							"border=0></a>" & vbNewline
		end if
		' DEM --> End of Code added for Full Moderation
 		' DEM --> Start of Code added to handle subscription processing.
		if (strSubscription < 4 and strSubscription > 0) and (CatSubscription > 0) and ForumSubscription = 1 then
			CheckSubscription "FORUMNOTEXT", getMemberNumber(strDBNTUserName), Cat_ID, Forum_ID, 0, "", ""
		end if 
	end if 
end sub