<% '################################################################################# '## Copyright (C) 2000-02 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 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 support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% Dim HasHigherSub Dim HeldFound, UnApprovedFound, UnModeratedPosts, UnModeratedFPosts HasHigherSub = false Dim strUseMemberDropDownBox strUseMemberDropDownBox = 1 %> <% Dim ArchiveView Dim AdminAllowed, ModerateAllowed Dim SearchLink : SearchLink = "" if request("ARCHIVE") = "true" then strActivePrefix = strArchiveTablePrefix ArchiveView = "true" ArchiveLink = "ARCHIVE=true&" else strActivePrefix = strTablePrefix ArchiveView = "" ArchiveLink = "" end if select case cLng(Request.Form("andor")) case 1 : strAndOr = " and " case 2 : strAndOr = " or " case 3 : strAndOr = "phrase" case else : strAndOr = " and " end select Response.Write " " & vbNewLine ' -- 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 ' DEM --> Added code for topic moderation 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_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_PRIVATEFORUMS = 1 fF_PASSWORD_NEW = 2 for RowCount = 0 to recAllowedCount Forum_ID = allAllowedData(fFORUM_ID,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 ChkDisplayForum(Forum_PrivateForums,Forum_FPasswordNew,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 if Request.QueryString("mode") = "DoIt" then if Request.Form("Search") <> "" or Request.QueryString("MEMBER_ID") <> "" then if Request.Form("Search") <> "" then keywords = split(Request.Form("Search"), " ") keycnt = ubound(keywords) for i = 0 to keycnt if i = 0 then strKeywords = keywords(i) else strKeywords = strKeywords & "," & keywords(i) end if next SearchLink = "&SearchTerms=" & chkString(strKeyWords,"search") end if '## Forum_SQL - Find all records with the search criteria in them strSql = "SELECT DISTINCT C.CAT_STATUS, C.CAT_SUBSCRIPTION, C.CAT_NAME, C.CAT_ORDER" strSql = strSql & ", F.F_ORDER, F.FORUM_ID, F.F_SUBJECT, F.CAT_ID" strSql = strSql & ", F.F_SUBSCRIPTION, F.F_STATUS" strSql = strSql & ", T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_STATUS, T.T_LAST_POST" strSql = strSql & ", T.T_LAST_POST_AUTHOR, T.T_LAST_POST_REPLY_ID, T.T_REPLIES, T.T_UREPLIES, T.T_VIEW_COUNT" strSql = strSql & ", M.MEMBER_ID, M.M_NAME, MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME " strSql2 = " FROM ((((" & strTablePrefix & "FORUM F LEFT JOIN " & strActivePrefix & "TOPICS T" strSql2 = strSql2 & " ON F.FORUM_ID = T.FORUM_ID) LEFT JOIN " & strActivePrefix & "REPLY R" strSql2 = strSql2 & " ON T.TOPIC_ID = R.TOPIC_ID) LEFT JOIN " & strMemberTablePrefix & "MEMBERS M" strSql2 = strSql2 & " ON T.T_AUTHOR = M.MEMBER_ID) LEFT JOIN " & strTablePrefix & "CATEGORY C" strSql2 = strSql2 & " ON T.CAT_ID = C.CAT_ID) LEFT JOIN " & strMemberTablePrefix & "MEMBERS MEMBERS_1" strSql2 = strSql2 & " ON T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID" if Request.Form("Search") <> "" then strSql3 = " WHERE (" '################# New Search Code ################################################# if Request.Form("SearchMessage") = 1 then if strAndOr = "phrase" then strSql3 = strSql3 & " (T.T_SUBJECT LIKE '%" & ChkString(Request.Form("Search"), "SQLString") & "%') " else For Each word in keywords SearchWord = ChkString(word, "SQLString") strSql3 = strSql3 & " (T.T_SUBJECT LIKE '%" & SearchWord & "%') " if cnt < keycnt then strSql3 = strSql3 & strAndOr cnt = cnt + 1 next end if else if strAndOr = "phrase" then strSql3 = strSql3 & " (R.R_MESSAGE LIKE '%" & ChkString(Request.Form("Search"), "SQLString") & "%'" strSql3 = strSql3 & " OR T.T_SUBJECT LIKE '%" & ChkString(Request.Form("Search"), "SQLString") & "%'" strSql3 = strSql3 & " OR T.T_MESSAGE LIKE '%" & ChkString(Request.Form("Search"), "SQLString") & "%') " else For Each word in keywords SearchWord = ChkString(word, "SQLString") strSql3 = strSql3 & " (R.R_MESSAGE LIKE '%" & SearchWord & "%'" strSql3 = strSql3 & " OR T.T_SUBJECT LIKE '%" & SearchWord & "%'" strSql3 = strSql3 & " OR T.T_MESSAGE LIKE '%" & SearchWord & "%') " if cnt < keycnt then strSql3 = strSql3 & strAndOr cnt = cnt + 1 next end if '################# New Search Code ################################################# end if strSql3 = strSql3 & " ) " else strSql3 = " WHERE (0 = 0)" end if ' DEM --> Added code to ignore unmoderated/held posts... if mlev <> 4 then strSql3 = strSql3 & " AND ((T.T_AUTHOR <> " & MemberID strSql3 = strSql3 & " AND T.T_STATUS < 2)" ' Ignore unapproved/held posts strSql3 = strSql3 & " OR T.T_AUTHOR = " & MemberID & ")" end if ' DEM --> End of Code added to ignore unmoderated/held posts.... cnt = 0 if cLng(Request.Form("Forum")) <> 0 then strSql3 = strSql3 & " AND F.FORUM_ID = " & cLng(Request.Form("Forum")) & " " end if if cLng(Request.Form("SearchDate")) <> 0 then dt = cLng(Request.Form("SearchDate")) strSql3 = strSql3 & " AND (T.T_DATE > '" & DateToStr(dateadd("d", -dt, strForumTimeAdjust)) & "')" end if if strUseMemberDropDownBox = 0 then intSearchMember = getMemberID(chkString(Request.Form("SearchMember"),"SQLString")) if intSearchMember <> 0 then strSql3 = strSql3 & " AND (M.MEMBER_ID = " & cLng(intSearchMember) & " " strSql3 = strSql3 & " OR R.R_AUTHOR = " & cLng(intSearchMember) & ") " end if else if cLng(Request.Form("SearchMember")) <> 0 then strSql3 = strSql3 & " AND (M.MEMBER_ID = " & cLng(Request.Form("SearchMember")) & " " strSql3 = strSql3 & " OR R.R_AUTHOR = " & cLng(Request.Form("SearchMember")) & ") " end if end if if cLng(Request.QueryString("MEMBER_ID")) <> 0 then strSql3 = strSql3 & " AND (M.MEMBER_ID = " & cLng(Request.QueryString("MEMBER_ID")) & " " strSql3 = strSql3 & " OR R.R_AUTHOR = " & cLng(Request.QueryString("MEMBER_ID")) & ") " end if if strPrivateForums = "1" and mLev < 4 then strSql3 = strSql3 & " AND F.FORUM_ID IN (" & allAllowedForums & ")" end if strSql3 = strSql3 & " AND F.F_TYPE = 0" strSql4 = " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT, T.T_LAST_POST DESC" mypage = request("whichpage") if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1 mypage = cLng(mypage) if strDBType = "mysql" then 'MySql specific code if mypage > 1 then intOffset = cLng((mypage-1) * strPageSize) strSql5 = strSql5 & " LIMIT " & intOffset & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(DISTINCT T.TOPIC_ID) AS PAGECOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing if iPageTotal > 0 then inttotaltopics = iPageTotal maxpages = (iPageTotal \ strPageSize ) if iPageTotal mod strPageSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (strPageSize + 1) then intGetRows = iPageTotal elseif (mypage * strPageSize) > iPageTotal then intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal) else intGetRows = strPageSize end if else iPageTotal = 0 inttotaltopics = iPageTotal maxpages = 0 end if if iPageTotal > 0 then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrTopicData = rs.GetRows(intGetRows) iTopicCount = UBound(arrTopicData, 2) rs.close set rs = nothing else iTopicCount = "" end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = strPageSize rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic if not rs.EOF then rs.movefirst rs.pagesize = strPageSize inttotaltopics = cLng(rs.recordcount) rs.absolutepage = mypage '** maxpages = cLng(rs.pagecount) arrTopicData = rs.GetRows(strPageSize) iTopicCount = UBound(arrTopicData, 2) else iTopicCount = "" inttotaltopics = 0 end if rs.Close set rs = nothing end if if strModeration = "1" and mLev > 2 then UnModeratedPosts = CheckForUnmoderatedPosts("BOARD", 0, 0, 0) UnModeratedFPosts = 0 end if Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline if maxpages > 1 then Response.Write " " & vbNewLine Call DropDownPaging(1) Response.Write " " & vbNewLine end if Response.Write "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " All Forums
" & vbNewline Response.Write " " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " Search Form
" & vbNewLine if Request.Form("Search") <> "" then Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Search Results for: " & chkString(Request.Form("Search"),"display") elseif Request.QueryString("MEMBER_ID") <> "" then Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Search Results for: All non-archived Topics that contain posts by " & getMemberName(cLng(Request.QueryString("MEMBER_ID"))) end if Response.Write "
" & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if iTopicCount = "" then '## No Search Results Response.Write " " & vbNewLine & _ " " & vbNewLine if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine else cCAT_STATUS = 0 cCAT_SUBSCRIPTION = 1 cCAT_NAME = 2 fFORUM_ID = 5 fF_SUBJECT = 6 fCAT_ID = 7 fF_SUBSCRIPTION = 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_LAST_POST_REPLY_ID = 16 tT_REPLIES = 17 tT_UREPLIES = 18 tT_VIEW_COUNT = 19 mMEMBER_ID = 20 mM_NAME = 21 tLAST_POST_AUTHOR_NAME = 22 currForum = 0 currTopic = 0 dim Cat_Status dim Cat_Subscription dim Forum_Status dim Forum_Subscription 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_Subscription = arrTopicData(cCAT_SUBSCRIPTION, 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_Subscription = arrTopicData(fF_SUBSCRIPTION, 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_LastPostReplyID = arrTopicData(tT_LAST_POST_REPLY_ID, 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) 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 (currForum <> Forum_ID) and (currTopic <> Topic_ID) then Response.Write " " & vbNewLine & _ " " & vbNewline if mlev > 0 or (lcase(strNoCookies) = "1") 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 " " & vbNewline elseif Topic_Status = 3 then HeldFound = "Y" Response.Write " " & vbNewline else Response.Write " " & 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 " " & vbNewline end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if IsNull(Topic_LastPostAuthor) then strLastAuthor = "" else strLastAuthor = "
by: " & profileLink(Topic_LastPostAuthorName,Topic_LastPostAuthor) & "" if (strJumpLastPost = "1" and ArchiveView = "") then strLastAuthor = strLastAuthor & " " & DoLastPostLink end if Response.Write " " & vbNewLine if mlev > 0 or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine currTopic = Topic_ID rec = rec + 1 end if mdisplayed = mdisplayed + 1 next if mdisplayed = 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine if (mlev > 0) or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if end if Response.Write "
 TopicAuthorRepliesReadLast Post 
No Matches Found 
" & ChkString(Cat_Name,"display") & " / " & ChkString(Forum_Subject,"display") & "" & vbNewLine if (ModerateAllowed = "Y") then Call ForumAdminOptions() else Call ForumMemberOptions() end if Response.Write "
" & getCurrentIcon(strIconFolderUnmoderated,"Topic UnModerated","hspace=""0""") & "" & getCurrentIcon(strIconFolderHold,"Topic Held","hspace=""0""") & "" & ChkIsNew(Topic_LastPost) & "" & getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""") & "" Response.Write "" & ChkString(left(Topic_Subject, 50),"display") & " " & vbNewLine if strShowPaging = "1" then TopicPaging() end if Response.Write " " & profileLink(chkString(Topic_MemberName,"display"),Topic_MemberID) & "" & Topic_Replies & "" & Topic_ViewCount & "" & ChkDate(Topic_LastPost, " " ,true) & strLastAuthor & "" & vbNewLine if (ModerateAllowed = "Y") then call TopicAdminOptions() else call TopicMemberOptions() end if Response.Write "
No Matches Found 
" & vbNewLine & _ "
" & vbNewLine if maxpages > 1 then Response.Write " " & vbNewline & _ " " & vbNewLine Call DropDownPaging(2) Response.Write " " & vbNewLine & _ "
" & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & " New posts since last logon.
" & vbNewLine & _ " " & getCurrentIcon(strIconFolder,"Old Posts","align=""absmiddle""") & " Old Posts." if lcase(strHotTopic) = "1" then Response.Write (" (" & getCurrentIcon(strIconFolderHot,"Hot Topic","align=""absmiddle""") & " " & intHotTopicNum & " replies or more.)
" & vbNewLine) Response.Write " " & getCurrentIcon(strIconFolderLocked,"Locked Topic","align=""absmiddle""") & " Locked topic.
" & vbNewLine ' DEM --> Start of Code added for moderation if HeldFound = "Y" then Response.Write " " & getCurrentIcon(strIconFolderHold,"Held Topic","align=""absmiddle""") & " Held Topic.
" & vbNewline end if if UnApprovedFound = "Y" then Response.Write " " & getCurrentIcon(strIconFolderUnmoderated,"UnModerated Topic","align=""absmiddle""") & " UnModerated Topic.
" & vbNewline end if ' DEM --> End of Code added for moderation Response.Write "

" & vbNewLine & _ "
" & vbNewLine else Response.Write "

You must enter keywords

" & vbNewLine & _ "

Back To Search Page

" & vbNewLine & _ " " & vbNewLine end if else strRqForumID = cLng(Request.QueryString("FORUM_ID")) Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " All Forums
" & vbNewline & _ " " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " Search Form

" & vbNewLine Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine '################# New Search Code ################################################# Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine '################# New Search Code ################################################# Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strUseMemberDropDownBox = 0 then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
Search For:
" & vbNewLine & _ " " & vbNewLine '################# New Search Code ################################################# Response.Write " Match exact phrase
" & vbNewLine '################# New Search Code ################################################# Response.Write " Search for all Words
" & vbNewLine & _ " Match any of the words
Search Forum:" & vbNewLine & _ " " & vbNewLine & _ "
Search In:" & vbNewLine & _ " " & vbNewLine if strArchiveState = "1" then Response.Write("   Archived Posts" & vbNewLine) Response.Write "
Search By Date:" & vbNewLine & _ " " & vbNewLine & _ "
Search By Member:" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end if 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,"Un-Lock Category","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderLocked,"Category Locked","hspace=""0""") & vbNewLine end if else if Forum_Status <> 0 then Response.Write " " & getCurrentIcon(strIconFolderLocked,"Lock Forum","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Forum","hspace=""0""") & "" & vbNewLine end if end if if (Cat_Status <> 0 and Forum_Status <> 0) or (ModerateAllowed = "Y") then Response.Write " " & getCurrentIcon(strIconFolderPencil,"Edit Forum Properties","hspace=""0""") & "" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconFolderDelete,"Delete Forum","hspace=""0""") & "" & vbNewLine & _ " " & getCurrentIcon(strIconFolderNewTopic,"New Topic","hspace=""0""") & "" & vbNewLine ' DEM --> Start of Code added for subscriptions if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription = 1 then Response.Write " " if InArray(strForumSubs, Forum_ID) then Response.Write ShowSubLink ("U", Forum_Cat_ID, Forum_ID, 0, "N") & vbNewLine elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Forum_Cat_ID)) then Response.Write ShowSubLink ("S", Forum_Cat_ID, Forum_ID, 0, "N") & vbNewLine end if end if ' DEM --> End of Code added for subscriptions end if end sub sub ForumMemberOptions() Response.Write " " & getCurrentIcon(strIconFolderNewTopic,"New Topic","") & "" & vbNewLine ' DEM --> Start of Code added to handle subscription processing. if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription = 1 then Response.Write " " if InArray(strForumSubs, Forum_ID) then Response.Write ShowSubLink ("U", Forum_Cat_ID, Forum_ID, 0, "N") & vbNewLine elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Forum_Cat_ID)) then Response.Write ShowSubLink ("S", Forum_Cat_ID, Forum_ID, 0, "N") & vbNewLine end if end if end sub sub TopicPaging() 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) for counter = 1 to mxpages ref = " " Response.Write ref & vbNewLine if counter mod strPageNumberSize = 0 then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) end if next Response.Write(" " & vbNewLine) Response.Write("
" & getCurrentIcon(strIconPosticon,"","") & "" 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 sub TopicAdminOptions() if Cat_Status = 0 then Response.Write " " & getCurrentIcon(strIconUnlock,"Un-Lock Category","hspace=""0""") & "" & vbNewLine elseif Forum_Status = 0 then Response.Write " " & getCurrentIcon(strIconUnlock,"Un-Lock Forum","hspace=""0""") & "" & vbNewLine elseif Topic_Status <> 0 then Response.Write " " & getCurrentIcon(strIconLock,"Lock Topic","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconUnlock,"Un-Lock Topic","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,"Edit Topic","hspace=""0""") & "" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconTrashcan,"Delete Topic","hspace=""0""") & "" & vbNewLine if Topic_Status <= 1 and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,"Reply to Topic","hspace=""0""") & "" & vbNewLine end if ' DEM --> Start of Code for Full Moderation if Topic_Status > 1 then TopicString = "TOPIC_ID=" & Topic_ID & "&CAT_ID=" & Forum_Cat_ID & "&FORUM_ID=" & Forum_ID Response.Write " " & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Topic","hspace=""0""") & "" & vbNewline end if ' DEM --> End of Code for Full Moderation ' DEM --> Start of Code added for subscriptions if strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 then Response.Write " " if InArray(strTopicSubs, Forum_ID) then Response.Write ShowSubLink ("U", Forum_Cat_ID, Forum_ID, Topic_ID, "N") elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Forum_Cat_ID)) then Response.Write ShowSubLink ("S", Forum_Cat_ID, Forum_ID, Topic_ID, "N") end if end if ' DEM --> End of Code added for subscriptions end sub sub TopicMemberOptions() if ((Topic_Status > 0 and Topic_Author = MemberID) or (AdminAllowed = 1)) and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconPencil,"Edit Topic","hspace=""0""") & "" & vbNewLine end if if Topic_Status <= 1 and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,"Reply to Topic","hspace=""0""") & "" & vbNewLine end if ' DEM --> Start of Code added to handle subscription processing. if (strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription > 0 then Response.Write " " if InArray(strTopicSubs, Topic_ID) then Response.Write ShowSubLink ("U", Forum_Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Forum_Cat_ID)) then Response.Write ShowSubLink ("S", Forum_Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine end if end if ' DEM --> End of code added to handle subscription processing. end sub sub DropDownPaging(fnum) if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if scriptname = request.servervariables("script_name") Response.Write "
" & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine if strArchiveState = "1" and ArchiveView = "true" then Response.Write(" " & vbNewLine) Response.Write " " & vbNewLine if strUseMemberDropDownBox = 0 then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if if fnum = 1 then Response.Write(" Page: " & vbNewLine) end if for counter = 1 to maxpages if counter <> cLng(pge) then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if next if fnum = 1 then Response.Write(" of " & maxPages & "" & vbNewLine) else Response.Write(" " & vbNewLine) end if Response.Write(" " & vbNewLine) Response.Write("
" & vbNewLine) end if end sub Function DoLastPostLink() if Topic_Replies < 1 or Topic_LastPostReplyID = 0 then DoLastPostLink = "" & getCurrentIcon(strIconLastpost,"Jump to Last Post","align=""absmiddle""") & "" elseif Topic_LastPostReplyID <> 0 then PageLink = "whichpage=-1&" AnchorLink = "&REPLY_ID=" DoLastPostLink = "" & getCurrentIcon(strIconLastpost,"Jump to Last Post","align=""absmiddle""") & "" else DoLastPostLink = "" end if end function %>