sub AddSubscription(SubLevel, MemberID, CatID, ForumID, TopicID)
         ' --- Insert the appropriate sublevel subscription
         StrSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS"
         StrSql = StrSql & "(MEMBER_ID, CAT_ID, FORUM_ID, TOPIC_ID) VALUES (" & MemberID & ", "
         if sublevel = "BOARD" then
			StrSql = StrSql & "0, 0, 0)"
		 elseif sublevel = "CAT" then
			StrSql = StrSql & CatID & ", 0, 0)"
         elseif sublevel = "FORUM" then
			StrSql = StrSql & CatID & ", " & ForumID & ", 0)"
         else
			StrSql = StrSql & CatID & ", " & ForumID & ", " & TopicID & ")"
         end if
         my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end sub

sub AddSubscription(SubLevel, MemberID, CatID, ForumID, TopicID)
         
		 '--- Added a check before a subscription is added, to avoid duplicate subscriptions to the same topics
         'A single check should be enough to query for existing subscriptions at the differente levels... 
		 ' Reasoning is simple: if there are overlapping cat subs, forum subs, no topic subs will be allowed; if there is already an existing    subscription to the same topic, do not allow it
		 'This works on the presumption that this function is used only for adding topic level subscriptions, which is correct for 3.4.06



		 strsql = "SELECT COUNT(Subscription_ID) As Total FROM " & strTablePrefix & "SUBSCRIPTIONS" & _
		        " WHERE (MEMBER_ID=" & MemberID & " AND TOPIC_ID=" & TopicID & ") OR " & _
				" (MEMBER_ID=" & MemberID & " AND FORUM_ID=" & ForumID & " AND CAT_ID=" & CAT_ID & " AND TOPIC_ID=0) OR " & _
				" (MEMBER_ID=" & MemberID & " AND CAT_ID=" & CatID & " AND FORUM_ID=0 AND TOPIC_ID=0) OR " & _
				" (MEMBER_ID=" & MemberID & " AND FORUM_ID=0 AND CAT_ID=0 AND TOPIC_ID=0)"

       
		Set rsSubs = my_conn.Execute(strSql)
	
        If Not rsSubs.EOF Then
		   totalSubs = rsSubs("Total")
		Else
		   totalSubs = -1
		End If

        rsSubs.Close
		Set rsSubs = Nothing
				
		If TotalSubs <= 0 Then
  
			 ' --- Insert the appropriate sublevel subscription
			 StrSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS"
			 StrSql = StrSql & "(MEMBER_ID, CAT_ID, FORUM_ID, TOPIC_ID) VALUES (" & MemberID & ", "
			 if sublevel = "BOARD" then
				StrSql = StrSql & "0, 0, 0)"
			 elseif sublevel = "CAT" then
				StrSql = StrSql & CatID & ", 0, 0)"
			 elseif sublevel = "FORUM" then
				StrSql = StrSql & CatID & ", " & ForumID & ", 0)"
			 else
				StrSql = StrSql & CatID & ", " & ForumID & ", " & TopicID & ")"
			 end if
			 my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		
		End If

end sub