" & vbNewLine & _
" " & vbNewline & _
" " & vbNewline & _
" " & vbNewline & _
" | " & vbNewline
If recActiveTopicsCount <> "" and (mLev > 0) then
Response.Write " | " & vbNewLine & _
" " & vbNewline
else
Response.Write " " & vbNewline
end if
Response.Write " | " & vbNewLine & _
" Discussione | " & vbNewline & _
" Autore | " & vbNewline & _
" Risposte | " & vbNewline & _
" Letto | " & vbNewline & _
" Ultimo Messaggio | " & vbNewline
if (mlev > 0) or (lcase(strNoCookies) = "1") then
Response.Write " "
if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then
if UnModeratedPosts > 0 then
UnModeratedFPosts = 0
Response.Write "" & getCurrentIcon(strIconFolderModerate,"Guarda tutti i messaggi non moderati","hspace=""0""") & ""
else
Response.Write(" ")
end if
else
Response.Write(" ")
end if
Response.Write " | " & vbNewline
end if
Response.Write " " & vbNewline
if recActiveTopicsCount = "" then
Response.Write " " & vbNewline & _
" | Nessuna Nuova Discussione Trovata | " & vbNewline & _
" " & vbNewline
else
currForum = 0
fDisplayCount = 0
canAccess = 0
fFORUM_ID = 0
fF_SUBJECT = 1
fF_SUBSCRIPTION = 2
fF_STATUS = 3
fCAT_ID = 4
fCAT_NAME = 5
fCAT_SUBSCRIPTION = 6
fCAT_STATUS = 7
fT_STATUS = 8
fT_VIEW_COUNT = 9
fTOPIC_ID = 10
'########## Poll Mod #########
fIS_POLL = 11
'Remember to increase all the
'numbers below by 1
'#############################
fT_SUBJECT = 12
fT_AUTHOR = 13
fT_REPLIES = 14
fT_UREPLIES = 15
fM_NAME = 16
fT_LAST_POST_AUTHOR = 17
fT_LAST_POST = 18
fT_LAST_POST_REPLY_ID = 19
fLAST_POST_AUTHOR_NAME = 20
fT_MSGICON = 21
fF_PRIVATEFORUMS = 22
fF_PASSWORD_NEW = 23
for RowCount = 0 to recActiveTopicsCount
'## Store all the recordvalues in variables first.
Forum_ID = allActiveTopics(fFORUM_ID,RowCount)
Forum_Subject = allActiveTopics(fF_SUBJECT,RowCount)
ForumSubscription = allActiveTopics(fF_SUBSCRIPTION,RowCount)
Forum_Status = allActiveTopics(fF_STATUS,RowCount)
Cat_ID = allActiveTopics(fCAT_ID,RowCount)
Cat_Name = allActiveTopics(fCAT_NAME,RowCount)
CatSubscription = allActiveTopics(fCAT_SUBSCRIPTION,RowCount)
Cat_Status = allActiveTopics(fCAT_STATUS,RowCount)
Topic_Status = allActiveTopics(fT_STATUS,RowCount)
Topic_View_Count = allActiveTopics(fT_VIEW_COUNT,RowCount)
Topic_ID = allActiveTopics(fTOPIC_ID,RowCount)
Topic_Subject = allActiveTopics(fT_SUBJECT,RowCount)
Topic_Author = allActiveTopics(fT_AUTHOR,RowCount)
Topic_Replies = allActiveTopics(fT_REPLIES,RowCount)
Topic_UReplies = allActiveTopics(fT_UREPLIES,RowCount)
Member_Name = allActiveTopics(fM_NAME,RowCount)
Topic_Last_Post_Author = allActiveTopics(fT_LAST_POST_AUTHOR,RowCount)
Topic_Last_Post = allActiveTopics(fT_LAST_POST,RowCount)
Topic_Last_Post_Reply_ID = allActiveTopics(fT_LAST_POST_REPLY_ID,RowCount)
Topic_Last_Post_Author_Name = chkString(allActiveTopics(fLAST_POST_AUTHOR_NAME,RowCount),"display")
Topic_MsgIcon = allActiveTopics(fT_MSGICON,RowCount)
Forum_PrivateForums = allActiveTopics(fF_PRIVATEFORUMS,RowCount)
Forum_FPasswordNew = allActiveTopics(fF_PASSWORD_NEW,RowCount)
'############# Poll Mod #################
IsPoll = allActiveTopics(fIS_POLL,RowCount)
if IsPoll = 1 then
pollLink = "poll=1&"
else
pollLink = ""
end if
'########################################
if mLev = 4 then
ModerateAllowed = "Y"
elseif mLev = 3 and ModOfForums <> "" then
if (strAuthType = "nt") then
if (chkForumModerator(Forum_ID, Session(strCookieURL & "username")) = "1") then ModerateAllowed = "Y" else ModerateAllowed = "N"
else
if (instr("," & ModOfForums & "," ,"," & Forum_ID & ",") > 0) then ModerateAllowed = "Y" else ModerateAllowed = "N"
end if
else
ModerateAllowed = "N"
end if
canView = true
if strPrivateForums = "1" and mLev < 4 then
select case Forum_PrivateForums
case 2 '## password
select case Request.Cookies(strUniqueID & "Forum")("PRIVATE_" & Forum_Subject)
case Forum_FPasswordNew
canView = true
case else
canView = false
end select
case 3,7 '## Either Password or Allowed Member(already covered)/Member
if MemberID > 0 then
canView = true
else
select case Request.Cookies(strUniqueID & "Forum")("PRIVATE_" & Forum_Subject)
case Forum_FPasswordNew
canView = true
case else
canView = false
end select
end if
case else
canView = true
end select
end if
if canView then
if ModerateAllowed = "Y" and Topic_UReplies > 0 then
Topic_Replies = Topic_Replies + Topic_UReplies
end if
fDisplayCount = fDisplayCount + 1
' -- Display forum name
if currForum <> Forum_ID then
Response.Write " " & vbNewline & _
" | " & ChkString(Cat_Name,"display") & " / " & ChkString(Forum_Subject,"display") & " | " & vbNewline
if (mlev > 0) or (lcase(strNoCookies) = "1") then
Response.Write " " & vbNewLine
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
ForumAdminOptions
else
if Cat_Status <> 0 and Forum_Status <> 0 then
ForumMemberOptions
else
Response.Write " " & vbNewLine
end if
end if
Response.Write " | " & vbNewline
elseif (mLev = 3) then
Response.Write " | " & vbNewline
end if
Response.Write " " & vbNewline
end if
Response.Write " " & vbNewline
Response.Write " | "
Else
Response.Write " align=""center"" valign=""middle"">"
' -- Set up a link to the topic and display the icon appropriate to the status of the post.
end if
Response.Write ""
' - If status = 0, topic/forum/category is locked. If status > 2, posts are unmoderated/rejected
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
' DEM --> Added code for topic moderation
if Topic_Status = 2 then
UnApprovedFound = "Y"
Response.Write getCurrentIcon(strIconFolderUnmoderated,"Discussione Non Moderata","hspace=""0""") & "" & vbNewline
elseif Topic_Status = 3 then
HeldFound = "Y"
Response.Write getCurrentIcon(strIconFolderHold,"Discussione in Sospeso","hspace=""0""") & "" & vbNewline
' DEM --> end of code Added for topic moderation
elseif lcase(strHotTopic) = "1" and Topic_Replies >= intHotTopicNum then
Response.Write getCurrentIcon(strIconFolderNewHot,"Discussione Calda con Nuovi Messaggi","hspace=""0""") & "" & vbNewline
elseif Topic_Last_Post < lastdate then
Response.Write getCurrentIcon(strIconFolder,"Nessun Nuovo Messaggio","") & "" & vbNewline
else
Response.Write getCurrentIcon(strIconFolderNew,"Nuovi Messaggi","") & "" & vbNewline
end if
else
if Cat_Status = 0 then
strAltText = "Category"
elseif Forum_Status = 0 then
strAltText = "Forum"
else
strAltText = "Topic"
end if
if Topic_Last_Post < lastdate then
Response.Write getCurrentIcon(strIconFolderLocked,strAltText,"Bloccata")
else
Response.Write getCurrentIcon(strIconFolderNewLocked,strAltText,"Bloccata")
end if
Response.Write "" & vbNewline
end if
Response.Write " | " & vbNewline
Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""0""") & "" & vbNewLine
Else
Response.Write " align=""center"" valign=""middle"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""0""") & "" & vbNewLine
end if
Response.Write " "
Else
Response.Write " valign=""middle"">"
end if
'######################## Poll Mod ######################
if IsPoll then Response.Write "Sondaggio: "
'########################################################
Response.Write "" & ChkString(Topic_Subject,"title") & " " & vbNewline
if strShowPaging = "1" then
TopicPaging()
end if
Response.Write " " & vbNewline
Response.Write " " & profileLink(chkString(Member_Name,"display"),Topic_Author) & "" & vbNewLine
Else
Response.Write " align=""center"" valign=""middle"">" & profileLink(chkString(Member_Name,"display"),Topic_Author) & "" & vbNewline
end if
Response.Write " " & Topic_Replies & "" & vbNewLine
Else
Response.Write " align=""center"" valign=""middle"">" & Topic_Replies & "" & vbNewline
end if
Response.Write " " & Topic_View_Count & "" & vbNewLine
Else
Response.Write " align=""center"" valign=""middle""> " & Topic_View_Count & "" & vbNewline
end if
if IsNull(Topic_Last_Post_Author) then
strLastAuthor = ""
else
strLastAuthor = "
da: " & profileLink(Topic_Last_Post_Author_Name,Topic_Last_Post_Author) & ""
if strJumpLastPost = "1" then strLastAuthor = strLastAuthor & " " & DoLastPostLink
end if
Response.Write " " & ChkDate(Topic_Last_Post, " " ,true) & strLastAuthor & "" & vbNewLine
Else
Response.Write " align=""center"" valign=""middle"" nowrap>" & ChkDate(Topic_Last_Post, " " ,true) & strLastAuthor & "" & vbNewline
end if
if (mlev > 0) or (lcase(strNoCookies) = "1") then
Response.Write " " & vbNewLine
Else
Response.Write " align=""center"" valign=""middle"" nowrap>" & vbNewLine
end if
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
call TopicAdminOptions
else
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
call TopicMemberOptions
else
Response.Write " " & vbNewline
end if
end if
Response.Write " " & vbNewline
elseif (mLev = 3) then
Response.Write " | " & vbNewline
end if
Response.Write " " & vbNewline
currForum = Forum_ID
end if
next
if fDisplayCount = 0 then
Response.Write " " & vbNewline & _
" | Nessuna Nuova Discussione Trovata | " & vbNewline & _
" " & vbNewline
end if
end if
Response.Write " " & vbNewline & _
" | " & vbNewline & _
"
" & vbNewline & _
"