<% '################################################################################# '## Ver.3.4.06 multi-language Skin3D Portal '################################################################################# '## Copyright (C) 2001-07 Gaėtan Dupont All Rights Reserved '## '## By using this program, you are agreeing to the terms of the '## GNU General Public License. '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding ImageForums2001 must remain intact '## in the scripts and in the outputted HTML. '## The "Image Forums 2001" text with a link back to '## http://www.forums2001.ca in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## Support can be obtained from support forums at: '## http://www.forums2001.ca '## '## Email: image_forum_2001@hotmail.com '## '################################################################################# '## This Page Contains source code of Snitz Forums 2000 '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% '## Do Cookie stuffs with reload nRefreshTime = Request.Cookies(strCookieURL & "Reload") if Request.form("cookie") = "1" then if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "Reload").Path = strCookieURL end if Response.Cookies(strCookieURL & "Reload") = Request.Form("RefreshTime") Response.Cookies(strCookieURL & "Reload").expires = strForumTimeAdjust + 365 nRefreshTime = Request.Form("RefreshTime") end if if nRefreshTime = "" then nRefreshTime = 0 end if ActiveSince = Request.Cookies(strCookieURL & "ActiveSince") '## Do Cookie stuffs with show last date if Request.form("cookie") = "2" then ActiveSince = Request.Form("ShowSinceDateTime") if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "ActiveSince").Path = strCookieURL end if Response.Cookies(strCookieURL & "ActiveSince") = ActiveSince end if Dim ModerateAllowed Dim HasHigherSub Dim HeldFound, UnApprovedFound, UnModeratedPosts, UnModeratedFPosts Dim canView HasHigherSub = false %> <% Select Case ActiveSince Case "LastVisit" lastDate = "" Case "LastFifteen" lastDate = DateToStr(DateAdd("n",-15,strForumTimeAdjust)) Case "LastThirty" lastDate = DateToStr(DateAdd("n",-30,strForumTimeAdjust)) Case "LastFortyFive" lastDate = DateToStr(DateAdd("n",-45,strForumTimeAdjust)) Case "LastHour" lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust)) Case "Last2Hours" lastDate = DateToStr(DateAdd("h",-2,strForumTimeAdjust)) Case "Last6Hours" lastDate = DateToStr(DateAdd("h",-6,strForumTimeAdjust)) Case "Last12Hours" lastDate = DateToStr(DateAdd("h",-12,strForumTimeAdjust)) Case "LastDay" lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust)) Case "Last2Days" lastDate = DateToStr(DateAdd("d",-2,strForumTimeAdjust)) Case "LastWeek" lastDate = DateToStr(DateAdd("ww",-1,strForumTimeAdjust)) Case "Last2Weeks" lastDate = DateToStr(DateAdd("ww",-2,strForumTimeAdjust)) Case "LastMonth" lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust)) Case "Last2Months" lastDate = DateToStr(DateAdd("m",-2,strForumTimeAdjust)) Case Else lastDate = "" End Select Response.Write " " & vbNewLine if IsEmpty(Session(strCookieURL & "last_here_date")) then Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName) end if if lastDate = "" then lastDate = Session(strCookieURL & "last_here_date") end if ' --Update-- 'if Request.Form("AllRead") = "Y" then ' '## The redundant line below is necessary, don't delete it. ' Session(strCookieURL & "last_here_date") = Request.Form("BuildTime") ' Session(strCookieURL & "last_here_date") = Request.Form("BuildTime") ' lastDate = Session(strCookieURL & "last_here_date") ' UpdateLastHereDate Request.Form("BuildTime"),strDBNTUserName ' ActiveSince = "" 'end if ' --End Update-- if strModeration = "1" and mLev > 2 then UnModeratedPosts = CheckForUnmoderatedPosts("BOARD", 0, 0, 0) end if ' -- Get all the high level(board, category, forum) subscriptions being 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 if mlev = 3 then strSql = "SELECT FORUM_ID FROM " & strTablePrefix & "MODERATOR " & _ " WHERE MEMBER_ID = " & MemberID Set rsMod = Server.CreateObject("ADODB.Recordset") rsMod.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsMod.EOF then recModCount = "" else allModData = rsMod.GetRows(adGetRowsRest) recModCount = UBound(allModData,2) end if RsMod.close set RsMod = nothing if recModCount <> "" then for x = 0 to recModCount if x = 0 then ModOfForums = allModData(0,x) else ModOfForums = ModOfForums & "," & allModData(0,x) end if next else ModOfForums = "" end if else ModOfForums = "" end if if strPrivateForums = "1" and mLev < 4 then allAllowedForums = "" allowSql = "SELECT FORUM_ID, F_SUBJECT, F_PRIVATEFORUMS, F_PASSWORD_NEW" allowSql = allowSql & " FROM " & strTablePrefix & "FORUM" allowSql = allowSql & " WHERE F_TYPE = 0" allowSql = allowSql & " ORDER BY FORUM_ID" set rsAllowed = Server.CreateObject("ADODB.Recordset") rsAllowed.open allowSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsAllowed.EOF then recAllowedCount = "" else allAllowedData = rsAllowed.GetRows(adGetRowsRest) recAllowedCount = UBound(allAllowedData,2) end if rsAllowed.close set rsAllowed = nothing if recAllowedCount <> "" then fFORUM_ID = 0 fF_SUBJECT = 1 fF_PRIVATEFORUMS = 2 fF_PASSWORD_NEW = 3 for RowCount = 0 to recAllowedCount Forum_ID = allAllowedData(fFORUM_ID,RowCount) Forum_Subject = allAllowedData(fF_SUBJECT,RowCount) Forum_PrivateForums = allAllowedData(fF_PRIVATEFORUMS,RowCount) Forum_FPasswordNew = allAllowedData(fF_PASSWORD_NEW,RowCount) 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 chkForumAccessNew(Forum_PrivateForums,Forum_FPasswordNew,Forum_Subject,Forum_ID,MemberID) = true then if allAllowedForums = "" then allAllowedForums = Forum_ID else allAllowedForums = allAllowedForums & "," & Forum_ID end if end if next end if if allAllowedForums = "" then allAllowedForums = 0 end if '## Forum_SQL - Get all active topics from last visit strSql = "SELECT F.FORUM_ID, " & _ "F.F_SUBJECT, " & _ "F.F_SUBSCRIPTION, " & _ "F.F_STATUS, " & _ "C.CAT_ID, " & _ "C.CAT_NAME, " & _ "C.CAT_SUBSCRIPTION, " & _ "C.CAT_STATUS, " & _ "T.T_STATUS, " & _ "T.T_VIEW_COUNT, " & _ "T.TOPIC_ID, " & _ "T.T_ISPOLL, " &_ "T.T_SUBJECT, " & _ "T.T_AUTHOR, " & _ "T.T_STICKY, " & _ "T.T_REPLIES, " & _ "T.T_UREPLIES, " & _ "M.M_NAME, " & _ "T.T_LAST_POST_AUTHOR, " & _ "T.T_LAST_POST, " & _ "T.T_LAST_POST_REPLY_ID, " & _ "T.T_DATE, " & _ "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, " & _ "T.T_MSGICON, " & _ "F.F_PRIVATEFORUMS, " & _ "F.F_PASSWORD_NEW " & _ ",T.T_ISEVENT " & _ ",F.F_REPLY_AUTH " & _ "FROM " & strMemberTablePrefix & "MEMBERS M, " & _ strTablePrefix & "FORUM F, " & _ strTablePrefix & "TOPICS T, " & _ strTablePrefix & "CATEGORY C, " & _ strMemberTablePrefix & "MEMBERS MEMBERS_1 " & _ "WHERE T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID " if strPrivateForums = "1" and mLev < 4 then strSql = strSql & " AND F.FORUM_ID IN (" & allAllowedForums & ") " end if if intShowUserGroups = "1" then strDeniedForums = Session(strCookieURL & "DeniedForums" & MemberID) if strDeniedForums <> "" and strDeniedForums <> "-1" then strSql = strSql & " AND F.FORUM_ID NOT IN(" & Session(strCookieURL & "DeniedForums" & MemberID) & ") " end if end if strSql = strSql & "AND F.F_TYPE = 0 " & _ "AND F.FORUM_ID = T.FORUM_ID " & _ "AND C.CAT_ID = T.CAT_ID " & _ "AND M.MEMBER_ID = T.T_AUTHOR " & _ "AND (T.T_LAST_POST > '" & lastDate & "'" ' DEM --> if not an admin, all unapproved posts should not be viewed. if mlev <> 4 then strSql = strSql & " AND ((T.T_AUTHOR <> " & MemberID &_ " AND T.T_STATUS < 2)" ' Ignore unapproved/held posts if mlev = 3 and ModOfForums <> "" then strSql = strSql & " OR T.FORUM_ID IN (" & ModOfForums & ") " end if strSql = strSql & " OR T.T_AUTHOR = " & MemberID & ")" end if if Group > 1 and strGroupCategories = "1" then strSql = strSql & " AND (C.CAT_ID = 0" if recGroupCatCount <> "" then for iGroupCat = 0 to recGroupCatCount strSql = strSql & " or C.CAT_ID = " & allGroupCatData(1, iGroupCat) next strSql = strSql & ")" else strSql = strSql & ")" end if end if strSql = strSql & ") " strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT, T.T_LAST_POST DESC " Set rs = Server.CreateObject("ADODB.Recordset") if strDBType <> "mysql" then rs.cachesize = 50 rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rs.EOF then recActiveTopicsCount = "" else allActiveTopics = rs.GetRows(adGetRowsRest) recActiveTopicsCount = UBound(allActiveTopics,2) end if rs.close set rs = nothing ' Sets up the Tree structure at the top of the page Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangActive00020) & " " & vbNewLine Response.Write " " & vbNewline Response.Write " " & vbNewLine & _ "
" & vbNewline & _ "
 
" & vbNewline & _ " " & _ "
" & vbNewline & _ " " & vbNewline Response.Write " " & vbNewline & _ "
" & vbNewline & _ "
" & vbNewline & _ "
" & vbNewLine '### Start to build the table Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewline else Response.Write "  " & vbNewline end if if intMessageIcons = "1" then Response.Write(" " & vbNewLine) Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline if intTopicRating = "1" then Response.Write(" " & vbNewLine) Response.Write " " & vbNewline if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewline end if Response.Write " " & vbNewline if recActiveTopicsCount = "" then if intMessageIcons = "1" and intTopicRating = "1" then MIColspan = "9" else MIColspan = "8" end if Response.Write " " & vbNewLine & _ " " & 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 fIS_POLL = 11 fT_SUBJECT = 12 fT_AUTHOR = 13 fT_STICKY = 14 fT_REPLIES = 15 fT_UREPLIES = 16 fM_NAME = 17 fT_LAST_POST_AUTHOR = 18 fT_LAST_POST = 19 fT_LAST_POST_REPLY_ID = 20 fT_DATE = 21 fLAST_POST_AUTHOR_NAME = 22 fT_MSGICON = 23 fF_PRIVATEFORUMS = 24 fF_PASSWORD_NEW = 25 fT_ISEVENT = 26 fF_REPLY_AUTH = 27 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) IsPoll = allActiveTopics(fIS_POLL,RowCount) if IsPoll = 1 then pollLink = "poll=1&" else pollLink = "" end if Topic_Subject = allActiveTopics(fT_SUBJECT,RowCount) Topic_Author = allActiveTopics(fT_AUTHOR,RowCount) Topic_Sticky = allActiveTopics(fT_STICKY,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_Date = allActiveTopics(fT_DATE,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) IsEvent = allActiveTopics(fT_ISEVENT,Rowcount) intReplyAuth = allActiveTopics(fF_REPLY_AUTH,Rowcount) TopicRatingAvg = GetTopicRatingAvg( TOPIC_ID ) 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 fDisplayCount = fDisplayCount + 1 ' -- Display forum name if currForum <> Forum_ID then if intMessageIcons = "1" and intTopicRating = "1" then MIColspan2 = "8" elseif intTopicRating = "1" then MIColspan2 = "7" elseif intMessageIcons = "1" then MIColspan2 = "7" else MIColspan2 = "6" end if Response.Write " " & vbNewline & _ " " & vbNewline if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewline elseif (mLev = 3) then Response.Write " " & vbNewline end if Response.Write " " & vbNewline end if Response.Write " " & vbNewline Response.Write " " & vbNewline if intMessageIcons = "1" then if strUseBugForm = "1" and Topic_ForumID = cLng(intBugFormForum) then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if end if Response.Write " " & vbNewline Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if intTopicRating = "1" then Response.Write " " & vbNewLine end if if IsNull(Topic_Last_Post_Author) then strLastAuthor = "" else strLastAuthor = "
" & fLang(strLangBy00010) & " " & profileLink(Topic_Last_Post_Author_Name,Topic_Last_Post_Author) & "" if strJumpLastPost = "1" then strLastAuthor = strLastAuthor & " " & DoLastPostLink end if Response.Write " " & vbNewline if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewline elseif (mLev = 3) then Response.Write " " & vbNewline end if Response.Write " " & vbNewline currForum = Forum_ID next if fDisplayCount = 0 then Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline end if end if Response.Write "
" & vbNewline If recActiveTopicsCount <> "" and (mLev > 0) then Response.Write "
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ "
 " & fLang(strLangHead_Topic00010) & "" & fLang(strLangAuthor00010) & "" & fLang(strLangReplies00010) & "" & fLang(strLangRead00010) & "" & fLang(strLangTopic_Rating00010) & "" & fLang(strLangLast_Post00010) & "" if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then if UnModeratedPosts > 0 then UnModeratedFPosts = 0 Response.Write "" & getCurrentIcon(strIconFolderModerate,fLang(strLangAll_UnModerated00010),"hspace=""0""") & "" else Response.Write(" ") end if else Response.Write(" ") end if Response.Write "
" & fLang(strLangNo_Topics00010) & "
" & ChkString(Cat_Name,"display") & " / " & ChkString(Forum_Subject,"display") & "" & 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 "  
" ' -- Set up a link to the topic and display the icon appropriate to the status of the post. 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 if Topic_Sticky and strStickyTopic = "1" then if Topic_Last_Post > Session(strCookieURL & "last_here_date") then Response.Write getCurrentIcon(strIconFolderNewSticky,fLang(strLangForum00190),"hspace=""0""") else Response.Write getCurrentIcon(strIconFolderSticky,fLang(strLangForum00200),"hspace=""0""") end if else ' DEM --> Added code for topic moderation if Topic_Status = 2 then UnApprovedFound = "Y" Response.Write getCurrentIcon(strIconFolderUnmoderated,fLang(strLangNot_Moderated00010),"hspace=""0""") elseif Topic_Status = 3 then HeldFound = "Y" Response.Write getCurrentIcon(strIconFolderHold,fLang(strLangTopic_Hold00010),"hspace=""0""") ' DEM --> end of code Added for topic moderation elseif lcase(strHotTopic) = "1" and Topic_Replies >= intHotTopicNum then Response.Write getCurrentIcon(strIconFolderNewHot,fLang(strLangActive00340),"hspace=""0""") elseif Topic_Last_Post < lastdate then Response.Write getCurrentIcon(strIconFolder,fLang(strLangActive00350),"hspace=""0""") else Response.Write getCurrentIcon(strIconFolderNew,fLang(strLangNew_Posts00010),"hspace=""0""") end if end if else if Cat_Status = 0 then strAltText = fLang(strLangCategory_Locked00010) elseif Forum_Status = 0 then strAltText = fLang(strLangForum_Locked00010) else strAltText = fLang(strLangForum00250) end if if Topic_Last_Post < lastdate then if Topic_Sticky and strStickyTopic = "1" then Response.Write getCurrentIcon(strIconFolderNewStickyLocked,strAltText,"hspace=""0""") else Response.Write getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""") end if else if Topic_Sticky and strStickyTopic = "1" then Response.Write getCurrentIcon(strIconFolderStickyLocked,strAltText,"hspace=""0""") else Response.Write getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""") end if end if end if Response.Write " " & vbNewLine if isevent="1" then Response.Write getCurrentIcon(strIconEvent,"","") elseif IsPoll="1" then Response.Write getCurrentIcon(strIconPoll2,"","") elseif Topic_Status = 11 then Response.Write getCurrentIcon(strIconTopicSecret,fLang(strLangTopic01010),"align=""absmiddle""") else Response.Write getCurrentIcon(strIconBugSmall,fLang(strLangBug00440),"hspace=""0""") end if Response.Write "" & vbNewLine if isevent="1" then Response.Write getCurrentIcon(strIconEvent,"","") elseif IsPoll="1" then Response.Write getCurrentIcon(strIconPoll2,"","") elseif Topic_Status = 11 then Response.Write getCurrentIcon(strIconTopicSecret,fLang(strLangTopic01010),"align=""absmiddle""") else Response.Write getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""0""") end if Response.Write "" 'if Topic_Sticky and strStickyTopic = "1" then Response.Write fLang(strLangForum00270) if Topic_Sticky and strStickyTopic = "1" and IsPoll then Response.Write fLang(strLangForum00860) elseif Topic_Sticky and strStickyTopic = "1" and not(IsPoll) then Response.Write fLang(strLangForum00270) elseif IsPoll then Response.Write fLang(strLangForum00870) end if if Isevent="1" then Response.Write fLang(strLangCla00190) if Topic_Status = 11 then Response.Write fLang(strLangTopic01020) Response.Write "" & ChkString(Topic_Subject,"title") & " " & vbNewline if strShowPaging = "1" then TopicPaging() end if Response.Write " " & profileLink(chkString(Member_Name,"display"),Topic_Author) & "" 'strTopicDate = mid(Topic_Date,5,2) & "/" & mid(Topic_Date,7,2) & "/" & mid(Topic_Date,3,2) response.write "
" & ChkDate(Topic_Date, "" ,false) & "" Response.Write "
" & Topic_Replies & "" & Topic_View_Count & "" if intShowRatingStars = "1" then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(TopicRatingAvg),"","") & "") else Response.Write("" & TopicRatingAvg & "") Response.Write "" & ChkDate(Topic_Last_Post, " -" ,true) & strLastAuthor & "" & vbNewLine 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 "  
" & fLang(strLangNo_Topics00010) & "
" & vbNewline & _ "
" & vbNewline Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderNew,fLang(strLangNew_Posts00010),"align=""absmiddle""") & " " & fLang(strLangLast_Logon00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolder,fLang(strLangOld_Posts00010),"align=""absmiddle""") & " " & fLang(strLangOld_Posts200010) & " " if lcase(strHotTopic) = "1" then Response.Write (" (" & getCurrentIcon(strIconFolderHot,fLang(strLangHot_Topic00010),"align=""absmiddle""") & " " & fLangN(strLangReplies_More00010,intHotTopicNum) & "
" & vbNewLine) Response.Write " " & getCurrentIcon(strIconFolderLocked,fLang(strLangLockedTopic00010),"align=""absmiddle""") & " " & fLang(strLangLocked_Topic00010) & "
" & vbNewLine ' DEM --> Start of Code added for moderation if HeldFound = "Y" then Response.Write " " & getCurrentIcon(strIconFolderHold,fLang(strLangHeldTopic00010),"align=""absmiddle""") & " " & fLang(strLangHeld_Topic00010) & "
" & vbNewline end if if UnapprovedFound = "Y" then Response.Write " " & getCurrentIcon(strIconFolderUnmoderated,fLang(strLangUnModerated00010),"align=""absmiddle""") & " " & fLang(strLangUn_Moderated00010) & "
" & vbNewline end if ' DEM --> End of Code added for moderation Response.Write "

" & vbNewLine & _ "
" & vbNewline %><% Response.Write "
" & vbNewline & _ " " & vbNewline WriteFooter Response.End sub ForumAdminOptions() if (ModerateAllowed = "Y") or (lcase(strNoCookies) = "1") then if Cat_Status = 0 then if mlev = 4 then Response.Write " " & getCurrentIcon(strIconFolderUnlocked,fLang(strLangUnLock_Category00010),"") & "" & vbNewline else Response.Write " " & getCurrentIcon(strIconFolderLocked,fLang(strLangCategory_Locked00010),"") & vbNewline end if else if Forum_Status <> 0 then Response.Write " " & getCurrentIcon(strIconFolderLocked,fLang(strLangLock_Forum00010),"") & "" & vbNewline else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,fLang(strLangUnLock_Forum00010),"") & "" & vbNewline end if end if if (Cat_Status <> 0 and Forum_Status <> 0) or (ModerateAllowed = "Y") then Response.Write " " & getCurrentIcon(strIconFolderPencil,fLang(strLangForum_Properties00010),"hspace=""0""") & "" & vbNewline end if if mLev = 4 or lcase(strNoCookies) = "1" then Response.Write(" " & getCurrentIcon(strIconFolderDelete,fLang(strLangDelete_Forum00010),"") & "" & vbNewLine) Response.Write " " & getCurrentIcon(strIconFolderNewTopic,fLang(strLangNew_Topic00010),"") & "" & vbNewLine ' DEM --> Start of Code added to handle subscription processing. if (strSubscription < 4 and strSubscription > 0) and (CatSubscription > 0) and ForumSubscription = 1 and strEmail = 1 then if InArray(strForumSubs, Forum_ID) then Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, 0, "N") elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Cat_ID)) then Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, 0, "N") end if end if ' DEM --> End of code added to handle subscription processing. end if end sub sub ForumMemberOptions() if (mlev > 0) then Response.Write " " & getCurrentIcon(strIconFolderNewTopic,fLang(strLangNew_Topic00010),"") & "" & vbNewLine ' DEM --> Start of Code added to handle subscription processing. if (strSubscription > 0 and strSubscription < 4) and CatSubscription > 0 and ForumSubscription = 1 and strEmail = 1 then if InArray(strForumSubs, Forum_ID) then Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, 0, "N") elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Cat_ID)) then Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, 0, "N") end if end if end if end sub sub TopicAdminOptions() if Cat_Status = 0 then Response.Write " " & getCurrentIcon(strIconUnlock,fLang(strLangUnLock_Category00010),"hspace=""0""") & "" & vbNewLine elseif Forum_Status = 0 then Response.Write " " & getCurrentIcon(strIconUnlock,fLang(strLangUnLock_Forum00010),"hspace=""0""") & "" & vbNewLine elseif Topic_Status <> 0 then Response.Write " " & getCurrentIcon(strIconLock,fLang(strLangLock_Topic00010),"hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconUnlock,fLang(strLangUnLock_Topic00010),"hspace=""0""") & "" & vbNewLine end if if (ModerateAllowed = "Y") or (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) then Response.Write " " & getCurrentIcon(strIconPencil,fLang(strLangEdit_Topic00010),"hspace=""0""") & "" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconTrashcan,fLang(strLangDelete_Topic00010),"hspace=""0""") & "" & vbNewLine if Topic_Status <= 1 then Response.Write " " & getCurrentIcon(strIconReplyTopic,fLang(strLangReply_to_Topic00010),"hspace=""0""") & "" & vbNewLine end if ' DEM --> Start of Code for Full Moderation if Topic_Status > 1 then if strSecretTopic = "1" and Topic_Status = 11 then Response.Write " " & getCurrentIcon(strIconReplyTopicSecret,fLang(strLangTopic01030),"hspace=""0""") & "" & vbNewLine else TopicString = "TOPIC_ID=" & Topic_ID & "&CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID Response.Write " " & getCurrentIcon(strIconFolderModerate,fLang(strLangApproveHoldReject_Topic00010),"hspace=""0""") & "" & vbNewline end if end if ' DEM --> End of Code for Full Moderation ' DEM --> Start of Code added to handle subscription processing. if (strSubscription < 4 and strSubscription > 0) and (CatSubscription > 0) and ForumSubscription > 0 and strEmail = 1 then if InArray(strTopicSubs, Topic_ID) then Response.Write " " & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "N") elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then Response.Write " " & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "N") end if end if ' DEM --> End of code added to handle subscription processing. end sub sub TopicMemberOptions() if (Topic_Status > 0 and Topic_Author = MemberID) or (ModerateAllowed = "Y") then Response.Write " " & getCurrentIcon(strIconPencil,fLang(strLangEdit_Topic00010),"hspace=""0""") & "" & vbNewLine if strSecretTopic = "1" and Topic_Status = 11 then if mlev >= IntReplyAuth then Response.Write " " & getCurrentIcon(strIconReplyTopicSecret,fLang(strLangTopic01030),"hspace=""0""") & "" & vbNewLine else Response.Write " " end if end if end if if (Topic_Status > 0 and Topic_Author = MemberID and Topic_Replies = 0) or (ModerateAllowed = "Y") then Response.Write " " & getCurrentIcon(strIconTrashcan,fLang(strLangReply_to_Topic00010),"hspace=""0""") & "" & vbNewLine end if if Topic_Status <= 1 then if mlev >= IntReplyAuth then Response.Write " " & getCurrentIcon(strIconReplyTopic,fLang(strLangReply_to_Topic00010),"hspace=""0""") & "" & vbNewLine else Response.Write " " end if end if if (strSubscription < 4 and strSubscription > 0) and (CatSubscription > 0) and ForumSubscription > 0 and strEmail = 1 then if InArray(strTopicSubs, Topic_ID) then Response.Write " " & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "N") elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then Response.Write " " & ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "N") end if end if ' DEM --> End of code added to handle subscription processing. end sub sub TopicPaging() page_limit = 5 first_pages = 3 last_pages = 3 mxpages = (Topic_Replies / strPageSize) if mxPages <> cLng(mxPages) then mxpages = int(mxpages) + 1 end if if mxpages > 1 then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) if mxpages > page_limit then ref = " " for counter = 1 to first_pages ref = ref & " " next ref = ref & " " if last_pages = 0 then ref = ref & " " else for counter = (mxpages-last_pages+1) to mxpages ref = ref & " " next end if Response.Write ref & vbNewLine else for counter = 1 to mxpages ref = " " Response.Write ref & vbNewLine if counter mod strPageNumberSize = 0 and counter < mxpages then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) end if next end if Response.Write(" " & vbNewLine) Response.Write("
" & getCurrentIcon(strIconPosticon,"","") & "" ref = ref & " " & fLang(strLangPages00010) & " ("& mxpages & "): " ref = ref & widenum(counter) & " " & counter & "" ref = ref & " ...." ref = ref & widenum(counter) & " Last »" ref = ref & widenum(counter) & " " & counter & " " if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then ref = ref & " " end if ref = ref & widenum(counter) & "" & counter & "
 
" & vbNewLine) end if end sub Function DoLastPostLink() if Topic_Replies < 1 or Topic_Last_Post_Reply_ID = 0 then DoLastPostLink = "" & getCurrentIcon(strIconLastpost,fLang(strLangJump_Last_Post00010),"align=""absmiddle""") & "" elseif Topic_Last_Post_Reply_ID <> 0 then PageLink = "whichpage=-1&" AnchorLink = "&REPLY_ID=" DoLastPostLink = "" & getCurrentIcon(strIconLastpost,fLang(strLangJump_Last_Post00010),"align=""absmiddle""") & "" else DoLastPostLink = "" end if end function function aGetColspan(lIN, lOUT) if (mlev > 0 or strNoCookies = "1") then lOut = lOut + 1 if lOut > lIn then aGetColspan = lIN else aGetColspan = lOUT end if end function %>