This is the code you'll need for the check box itself:'## Subscribe checkbox start ##
if strSubscription > 0 and postCat_Subscription > 0 and postForum_Subscription > 0 and strEmail = 1 then
' -- Check for a topic subscription held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs
if MySubCount > 0 then
strSubString = PullSubscriptions(0, 0, 0)
strSubArray = Split(strSubString,";")
if uBound(strSubArray) < 0 then
strBoardSubs = ""
strCatSubs = ""
strForumSubs = ""
strTopicSubs = ""
else
strBoardSubs = strSubArray(0)
strCatSubs = strSubArray(1)
strForumSubs = strSubArray(2)
strTopicSubs = strSubArray(3)
end If
end if
SubLinkFontStart = " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
SubLinkFontEnd = "<br /></font>" & vbNewLine
if InArray(strTopicSubs, strRqTopicID) and strRqMethod <> "Topic" then
Response.Write SubLinkFontStart & ShowSubLink ("U", strRqCatID, strRqForumID, strRqTopicID, "Y") & SubLinkFontEnd
elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,strRqForumID) or InArray(strCatSubs,strRqCatID)) then
Response.Write SubLinkFontStart & ShowSubLink ("S", strRqCatID, strRqForumID, strRqTopicID, "Y") & SubLinkFontEnd
end if
end if
'# Subscribe checkbox end ##You'll need to replace a couple of variables in there which have different names in topic.asp than they do in post.asp, whicj is probably what's causing your problem.
Topic Locked
Posted - 23 February 2005 : 08:06:38
