" & vbNewline
' Look for Board Level Subscriptions first
StrSql = "SELECT MEMBER_ID FROM " & strTablePrefix & "SUBSCRIPTIONS "
StrSql = StrSql & " WHERE CAT_ID = 0 "
StrSql = StrSql & " AND FORUM_ID = 0 "
StrSql = StrSql & " AND TOPIC_ID = 0 "
if Mode = "" then
StrSql = StrSql & " AND MEMBER_ID = " & MemberID
end if
set rsCount = my_Conn.Execute (StrSql)
if not(rsCount.BOF or rsCount.EOF) then
Response.Write " "
Response.Write vbNewline & _
" | " & HeadFont & "" & StrForumTitle & " | " & vbNewline
LookForSubscriptions 0, 0, 0
Response.Write "
" & vbNewline
end if
rsCount.close
set rsCount = nothing
' Loop through the Categories Next. Only select those categories with subscriptions
StrSql = "SELECT DISTINCT S.CAT_ID, CAT_NAME, CAT_SUBSCRIPTION, CAT_ORDER " & _
" FROM " & strTablePrefix & "CATEGORY C, " & strTablePrefix & "SUBSCRIPTIONS S" & _
" WHERE C.CAT_ID = S.CAT_ID "
if Mode = "" then
StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
end if
StrSql = StrSql & " ORDER BY CAT_ORDER, CAT_NAME"
rsCatLoop.Open StrSql, my_Conn, 3
if rsCatLoop.EOF or rsCatLoop.BOF then
' No Categories found - exit
rsCatLoop.close
set rsCatLoop = nothing
Go_Result
Response.End
else
do until rsCatLoop.EOF
CatID = rsCatLoop("CAT_ID")
CatName = rsCatLoop("CAT_NAME")
CatSubscription = rsCatLoop("CAT_SUBSCRIPTION")
if CatSubscription = 0 then
' Do Nothing - No subscriptions allowed
else
Response.Write " "
Response.Write vbNewline & _
" | " & HeadFont & "" & CatName & " | " & vbNewline
' Check for Category Subscriptions first
if strSubscription < 3 and CatSubscription > 0 then
LookForSubscriptions CatID, 0, 0
end if
' Loop through the available forums for the category that have SOME type of subscription on them.
StrSql = "SELECT DISTINCT S.FORUM_ID, F_SUBJECT, F_SUBSCRIPTION, F_ORDER " & _
" FROM " & strTablePrefix & "FORUM F, " & strTablePrefix & "SUBSCRIPTIONS S" & _
" WHERE S.FORUM_ID = F.FORUM_ID " & _
" AND S.CAT_ID = " & CatID
if Mode = "" then
StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
end if
StrSql = StrSql & " ORDER BY F_ORDER, F_SUBJECT "
rsForumLoop.Open StrSql, my_Conn, 3
if rsForumLoop.EOF or rsForumLoop.BOF then
' Do nothing - No Forum or Topic Level Subscriptions found for this category "
else
do until (rsForumLoop.EOF or rsForumLoop.BOF)
ForumID = rsForumLoop("FORUM_ID")
FSubject = rsForumLoop("F_SUBJECT")
FSubscription = rsForumLoop("F_SUBSCRIPTION")
if FSubscription = 0 then
' No Subscriptions allowed for this forum
else
Response.Write "
"
Response.Write vbNewline & _
" | " & ForumFont & _
" Forum: " & _
FSubject & " | " & vbNewline
if strSubscription < 4 and CatSubscription < 3 and FSubscription = 1 then
LookForSubscriptions CatID, ForumID, 0
Response.Write "
" & vbNewline
end if
StrSql = "SELECT DISTINCT S.TOPIC_ID, T.T_SUBJECT " & _
" FROM " & strTablePrefix & "TOPICS T, " & _
" " & strTablePrefix & "SUBSCRIPTIONS S" & _
" WHERE S.TOPIC_ID = T.TOPIC_ID " & _
" AND S.FORUM_ID = " & ForumID & _
" AND S.CAT_ID = " & CatID
if Mode = "" then
StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
end if
StrSql = StrSql & " ORDER BY T_SUBJECT "
rsTopicLoop.Open StrSql, my_Conn, 3
if rsTopicLoop.EOF or rsTopicLoop.BOF then
' Do Nothing -- No Topic Level Subscriptions found for this category/forum
else
Do until (rsTopicLoop.EOF or rsTopicLoop.BOF)
TopicID = rsTopicLoop("TOPIC_ID")
Response.Write vbNewline & "" & vbNewline & _
" | "" then
Response.write " colspan=""2"" "
end if
Response.Write ">" & CellFont & _
" Topic: " & _
rsTopicLoop("T_Subject") & " | " & vbNewline
LookForSubscriptions CatID, ForumID, TopicID
Response.Write "
" & vbNewline
rsTopicLoop.MoveNext
loop
end if
rsTopicLoop.close
end if
rsForumLoop.MoveNext
loop
end if
rsForumLoop.Close
end if
rsCatLoop.MoveNext
loop
end if
rsCatLoop.Close
Go_Result
Response.End
' --- LookForSubscriptions will loop through the subscriptions table for a specific level of subscription
' --- if CatID = 0, looking for BoardWide subscriptions. If ForumID = 0, looking for category level subscriptions
' --- if TopicID = 0, looking for Forum Level Subscriptions. Otherwise, looking for specific subscriptions on a
' --- topic.
Sub LookForSubscriptions(CatID, ForumID, TopicID)
StrSql = "SELECT S.MEMBER_ID, M_NAME" & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS S, " & _
strMemberTablePrefix & "MEMBERS M " & _
" WHERE S.MEMBER_ID = M.MEMBER_ID" & _
" AND S.CAT_ID = " & CatID & _
" AND S.FORUM_ID = " & ForumID & _
" AND S.TOPIC_ID = " & TopicID
if Mode = "" then
StrSql = StrSql & " AND S.MEMBER_ID = " & MemberID
end if
rs.open StrSql, my_Conn, 3
if rs.EOF or rs.BOF then
' No Subscriptions found, exit
else
LoopCount = 0
do until rs.EOF
LoopCount = LoopCount + 1
if Mode <> "" or (Mode = "" and TopicID = 0) then
Response.Write " "
Response.Write vbNewline & _
" " & vbNewline & _
" | "") then
Response.Write " colspan=""2"" >" & CellFont
else
Response.Write " >" & CellFont
end if
end if
if LoopCount = 1 then
if CatId = 0 then
Response.Write "Board Wide Subscriptions"
elseif ForumID = 0 then
Response.Write " Category Wide Subscriptions"
elseif TopicID = 0 then
Response.Write " Forum Wide Subscriptions "
end if
if Mode <> "" then
if (CatId = 0) or (ForumID = 0) or (TopicID = 0) then
Response.Write " | " & vbNewline & _
"
" & vbNewline & _
" " & vbNewline & _
" | " & CellFont
end if
end if
end if
If Mode <> "" then
if CatID = 0 then
Response.Write " "
elseif ForumID = 0 then
Response.Write " "
elseif TopicID = 0 then
Response.Write " "
else
Response.Write " "
end if
Response.Write rs("M_NAME") & " | " & vbNewline
end if
if CatID = 0 then
Level = "BOARD"
elseif ForumID = 0 then
Level = "CAT"
elseif TopicID = 0 then
Level = "FORUM"
else
Level = "TOPIC"
end if
Response.Write " " & CellFont
CheckSubscription Level & "NOTEXT", rs("MEMBER_ID"), CatID, ForumID, TopicID, "", ""
Response.Write " | " & vbNewline
rs.MoveNext
loop
end if
rs.Close
end sub
' Go_Result - Closes connections, displays footer, etc
sub Go_Result
if TotalSubCount = 0 then
Response.Write "No Subscriptions found!!!
" & vbNewline
Response.Write "Go Back To Forum
"
end if
' -- Close all connections
set rs = nothing
set rsCatLoop = nothing
set rsForumLoop = nothing
set rsTopicLoop = nothing
Response.write "
"
Response.write "