Sub AddSubscription(SubLevel, Member_ID, CatID, ForumID, TopicID)
   strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS"
   strSql = strSql & "(MEMBER_ID, CAT_ID, FORUM_ID, TOPIC_ID, SUB_DATE) VALUES (" & Member_ID & ", "
   If sublevel = "BOARD" Then
      strSql = strSql & "0, 0, 0, '" & DatetoStr(strForumTimeAdjust) & "')"
   ElseIf sublevel = "CAT" Then
      strSql = strSql & CatID & ", 0, 0, '" & DatetoStr(strForumTimeAdjust) & "')"
   ElseIf sublevel = "FORUM" Then
      strSql = strSql & CatID & ", " & ForumID & ", 0, '" & DatetoStr(strForumTimeAdjust) & "')"
   Else
      strSql = strSql & CatID & ", " & ForumID & ", " & TopicID & ", '" & DatetoStr(strForumTimeAdjust) & "')"
   End If
   my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords