" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | | " & vbNewLine & _
" Topic | " & vbNewLine & _
" Author | " & vbNewLine & _
" Replies | " & vbNewLine & _
" Read | " & vbNewLine & _
" Last Post | " & vbNewLine
if (mlev > 0) or (lcase(strNoCookies) = "1") then
Response.Write " "
if (mLev = 4) then
if UnModeratedPosts > 0 then
Response.Write "" & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject All UnModerated Posts","hspace=""0""") & ""
else
Response.Write(" ")
end if
else
Response.Write(" ")
end if
Response.Write " | " & vbNewline
end if
Response.Write " " & vbNewLine
if iTopicCount = "" then '## No Search Results
Response.Write " " & vbNewLine & _
" | No Matches Found | " & vbNewLine
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
Response.Write " | " & vbNewLine
end if
Response.Write " " & vbNewLine
else
cCAT_STATUS = 0
cCAT_NAME = 1
fFORUM_ID = 4
fF_SUBJECT = 5
fCAT_ID = 6
fF_PRIVATEFORUMS = 7
fF_PASSWORD_NEW = 8
fF_STATUS = 9
tTOPIC_ID = 10
tT_AUTHOR = 11
tT_SUBJECT = 12
tT_STATUS = 13
tT_LAST_POST = 14
tT_LAST_POST_AUTHOR = 15
tT_REPLIES = 16
tT_UREPLIES = 17
tT_VIEW_COUNT = 18
mMEMBER_ID = 19
mM_NAME = 20
tLAST_POST_AUTHOR_NAME = 21
currForum = 0
currTopic = 0
dim Cat_Status
dim Forum_Status
dim mdisplayed
mdisplayed = 0
rec = 1
for iTopic = 0 to iTopicCount
if (rec = strPageSize + 1) then exit for
Cat_Status = arrTopicData(cCAT_STATUS, iTopic)
Cat_Name = arrTopicData(cCAT_NAME, iTopic)
Forum_ID = arrTopicData(fFORUM_ID, iTopic)
Forum_Subject = arrTopicData(fF_SUBJECT, iTopic)
Forum_Cat_ID = arrTopicData(fCAT_ID, iTopic)
Forum_PrivateForums = arrTopicData(fF_PRIVATEFORUMS, iTopic)
Forum_FPasswordNew = arrTopicData(fF_PASSWORD_NEW, iTopic)
Forum_Status = arrTopicData(fF_STATUS, iTopic)
Topic_ID = arrTopicData(tTOPIC_ID, iTopic)
Topic_Author = arrTopicData(tT_AUTHOR, iTopic)
Topic_Subject = arrTopicData(tT_SUBJECT, iTopic)
Topic_Status = arrTopicData(tT_STATUS, iTopic)
Topic_LastPost = arrTopicData(tT_LAST_POST, iTopic)
Topic_LastPostAuthor = arrTopicData(tT_LAST_POST_AUTHOR, iTopic)
Topic_Replies = arrTopicData(tT_REPLIES, iTopic)
Topic_UReplies = arrTopicData(tT_UREPLIES, iTopic)
Topic_ViewCount = arrTopicData(tT_VIEW_COUNT, iTopic)
Topic_MemberID = arrTopicData(mMEMBER_ID, iTopic)
Topic_MemberName = arrTopicData(mM_NAME, iTopic)
Topic_LastPostAuthorName = arrTopicData(tLAST_POST_AUTHOR_NAME, iTopic)
Dim AdminAllowed, ModerateAllowed
if mLev = 4 then
AdminAllowed = 1
else
AdminAllowed = 0
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
if ModerateAllowed = "Y" and Topic_UReplies > 0 then
Topic_Replies = Topic_Replies + Topic_UReplies
end if
if chkDisplayForum(Forum_PrivateForums,Forum_FPasswordNew,Forum_ID,MemberID) then
if (currForum <> Forum_ID) and (currTopic <> Topic_ID) then
Response.Write " " & vbNewLine & _
" | " & ChkString(Cat_Name,"display") & " / " & ChkString(Forum_Subject,"display") & " | " & vbNewline
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
Response.Write " " & vbNewLine
Call ForumAdminOptions()
Response.Write " | " & vbNewLine
elseif (mLev = 3) then
Response.Write " | " & vbNewLine
end if
Response.Write " " & vbNewLine
currForum = Forum_ID
end if
if currTopic <> Topic_ID then
Response.Write " " & vbNewline
if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
' DEM --> Added if statement to display topic status properly
if Topic_Status = 2 then
UnApprovedFound = "Y"
Response.Write " | " & getCurrentIcon(strIconFolderUnmoderated,"Topic UnModerated","hspace=""0""") & " | " & vbNewline
elseif Topic_Status = 3 then
HeldFound = "Y"
Response.Write " " & getCurrentIcon(strIconFolderHold,"Topic Held","hspace=""0""") & " | " & vbNewline
else
Response.Write " " & ChkIsNew(Topic_LastPost) & " | " & vbNewline
end if
else
if Cat_Status = 0 then
strAltText = "Category Locked"
elseif Forum_Status = 0 then
strAltText = "Forum Locked"
else
strAltText = "Topic Locked"
end if
Response.Write " " & getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""") & " | " & vbNewline
end if
Response.Write " "
Response.Write "" & ChkString(left(Topic_Subject, 50),"display") & " " & vbNewLine
if strShowPaging = "1" then
TopicPaging()
end if
Response.Write " | " & vbNewLine & _
" " & profileLink(chkString(Topic_MemberName,"display"),Topic_Author) & " | " & vbNewLine & _
" " & Topic_Replies & " | " & vbNewLine & _
" " & Topic_ViewCount & " | " & vbNewLine
if IsNull(Topic_LastPostAuthor) then
strLastAuthor = ""
else
strLastAuthor = "
by: " & profileLink(Topic_LastPostAuthorName,Topic_LastPostAuthor) & ""
end if
Response.Write " " & ChkDate(Topic_LastPost, " " ,true) & strLastAuthor & " | " & vbNewLine
if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then
Response.Write " " & vbNewLine
call TopicAdminOptions
Response.Write " | " & vbNewLine
elseif (mlev = 3) then
Response.Write " | " & vbNewLine
end if
Response.Write " " & vbNewLine
currTopic = Topic_ID
rec = rec + 1
end if
mdisplayed = mdisplayed + 1
end if
next
if mdisplayed = 0 then
Response.Write " " & vbNewLine & _
" | No Matches Found | " & vbNewLine
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
Response.Write " | " & vbNewLine
end if
Response.Write " " & vbNewLine
end if
end if
Response.Write " " & vbNewLine & _
" | " & vbNewLine & _
"
" & vbNewLine
Response.Write "