sub ForumMemberOptions()
  if Cat_Status <> 0 AND Forum_Status <> 0 then 'Dont show if Cat or Forum is locked
%>
    <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>
<%
  else
    Response.write "&nbsp;"
  end if
  ' DEM --> Start of Code added to handle subscription processing.
  if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription > 0 then
    CheckSubscription "FORUMNOTEXT", MemberID, Cat_ID, Forum_ID, 0, "", ""
  end if 
end sub

sub TopicMemberOptions() 
  if Cat_Status <> 0 and Forum_Status <> 0 then 'Dont show if Cat or Forum is locked 
        if ((Topic_Status > 0 and rs("T_AUTHOR") = MemberID) or (AdminAllowed = 1)) and ArchiveView = "" then
%>
		<a href="post.asp?<%= ArchiveLink %>method=EditTopic&TOPIC_ID=<% =Topic_ID %>&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&auth=<% =ChkString(rs("T_AUTHOR"),"urlpath") %>&Forum_Title=<% =ChkString(Forum_Subject,"urlpath") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"urlpath") %>"><img src="icon_pencil.gif" alt="Edit Message" border="0" hspace="0"></a>
<%
	end if
	if Topic_Status <= 1 and ArchiveView = "" then
%>
        <a href="post.asp?<%= ArchiveLink %>method=Reply&TOPIC_ID=<% =Topic_ID %>&FORUM_ID=<% =Forum_ID %>&CAT_ID=<% =Cat_ID %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"urlpath") %>&Forum_Title=<% =ChkString(Forum_Subject,"urlpath") %>"><img src="icon_reply_topic.gif" alt="Reply to Topic" height=15 width=15 border=0></a>
<% 	end if
  else
    Response.write "&nbsp;"
  end if 
	' DEM --> Start of Code added to handle subscription processing.
	if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription > 0 then
		CheckSubscription "TOPICNOTEXT", MemberID, Cat_ID, Forum_ID, Topic_ID, "", ""
	end if 
	' DEM --> End of code added to handle subscription processing.

end sub