<% '################################################################################# '## 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 '## '################################################################################# %> <% if (Request.QueryString("TOPIC_ID") = "" or IsNumeric(Request.QueryString("TOPIC_ID")) = False) and Request.Form("Method_Type") <> "login" and Request.Form("Method_Type") <> "logout" then Response.Redirect "default.asp" Response.End else Topic_ID = cLng(Request.QueryString("TOPIC_ID")) end if Dim ArchiveView, ArchiveLink, CColor Dim vPercent(100) Dim vAnswers(15) Dim vCount(15) Dim mpoll, nMaxValue, nMaxWidth Dim nTotal, nTotal2, nThisVal if request("ARCHIVE") = "true" then strActivePrefix = strTablePrefix & "A_" ArchiveView = "true" ArchiveLink = "ARCHIVE=true&" elseif request("ARCHIVE") <> "" then Response.Redirect "default.asp" Response.End else strActivePrefix = strTablePrefix ArchiveView = "" ArchiveLink = "" end if %> <% Response.Write " " & vbNewLine mypage = request("whichpage") if ((Trim(mypage) = "") or (IsNumeric(mypage) = False)) then mypage = 1 mypage = cLng(mypage) if Request("SearchTerms") <> "" then SearchLink = "&SearchTerms=" & Request("SearchTerms") else SearchLink = "" end if 'sortorder = request("SortChoice") 'if sortorder <> "" then ' mypage = 1 'else ' sortorder = request("sort") 'end if 'if cLng(sortorder) > 0 then SearchLink = SearchLink & "&sort=" & sortorder if strSignatures = "1" and strDSignatures = "1" then if ViewSig(MemberID) <> "0" then CanShowSignature = 1 end if end if '## Forum_SQL - Get original topic and check for the Category, Forum or Topic Status and existence strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" & _ ", M.M_AWARD_TITLE, M.M_AWARD_POST, M.M_AWARD_IMAGE, M.M_AWARD_ENABLED" & _ ", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_DATE, M.M_LASTHEREDATE, M.M_AVATAR_URL" & _ ", T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.TOPIC_ID, T.T_STATUS, T.T_ISPOLL, T.T_POLLSTATUS, T.T_LAST_EDIT" & _ ", T.T_LAST_EDITBY, T.T_LAST_POST, T.T_SIG, T.T_REPLIES" & _ ", T_EVENT_DATE, T.T_ISEVENT" & _ ", C.CAT_STATUS, C.CAT_ID, C.CAT_NAME, C.CAT_SUBSCRIPTION, C.CAT_MODERATION" & _ ", F.F_STATUS, F.F_POLLS, F.FORUM_ID, F.F_SUBSCRIPTION, F.F_SUBJECT, F.F_MODERATION, F.F_TOPIC_AUTH, F.F_REPLY_AUTH, T.T_MSGICON, T.T_MESSAGE, F.F_RATING_AUTH, T.ALLOW_RATING" if CanShowSignature = 1 then strSql = strSql & ", M.M_SIG" end if strSql = strSql & " FROM " & strActivePrefix & "TOPICS T, " & strTablePrefix & "FORUM F, " & _ strTablePrefix & "CATEGORY C, " & strMemberTablePrefix & "MEMBERS M " & _ " WHERE T.TOPIC_ID = " & Topic_ID & _ " AND F.FORUM_ID = T.FORUM_ID " & _ " AND C.CAT_ID = T.CAT_ID " & _ " AND M.MEMBER_ID = T.T_AUTHOR " set rsTopic = Server.CreateObject("ADODB.Recordset") rsTopic.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsTopic.EOF then recTopicCount = "" else recTopicCount = 1 Member_Name = rsTopic("M_NAME") Member_ReceiveMail = rsTopic("M_RECEIVE_EMAIL") Member_AIM = rsTopic("M_AIM") Member_ICQ = rsTopic("M_ICQ") Member_MSN = rsTopic("M_MSN") Member_YAHOO = rsTopic("M_YAHOO") Member_PM = rsTopic("M_PMRECEIVE") Member_AwardTitle = rsTopic("M_AWARD_TITLE") Member_AwardPosts = rsTopic("M_AWARD_POST") Member_AwardImage = rsTopic("M_AWARD_IMAGE") Member_AwardEnabled = rsTopic("M_AWARD_ENABLED") Member_Title = rsTopic("M_TITLE") Member_Homepage = rsTopic("M_HOMEPAGE") TMember_ID = rsTopic("MEMBER_ID") Member_Level = rsTopic("M_LEVEL") Member_Posts = rsTopic("M_POSTS") Member_Country = rsTopic("M_COUNTRY") Member_MemberDate = rsTopic("M_DATE") Member_MemberLastHereDate = rsTopic("M_LASTHEREDATE") Member_Avatar = rsTopic("M_AVATAR_URL") Topic_Date = rsTopic("T_DATE") Topic_Subject = rsTopic("T_SUBJECT") Topic_Author = rsTopic("T_AUTHOR") TopicID = rsTopic("TOPIC_ID") Topic_Status = rsTopic("T_STATUS") Topic_LastEdit = rsTopic("T_LAST_EDIT") Topic_LastEditby = rsTopic("T_LAST_EDITBY") Topic_LastPost = rsTopic("T_LAST_POST") Topic_Sig = rsTopic("T_SIG") Topic_Replies = rsTopic("T_REPLIES") dateHolder = strtodate(rsTopic("T_EVENT_DATE")) isevent = rsTopic("T_ISEVENT") Cat_Status = rsTopic("CAT_STATUS") Cat_ID = rsTopic("CAT_ID") Cat_Name = rsTopic("CAT_NAME") Cat_Subscription = rsTopic("CAT_SUBSCRIPTION") Cat_Moderation = rsTopic("CAT_MODERATION") Forum_Status = rsTopic("F_STATUS") Forum_ID = rsTopic("FORUM_ID") Forum_Subject = rsTopic("F_SUBJECT") Forum_Subscription = rsTopic("F_SUBSCRIPTION") Forum_Moderation = rsTopic("F_MODERATION") intTopicAuth = rsTopic("F_TOPIC_AUTH") intReplyAuth = rsTopic("F_REPLY_AUTH") Topic_MsgIcon = rsTopic("T_MSGICON") Topic_Message = rsTopic("T_MESSAGE") intRatingAuth = rsTopic("F_RATING_AUTH") Allow_Rating = rsTopic("ALLOW_RATING") if CanShowSignature = 1 then Topic_MemberSig = trim(rsTopic("M_SIG")) end if IsPoll = rsTopic("T_ISPOLL") Forum_Polls = rsTopic("F_POLLS") Poll_Status = rsTopic("T_POLLSTATUS") if IsPoll = 1 then strSql = "SELECT P.P_LASTVOTE, P.P_WHOVOTES" For i = 1 To 15 strSql = strSql & ", P.ANSWER" & CStr(i) strSql = strSql & ", P.COUNT" & CStr(i) Next strSql = strSql & " FROM " & strTablePrefix & "POLLS P" strSql = strSql & " WHERE P.TOPIC_ID = " & Topic_ID set rsPoll = Server.CreateObject("ADODB.Recordset") rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if not(rsPoll.EOF) or not(rsPoll.BOF) then Last_Vote = rsPoll("P_LASTVOTE") strWhoVotes = rsPoll("P_WHOVOTES") For nCount = 1 to 15 'Loop through answer and count fields for the poll 'and store them in arrays vAnswers(nCount) = rsPoll("ANSWER" & CStr(nCount)) vCount(nCount) = rsPoll("COUNT" & CStr(nCount)) Next end if rsPoll.Close set rsPoll = nothing end if if IsPoll = 1 then pollLink = "poll=1&" else pollLink = "" end if end if rsTopic.close set rsTopic = nothing if recTopicCount = "" then if ArchiveView <> "true" then Response.Redirect("topic.asp?ARCHIVE=true&" & ChkString(Request.QueryString,"sqlstring")) else Response.Redirect("default.asp") end if intTopicAuth = allTopicData(35,0) intReplyAuth = allTopicData(36,0) end if if IsPoll = 1 then 'Check to see if user has voted Voted = GetVote(Topic_ID) end if if mLev = 4 then AdminAllowed = 1 ForumChkSkipAllowed = 1 elseif mLev = 3 then if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 1 else if lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if end if elseif lcase(strNoCookies) = "1" then AdminAllowed = 1 ForumChkSkipAllowed = 0 else AdminAllowed = 0 ForumChkSkipAllowed = 0 end if if strPrivateForums = "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 then result = ChkForumAccess(Forum_ID, MemberID, true) end if if intShowUserGroups = "1" then if strPrivateForums <> "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 then result = ChkForumAccess(Forum_ID, MemberID, true) end if end if if strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if if Request.Form("cookie") = 1 then sortorder = cLng(Request.Form("SortChoice")) if strSetCookieToForum = "1" then Response.Cookies(strCookieURL & "PostSort").Path = strCookieURL end if Response.Cookies(strCookieURL & "PostSort")("ForumID_" & Forum_ID) = sortorder Response.Cookies(strCookieURL & "PostSort").expires = dateAdd("yyyy", 1, strForumTimeAdjust) elseif Request.Cookies(strCookieURL & "PostSort")("ForumID_" & Forum_ID) <> "" then sortorder = Request.Cookies(strCookieURL & "PostSort")("ForumID_" & Forum_ID) end if if mypage = -1 then strSql = "SELECT REPLY_ID FROM " & strActivePrefix & "REPLY WHERE TOPIC_ID = " & Topic_ID & " " if AdminAllowed = 0 then strSql = strSql & " AND (R_STATUS < " if Moderation = "Y" then strSql = strSql & "2 " else strSql = strSql & "3 " end if strSql = strSql & "OR R_AUTHOR = " & MemberID & ") " end if ' strSql = strSql & "ORDER BY R_DATE ASC " if sortorder = "1" or sortorder = "2" then strSql = strSql & "ORDER BY R_DATE DESC " else strSql = strSql & "ORDER BY R_DATE ASC " end if set rsReplies = Server.CreateObject("ADODB.Recordset") if strDBType = "mysql" then rsReplies.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText else rsReplies.open strSql, my_Conn, adOpenStatic, adLockReadOnly, adCmdText end if if not rsReplies.EOF then arrReplyData = rsReplies.GetRows(adGetRowsRest) iReplyCount = UBound(arrReplyData, 2) if Request.Querystring("REPLY_ID") <> "" and IsNumeric(Request.Querystring("REPLY_ID")) then LastPostReplyID = cLng(Request.Querystring("REPLY_ID")) for iReply = 0 to iReplyCount intReplyID = arrReplyData(0, iReply) if LastPostReplyID = intReplyID then intPageNumber = ((iReply+1)/strPageSize) exit for end if next else LastPostReplyID = cLng(arrReplyData(0, iReplyCount)) intPageNumber = ((iReplyCount+1)/strPageSize) end if if intPageNumber > cLng(intPageNumber) then intPageNumber = cLng(intPageNumber) + 1 end if strwhichpage = "whichpage=" & intPageNumber & "&" else strwhichpage = "" end if rsReplies.close set rsReplies = nothing my_Conn.close set my_Conn = nothing Response.Redirect "topic.asp?" & ArchiveLink & strwhichpage & "TOPIC_ID=" & Topic_ID & SearchLink & "&#" & LastPostReplyID Response.End 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 (Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then Response.write "


" & fLang(strLangTopic00010) & "
" & fLang(strLangTopic00020) & "

" & vbNewLine & _ "

" & fLang(strLangTopic00030) & "


" & vbNewLine WriteFooter Response.end elseif (AdminAllowed <> 1 and Topic_Status = 11 and Topic_Author <> MemberID) then Response.write "


" & fLang(strLangTopic00970) & "

" & vbNewLine & _ "

" & fLang(strLangTopic00030) & "


" & vbNewLine WriteFooter Response.end else Response.Write " " & vbNewLine '## Forum_SQL strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_DATE, M.M_LASTHEREDATE, M.M_AVATAR_URL" strSql = strSql & ", M.M_AWARD_TITLE, M.M_AWARD_POST, M.M_AWARD_IMAGE, M.M_AWARD_ENABLED" strSql = strSql & ", R.REPLY_ID, R.FORUM_ID, R.R_AUTHOR, R.TOPIC_ID, R.R_MESSAGE, R.R_LAST_EDIT" strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE, R.R_MSGICON" if CanShowSignature = 1 then strSql = strSql & ", M.M_SIG" end if strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R " strSql3 = " WHERE M.MEMBER_ID = R.R_AUTHOR " strSql3 = strSql3 & " AND R.TOPIC_ID = " & Topic_ID & " " if AdminAllowed = 1 or (Topic_Status = 11 and Topic_Author = MemberID) then SecretAllowed = 1 else SecretAllowed = 0 ' DEM --> if not a Moderator, all unapproved posts should not be viewed. if AdminAllowed = 0 then strSql3 = strSql3 & " AND (R.R_STATUS < " if Moderation = "Y" then ' Ignore unapproved/rejected posts strSql3 = strSql3 & "2" else ' Ignore any previously rejected topic strSql3 = strSql3 & "3" end if strSql3 = strSql3 & " OR R.R_AUTHOR = " & MemberID & ")" end if end if ' strSql4 = " ORDER BY R.R_DATE ASC" if sortorder = "2" then strSql4 = " ORDER BY R.R_DATE DESC" else if sortorder = "1" then strSql4 = " ORDER BY R.R_DATE DESC" else strSql4 = " ORDER BY R.R_DATE ASC" end if end if if strDBType = "mysql" then 'MySql specific code if mypage > 1 then intOffset = cLng((mypage-1) * strPageSize) strSql5 = " LIMIT " & intOffset & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(R.TOPIC_ID) AS REPLYCOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing if iPageTotal > 0 then 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 maxpages = 0 end if if iPageTotal > 0 then set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.Open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrReplyData = rsReplies.GetRows(intGetRows) iReplyCount = UBound(arrReplyData, 2) rsReplies.Close set rsReplies = nothing else iReplyCount = "" end if else 'end MySql specific code set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.cachesize = strPageSize rsReplies.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText if not (rsReplies.EOF or rsReplies.BOF) then rsReplies.pagesize = strPageSize rsReplies.absolutepage = mypage '** maxpages = cLng(rsReplies.pagecount) if maxpages >= mypage then arrReplyData = rsReplies.GetRows(strPageSize) iReplyCount = UBound(arrReplyData, 2) else iReplyCount = "" end if else '## No replies found in DB iReplyCount = "" end if rsReplies.Close set rsReplies = nothing end if Select Case Request.Form("Method_Type") Case "member_vote" if Request.Form("R1") = "" then Response.Write "

 

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangTopic00580) & "


" & fLang(strLangTopic00590) & "
" & vbNewLine & _ "

 

" & vbNewLine WriteFooter Response.End elseif strWhoVotes = "members" and MemberID = "-1" then Response.Write "

 

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangTopic00620) & "


" & fLang(strLangTopic00630) & "
" & vbNewLine & _ "

 

" & vbNewLine WriteFooter Response.End elseif Voted = true then Response.Write "

 

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangTopic00600) & "


" & fLang(strLangTopic00610) & "
" & vbNewLine & _ "

 

" & vbNewLine WriteFooter Response.End elseif trim(Request.Form("R1")) <> "" then if IsNumeric(Request.Form("R1")) = false then nNumber = -1 else nNumber = cLng(Request.Form("R1")) end if if nNumber <> -1 then '## Forum_SQL - strSql = "UPDATE " & strTablePrefix & "POLLS " strSql = strSql & " SET COUNT" & nNumber & " = COUNT" & nNumber & " +1" strSql = strSql & ", P_LASTVOTE = '" & DateToStr(strForumTimeAdjust) & "'" strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords Voted = true '## Forum_SQL - strSql = "SELECT " & strTablePrefix & "POLLS.P_LASTVOTE" For i = 1 To 15 strSql = strSql & ", " & strTablePrefix & "POLLS.ANSWER" & CStr(i) strSql = strSql & ", " & strTablePrefix & "POLLS.COUNT" & CStr(i) Next strSql = strSql & " FROM " & strTablePrefix & "POLLS" strSql = strSql & " WHERE " & strTablePrefix & "POLLS.TOPIC_ID = " & Topic_ID set rsPoll = Server.CreateObject("ADODB.Recordset") rsPoll.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText Last_Vote = rsPoll("P_LASTVOTE") For nCount = 1 to 15 vAnswers(nCount) = rsPoll("ANSWER" & CStr(nCount)) vCount(nCount) = rsPoll("COUNT" & CStr(nCount)) Next rsPoll.Close set rsPoll = nothing Call UpdateVote("0", MemberID, Topic_ID, Forum_ID, Cat_ID) end if end if Case "guest_vote" '# User is viewing results - no vote if strVResults = "0" and Voted <> true then Call UpdateVote("1", MemberID, Topic_ID, Forum_ID, Cat_ID) end if Case else if strVResults = "0" and Request.QueryString("results") = "1" and Voted = false then Response.Write "

 

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangTopic00640) & "


" & fLang(strLangTopic00650) & "
" & vbNewLine & _ "

 

" & vbNewLine WriteFooter Response.End end if End Select Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","align=""absmiddle""") if Cat_Status <> 0 then Response.Write getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") else Response.Write getCurrentIcon(strIconFolderClosed,"","align=""absmiddle""") end if Response.Write " " & ChkString(Cat_Name,"display") & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") if ArchiveView = "true" then Response.Write getCurrentIcon(strIconFolderArchived,"","align=""absmiddle""") else if Forum_Status <> 0 and Cat_Status <> 0 then Response.Write getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") else Response.Write getCurrentIcon(strIconFolderClosed,"","align=""absmiddle""") end if end if Response.Write " " & ChkString(Forum_Subject,"display") & "
" & vbNewLine if ArchiveView = "true" then Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderArchived,"","align=""absmiddle""") & " " elseif isevent="1" then Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconEvent,"","align=""absmiddle""") & " " & fLang(strLangCla00190) elseif Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " " else Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""") & " " end if if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(ChkString(Topic_Subject,"title")) else Response.Write ChkString(Topic_Subject,"title") end if Response.Write "
" & vbNewLine & _ "" & vbNewLine & _ "
" & vbNewLine Response.Write "" & vbNewLine if Archiveview = "true" then Response.Write "" & vbNewLine end if if Request("SearchTerms") <> "" then Response.Write "" & vbNewLine end if Response.Write "" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine select case intTopicAuth case 1 response.write "   " & fLang(strLangRestrictions00010) case 3 response.write "   " & fLang(strLangRestrictions00020) case 4 response.write "   " & fLang(strLangRestrictions00030) case else end select select case intReplyAuth case 1 response.write "
   " & fLang(strLangRestrictions00040) case 3 response.write "
   " & fLang(strLangRestrictions00050) case 4 response.write "
   " & fLang(strLangRestrictions00060) case else end select Response.write "
" & vbNewLine & _ "
" & vbNewLine if intTopicRating = "1" then if request("ARCHIVE")<> "true" then TopicRatingAvg = GetTopicRatingAvg( TopicID ) if intRatingAuth = 1 and Allow_Rating = 1 then if strDBNTUserName <> "" Then if ( getMemberID(strDBNTUserName) = Topic_Author ) then Response.Write "" & fLang(strLangTopic_Rating00040) & "  | " & fLang(strLangTopic_Rating00080) & " " if intShowRatingStars = "1" then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(TopicRatingAvg),"","") & "") else Response.Write("" & TopicRatingAvg & "") Response.Write "" & vbNewLine else iTopicRating = GetTopicRating( getMemberID(strDBNTUserName), TopicID ) if iTopicRating <> -1 Then Response.Write "" & fLang(strLangTopic_Rating00020) & " " if intShowRatingStars = 1 then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(iTopicRating),"","") & "") else Response.Write("" & iTopicRating & "") Response.Write " | " & fLang(strLangTopic_Rating00080) & " " if intShowRatingStars = "1" then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(TopicRatingAvg),"","") & "") else Response.Write("" & TopicRatingAvg & "") Response.Write "" & vbNewLine else Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " | " & fLang(strLangTopic_Rating00080) & " " if intShowRatingStars = 1 then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(TopicRatingAvg),"","") & "") else Response.Write("" & TopicRatingAvg & "") Response.Write "" & vbNewLine & _ "
" & vbNewLine end if end if end if else Response.Write "" & fLang(strLangTopic_Rating00090) & "" & vbNewLine end if else TopicRatingAvg = GetTopicRatingAvg( TopicID ) Response.Write "" & fLang(strLangTopic_Rating00100) & " " if intShowRatingStars = 1 then Response.Write("" & getCurrentIcon(GetTopicRatingPicture(TopicRatingAvg),"","") & "") else Response.Write("" & TopicRatingAvg & "") Response.Write "" & vbNewLine end if end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine %><% if maxpages > 1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if mypage > 1 then Response.Write("" & fLang(strLangTopic00060) & "") 'if mypage > 1 then Response.Write("" & fLang(strLangTopic00060) & "") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write("" & fLang(strLangTopic00080) & "") 'if mypage < maxpages then Response.Write("" & fLang(strLangTopic00080) & "") Response.Write "
" & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine Call PostingOptions() Response.Write "
" & vbNewLine Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if (AdminAllowed = 1) then if maxpages > 1 then Call DropDownPaging(1) Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if else if maxpages > 1 then Call DropDownPaging(1) else Response.Write " " & vbNewLine end if end if Response.Write " " & vbNewLine ' if mypage = 1 then if (sortorder <> "1") and mypage = 1 then Call GetFirst() end if '## Forum_SQL strSql = "UPDATE " & strActivePrefix & "TOPICS " strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) " strSql = strSql & " WHERE (TOPIC_ID = " & Topic_ID & ")" my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords Dim LenWhoViewed,Topic_WhoViewed,DoUpdate,TmpWhoViewed,UpdateTview,IDToDiscard if MemberID = 0 or IsNull(MemberID) or MemberID < 0 then 'dont update anything else DoUpdate = True strsql = "SELECT T.T_WHOVIEWED FROM " & strActivePrefix & "TOPICS T WHERE " strsql = strsql & "T.TOPIC_ID=" & Topic_ID set tviewRS = Server.CreateObject("ADODB.RecordSet") tviewRS.open strsql, my_conn, 3 Topic_WhoViewed = tviewRS("T_WHOVIEWED") tviewRS.close set tviewRS = nothing if IsNull(Topic_WhoViewed) or Topic_WhoViewed = "" or Topic_WhoViewed = "0" or Len(Trim(Topic_WhoViewed)) = 0 then UpdateTview = MemberID else LenWhoViewed = len(Topic_WhoViewed) arrWhoViewed = split(Topic_WhoViewed,",",-1,1) 'CHECK if the MemberID already Exists if IsArray(arrWhoViewed) then If Instr(1,Topic_WhoViewed, "," & MemberID & ",",1) > 0 or _ Trim(arrWhoViewed(lbound(arrWhoViewed))) = Trim(MemberID) or _ Trim(arrWhoViewed(ubound(arrWhoViewed))) = Trim(MemberID) then DoUpDate = false end if else if Trim(Topic_WhoViewed) = Trim(MemberID) then DoUpdate = false end if 'CHECK if Field is Full. If Full then discard the 'Oldest MemberID(FIFO) if DoUpdate = True then if (LenWhoViewed + len(MemberID) = 255) or _ (LenWhoViewed + len(MemberID) > 255) then 'Max Limit IDToDiscard = left(Topic_WhoViewed,(instr(len(MemberID),Topic_WhoViewed,",",1))) if IDToDiscard <> MemberID & "," then TmpWhoViewed = Replace (Topic_WhoViewed,IDToDiscard,"",1,1,1) Topic_WhoViewed = TmpWhoViewed DoUpdate = True else DoUpdate = false end if end if end if if DoUpDate = True then UpdateTview = Topic_WhoViewed & "," & MemberID end if end if 'UPDATE the Database if DOUpdate = true then strsql = "UPDATE " & strActivePrefix & "TOPICS " strsql = strsql & "SET " & strActivePrefix & "TOPICS.T_WHOVIEWED = '" & UpdateTview & "' WHERE " strsql = strsql & strActivePrefix & "TOPICS.TOPIC_ID = " & Topic_ID my_conn.execute(strsql) end if LenWhoViewed = "" end if if iReplyCount = "" then '## No replies found in DB ' Nothing else intI = 0 rM_NAME = 0 rM_RECEIVE_EMAIL = 1 rM_AIM = 2 rM_ICQ = 3 rM_MSN = 4 rM_YAHOO = 5 rM_PMRECEIVE = 6 rM_TITLE = 7 rMEMBER_ID = 8 rM_HOMEPAGE = 9 rM_LEVEL = 10 rM_POSTS = 11 rM_COUNTRY = 12 rM_DATE = 13 rM_LASTHEREDATE = 14 rM_AVATAR_URL = 15 rM_AWARD_TITLE = 16 rM_AWARD_POST = 17 rM_AWARD_IMAGE = 18 rM_AWARD_ENABLED = 19 rREPLY_ID = 20 rFORUM_ID = 21 rR_AUTHOR = 22 rTOPIC_ID = 23 rR_MESSAGE = 24 rR_LAST_EDIT = 25 rR_LAST_EDITBY = 26 rR_SIG = 27 rR_STATUS = 28 rR_DATE = 29 rR_MSGICON = 30 if CanShowSignature = 1 then rM_SIG = 31 end if for iForum = 0 to iReplyCount Reply_MemberName = arrReplyData(rM_NAME, iForum) Reply_MemberReceiveEmail = arrReplyData(rM_RECEIVE_EMAIL, iForum) Reply_MemberAIM = arrReplyData(rM_AIM, iForum) Reply_MemberICQ = arrReplyData(rM_ICQ, iForum) Reply_MemberMSN = arrReplyData(rM_MSN, iForum) Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum) Reply_MemberPM = arrReplyData(rM_PMRECEIVE, iForum) Reply_MemberTitle = arrReplyData(rM_TITLE, iForum) Reply_MemberID = arrReplyData(rMEMBER_ID, iForum) Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum) Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum) Reply_MemberPosts = arrReplyData(rM_POSTS, iForum) Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum) Reply_MemberDate = arrReplyData(rM_DATE, iForum) Reply_MemberLastHereDate = arrReplyData(rM_LASTHEREDATE, iForum) Reply_MemberAvatar = arrReplyData(rM_AVATAR_URL, iForum) Reply_MemberAwardTitle = arrReplyData(rM_AWARD_TITLE, iForum) Reply_MemberAwardPosts = arrReplyData(rM_AWARD_POST, iForum) Reply_MemberAwardImage = arrReplyData(rM_AWARD_IMAGE, iForum) Reply_MemberAwardEnabled = arrReplyData(rM_AWARD_ENABLED, iForum) Reply_ReplyID = arrReplyData(rREPLY_ID, iForum) Reply_ForumID = arrReplyData(rFORUM_ID, iForum) Reply_Author = arrReplyData(rR_AUTHOR, iForum) Reply_TopicID = arrReplyData(rTOPIC_ID, iForum) Reply_Content = arrReplyData(rR_MESSAGE, iForum) Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum) Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum) Reply_Sig = arrReplyData(rR_SIG, iForum) Reply_Status = arrReplyData(rR_STATUS, iForum) Reply_Date = arrReplyData(rR_DATE, iForum) Reply_MsgIcon = arrReplyData(rR_MSGICON, iForum) if CanShowSignature = 1 then Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum)) end if if intI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine intI = intI + 1 if intI = 2 then intI = 0 end if next end if if sortorder = "1" then Call GetFirst() end if Response.Write " " & vbNewLine if maxpages > 1 then Call DropDownPaging(2) else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if (AdminAllowed = 1) then if maxpages > 1 then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ "
" & fLang(strLangAuthor00010) & "" & vbNewLine if strShowTopicNav = "1" then Call Topic_nav() else Response.Write fLang(strLangHead_Topic00010) end if Response.Write "" & vbNewLine call AdminOptions() Response.Write " " & vbNewLine call AdminOptions() Response.Write "  
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "

" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "
" & vbNewLine if strShowRank = 1 or strShowRank = 3 then Response.Write " " & ChkString(getMember_Level(Reply_MemberTitle, Reply_MemberLevel, Reply_MemberPosts),"display") & "
" & vbNewLine end if if strShowRank = 2 or strShowRank = 3 then Response.Write " " & getStar_Level(Reply_MemberLevel, Reply_MemberPosts) & "
" & vbNewLine end if Response.Write "

" & vbNewLine & _ "

" & vbNewLine if intAllowAvatars = "1" then if Reply_MemberAvatar <> "noavatar.gif" then ' response.write"

" if (strMyAvatarLink + strMyAvatarTooltip) > 0 then Response.Write getMyAvatar(Reply_MemberAvatar,Reply_Author,Reply_MemberName,Reply_MemberHomepage) & "

" & vbNewLine else Response.Write "

" end if end if end if If strAdminOptOn = "1" Then If strAdminOptOnOffStatusPosts = "1" Then Dim strUserID strUserID = Reply_MemberID Set rsOnline = Server.CreateObject("ADODB.Recordset") strOnlineSql ="SELECT MEMBER_ID, AU_LOGINTIME" strOnlineSql = strOnlineSql & " FROM " & strTablePrefix & "ACTIVE_USERS" strOnlineSql = strOnlineSql & " WHERE MEMBER_ID = " & strUserID &" " strOnlineSql = strOnlineSql & " AND AU_LOGINTIME <> ''" Dim rsOnlineMember Set rsOnlineMember = my_Conn.Execute (strOnlineSql) If rsOnlineMember.EOF Or rsOnlineMember.BOF Then Response.Write " " & vbNewLine &_ " " & fLang(strLangTopic00890) & "" & vbNewLine &_ " " & vbNewLine &_ " " & vbNewLine &_ " " & fLang(strLangTopic00900) & "" & vbNewLine &_ " " else Response.Write " " & vbNewLine &_ " " & fLang(strLangTopic00890) & "" & vbNewLine &_ " " & vbNewLine &_ " " & vbNewLine &_ " " & fLang(strLangTopic00910) & "" & vbNewLine &_ " " end if set rsOnlineMember = nothing Else 'do nothing End If Else 'do nothing End If if intMemberRating = "1" then iReplyRating = GetMemberRatingAvg( Reply_Author ) if iReplyRating > 0 Then if strUseExtendedProfile then Response.Write "
" else Response.Write "
" end if Response.Write " " & fLang(strLangMember_Rating00110) & "
" & vbNewLine end if end If Response.Write "

1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine ' DEM --> Start of Code altered for moderation if Reply_Status < 2 then if intMessageIcons = "1" then 'if strUseBugForm = "1" and Reply_ForumID = cLng(intBugFormForum) then 'Response.Write " " & getCurrentIcon(strIconBugSmall,fLang(strLangBug00440),"hspace=""3""") & "" & fLang(strLangTopic00120) & " - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline 'else Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Reply_MsgIcon),"","hspace=""3""") & " " & fLang(strLangTopic00120) & " - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline 'end if else Response.Write " " & getCurrentIcon(strIconPosticon,"","hspace=""3""") & " " & fLang(strLangTopic00120) & " - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline end if elseif Reply_Status = 2 then Response.Write " " & fLang(strLangTopic00130) & "" & vbNewline elseif Reply_Status = 3 then Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "" & fLang(strLangTopic00140) & "" & vbNewline elseif Reply_Status = 11 then Response.Write " " & getCurrentIcon(strIconPosticonSecret,"","hspace=""3""") & " " & fLang(strLangTopic00980) & " - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline end if ' DEM --> End of Code added for moderation. Response.Write "  " & profileLink(getCurrentIcon(strIconProfile,fLang(strLangTopic00150),"align=""absmiddle"" hspace=""6"""),Reply_MemberID) & vbNewLine if (mlev >= 2) then Call chkPicReplies() end if if mLev > 2 or Reply_MemberReceiveEmail = "1" then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then Response.Write "  " & getCurrentIcon(strIconEmail,fLang(strLangTopic00160),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strHomepage = "1" then if Reply_MemberHomepage <> " " then Response.Write "  " & getCurrentIcon(strIconHomepage,fLangN(strLangTopic00170,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (AdminAllowed = 1 or Reply_MemberID = MemberID) then if (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) or (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconEditTopic,fLang(strLangTopic00180),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strAIM = "1") then if Trim(Reply_MemberAIM) <> "" then Response.Write "  " & getCurrentIcon(strIconAIM,fLangN(strLangTopic00190,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strICQ = "1" then if Trim(Reply_MemberICQ) <> "" then Response.Write "  " & getCurrentIcon(strIconICQ,fLangN(strLangTopic00200,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strMSN = "1") then if Trim(Reply_MemberMSN) <> "" then Response.Write "  " & getCurrentIcon(strIconMSNM,fLangN(strLangTopic00210,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strYAHOO = "1" then if Trim(Reply_MemberYAHOO) <> "" then Response.Write "  " & getCurrentIcon(strIconYahoo,fLangN(strLangTopic00220,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if If (Reply_MemberPM = "1" and strPMStatus = "1") Then if Trim(Reply_MemberPM) <> "" then Response.Write " " & getCurrentIcon(strIconPmprivatemessage,fLangN(strLangTopic00870,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""0""") & "" & vbNewLine End If End IF if intBuddyList = "1" then Response.Write "  " & getCurrentIcon(strIconAddBuddy,fLangN(strLangTopic01050,ChkString(Reply_MemberName,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1)) and ArchiveView = "" then if mLev >= intReplyAuth then Response.Write "  " & getCurrentIcon(strIconReplyTopic,fLang(strLangTopic00230),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strIPLogging = "1") then if (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconIP,fLang(strLangTopic00240),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (AdminAllowed = 1 or Reply_MemberID = MemberID) then if (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) or (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconDeleteReply,fLang(strLangTopic00250),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if AdminAllowed = 1 or mLev >= 3 then Response.Write "  " & getCurrentIcon(strIconMoveReply,fLang(strLangTopic01040),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if ' DEM --> Start of Code added for Full Moderation ' if (AdminAllowed = 1 and Reply_Status > 1) then if (AdminAllowed = 1 and Reply_Status > 1) and Reply_Status <> 11 then ReplyString = "REPLY_ID=" & Reply_ReplyID & "&CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID & "&TOPIC_ID=" & Topic_ID Response.Write "  " & getCurrentIcon(strIconFolderModerate,fLang(strLangTopic00260),"align=""absmiddle"" hspace=""6""") & "" & vbNewline else if strSecretTopic = "1" and Reply_Status = 11 and SecretAllowed = 1 then Response.Write "  " & getCurrentIcon(strIconQReplyTopicSecret,fLang(strLangTopic00990),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if ' DEM --> End of Code added for Full Moderation end if Response.Write "
1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if CanShowSignature = 1 and Reply_Sig = 1 and Reply_MemberSig <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strEditedByDate = "1" and Reply_LastEditBy <> "" then if Reply_LastEditBy <> Reply_Author then Reply_LastEditByName = getMemberName(Reply_LastEditBy) else Reply_LastEditByName = chkString(Reply_MemberName,"display") end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if intMemberAwards = "1" and Reply_MemberAwardPosts = "1" and Reply_MemberAwardEnabled = "1" then if Reply_MemberAwardImage = "1" then AwardIcon = "gold" elseif Reply_MemberAwardImage = "2" then AwardIcon = "silver" elseif Reply_MemberAwardImage = "3" then AwardIcon = "bronze" end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Reply_Content)) else Response.Write formatStr(Reply_Content) end if Response.Write "

" & formatStr(Reply_MemberSig) & "

" & fLangN(strLangTopic00310,Reply_LastEditByName & "|" & chkDate(Reply_LastEdit, " " ,true)) & "

 " & Reply_MemberAwardTitle & "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if strCountry = "1" and trim(Reply_MemberCountry) <> "" then Response.Write "  " & fLang(strLangCountry00010) & " " & Reply_MemberCountry & "  ~" & vbNewLine end if Response.Write "  " & fLang(strLangTopic00110)& " " & Reply_MemberPosts & "  ~" & vbNewLine Response.Write "  " & fLang(strLangTopic00850) & " " & ChkDate(Reply_MemberDate,"",false) & "  ~" & vbNewLine Response.Write "  " & fLang(strLangTopic00860) & " " & ChkDate(Reply_MemberLastHereDate,"",false) & "" & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & fLang(strLangAlert_Moderator00010) & " " & vbNewLine Response.write"" & getCurrentIcon(strIconGoUp,fLang(strLangGo_Top_Page00010),"hspace""0""") & "" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
  1 and (AdminAllowed = 1) then Response.Write(" colspan=""2""") Response.Write ">" & vbNewLine if strShowTopicNav = "1" then Call Topic_nav() else Response.Write fLang(strLangHead_Topic00010) end if Response.Write " " & vbNewLine call AdminOptions() Response.Write " 
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine Call PostingOptions() Response.Write "
" & vbNewLine if maxpages > 1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if mypage > 1 then Response.Write("" & fLang(strLangTopic00060) & "") 'if mypage > 1 then Response.Write("" & fLang(strLangTopic00060) & "") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write("" & fLang(strLangTopic00080) & "") 'if mypage < maxpages then Response.Write("" & fLang(strLangTopic00080) & "") Response.Write "
" & vbNewLine end if if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then call QuickReply() end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write "" & vbNewLine & _ " " & vbNewLine End Sub sub PostingOptions() Response.Write " " & vbNewLine if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then if mlev >= intTopicAuth then if ((Cat_Status = 1) and (Forum_Status = 1)) then if intShowEvents = "1" then if mlev >= intAllowedtoPostEvent then Response.Write " " & getCurrentIcon(strIconEvent,fLang(strLangCla00150),"align=""absmiddle""") & " " & fLang(strLangCla00150) & " |" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & " " & fLang(strLangNew_Topic00010) & " |" & vbNewLine if strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) then Response.Write "" & getCurrentIcon(strIconPoll,fLang(strLangNew_Poll00010),"align=""absmiddle""") & " " & fLang(strLangNew_Poll00010) & " |" & vbNewLine end if else if (AdminAllowed = 1) then if intShowEvents = "1" then if mlev >= intAllowedtoPostEvent then Response.Write " " & getCurrentIcon(strIconEvent,fLang(strLangCla00150),"align=""absmiddle""") & " " & fLang(strLangCla00140) & " |" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " " & fLang(strLangNew_Topic00010) & " |" & vbNewLine Response.Write " " & getCurrentIcon(strIconPoll,fLang(strLangNew_Poll00010),"align=""absmiddle""") & " " & fLang(strLangNew_Poll00010) & " |" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " " & fLang(strLangForum_Locked00010) & " |" & vbNewLine end if end if end if if mlev >= intReplyAuth then if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & " " & fLang(strLangReply_to_Topic00010) & " |" & vbNewLine elseif strSecretTopic = "1" and Topic_Status = 11 and SecretAllowed = 1 then Response.Write " " & getCurrentIcon(strIconReplyTopicSecret,"","align=""absmiddle""") & " " & fLang(strLangTopic01000) & " |" & vbNewLine else if ((AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "") then Response.Write " " ' DEM --> Added if statement to show normal icon for unmoderated posts. if Topic_Status = 1 and Cat_Status <> 0 and Forum_Status <> 0 then Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & " " else Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " " end if Response.Write "" & fLang(strLangReply_to_Topic00010) & " |" & vbNewLine else if Topic_Status = 0 then Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " " & fLang(strLangTopic00350) & " |" & vbNewline end if end if end if end if if lcase(strEmail) = "1" and Topic_Status < 2 then if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 and mLev > 0 then if strSubscription > 0 and Cat_Subscription > 0 and Forum_Subscription > 0 then if InArray(strTopicSubs, Topic_ID) then Response.Write " " & ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "Y") & " |" & vbNewLine 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, "Y") & " |" & vbNewLine end if end if end if if ((mlev <> 0) or (mlev = 0 and strLogonForMail <> "1")) and lcase(strShowSendToFriend) = "1" then if strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) then Response.Write " " & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & " " & fLang(strLangTopic00360) & " |" & vbNewLine else Response.Write " " & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & " " & fLang(strLangTopic00360) & " |" & vbNewLine end if end if 'end if if intBookmark = "1" then Response.Write " " & getCurrentIcon(strIconBookMark,fLang(strLangBookmarks00010),"align=""absmiddle""") & " " & fLang(strLangBookmarks00020) & " |" & vbNewLine end if end if if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then Response.Write " " & getCurrentIcon(strIconPrint,"","align=""absmiddle""") & " " & fLang(strLangTopic00370) & "" & vbNewLine end if end if Response.Write " " end sub sub AdminOptions() Response.Write " " & vbNewLine if (AdminAllowed = 1) 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(strIconFolderUnlocked,fLang(strLangCategory_Locked00010),"") & vbNewLine end if else if (Forum_Status = 0) then Response.Write " " & getCurrentIcon(strIconFolderUnlocked,fLang(strLangUnLock_Forum00010),"") & "" & vbNewLine else if (Topic_Status <> 0) then Response.Write " " & getCurrentIcon(strIconFolderLocked,fLang(strLangLock_Topic00010),"") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,fLang(strLangUnLock_Topic00010),"") & "" & vbNewLine end if end if end if if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then Response.Write " " & getCurrentIcon(strIconFolderPencil,fLang(strLangEdit_Topic00010),"hspace=""0""") & "" & vbNewLine end if Response.Write " " & getCurrentIcon(strIconFolderDelete,fLang(strLangDelete_Topic00010),"") & "" & vbNewLine & _ " " & getCurrentIcon(strIconFolderNewTopic,fLang(strLangNew_Topic00010),"") & "" & vbNewLine if Topic_Status <= 1 and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,fLang(strLangReply_to_Topic00010),"") & "" & vbNewLine end if end if ' DEM --> Start of Code added for Full Moderation if (AdminAllowed = 1 and CheckForUnModeratedPosts("TOPIC", Cat_ID, Forum_ID, Topic_ID) > 0) then TopicString = "TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "&REPLY_ID=X" Response.Write " " & getCurrentIcon(strIconFolderModerate,fLang(strLangTopic00430),"") & "" & vbNewline end if ' DEM --> End of Code added for Full Moderation Response.Write " " 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) end if top = "0" end sub Sub Topic_nav() if prevTopic = "" then strSQL = "SELECT T_SUBJECT, TOPIC_ID " strSql = strSql & "FROM " & strActivePrefix & "TOPICS " strSql = strSql & "WHERE T_LAST_POST > '" & Topic_LastPost strSql = strSql & "' AND FORUM_ID = " & Forum_ID strSql = strSql & " AND T_STATUS < 2" ' Ignore unapproved/held posts strSql = strSql & " ORDER BY T_LAST_POST;" set rsPrevTopic = my_conn.Execute(TopSQL(strSql,1)) if rsPrevTopic.EOF then prevTopic = getCurrentIcon(strIconBlank,"","align=""top"" hspace=""6""") else prevTopic = "" & getCurrentIcon(strIconGoLeft,"" & fLang(strLangTopic00460) & ": " & chkString(rsPrevTopic("T_SUBJECT"),"imagetag") & "","align=""top"" hspace=""6""") & "" end if rsPrevTopic.close set rsPrevTopic = nothing else prevTopic = prevTopic end if if NextTopic = "" then strSQL = "SELECT T_SUBJECT, TOPIC_ID " strSql = strSql & "FROM " & strActivePrefix & "TOPICS " strSql = strSql & "WHERE T_LAST_POST < '" & Topic_LastPost strSql = strSql & "' AND FORUM_ID = " & Forum_ID strSql = strSql & " AND T_STATUS < 2" ' Ignore unapproved/held posts strSql = strSql & " ORDER BY T_LAST_POST DESC;" set rsNextTopic = my_conn.Execute(TopSQL(strSql,1)) if rsNextTopic.EOF then nextTopic = getCurrentIcon(strIconBlank,"","align=""top"" hspace=""6""") else nextTopic = "" & getCurrentIcon(strIconGoRight,"" & fLang(strLangTopic00470) & ": " & chkString(rsNextTopic("T_SUBJECT"),"imagetag") & "","align=""top"" hspace=""6""") & "" end if rsNextTopic.close set rsNextTopic = nothing else nextTopic = nextTopic end if Response.Write (" " & prevTopic & " " & fLang(strLangHead_Topic00010) & " " & nextTopic) end sub function SearchHiLite(fStrMessage) 'function derived from HiLiTeR by 2eNetWorX fArr = split(replace(Request.QueryString("SearchTerms"),";",""), ",") strBuffer = "" for iPos = 1 to len(fStrMessage) bChange = False 'Looks for html tags if mid(fStrMessage, iPos, 1) = "<" then bInHTML = True end if 'Looks for End of html tags if bInHTML = True then if mid(fStrMessage, iPos, 1) = ">" then bInHTML = False end if end if if bInHTML <> True then for i = 0 to UBound(fArr) if fArr(i) <> "" then if lcase(mid(fStrMessage, iPos, len(fArr(i)))) = lcase(fArr(i)) then bChange = True strBuffer = strBuffer & "" & _ mid(fStrMessage, iPos, len(fArr(i))) & "" iPos = iPos + len(fArr(i)) - 1 end if end if next end if if Not bChange then strBuffer = strBuffer & mid(fStrMessage, iPos, 1) end if next SearchHiLite = strBuffer end function Sub QuickReply() if mlev >= intReplyAuth then '--Update-- if isReadOnly(Forum_ID,MemberID) = 0 then '--End Update-- intSigDefault = getSigDefault(MemberID) Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine %> <% Response.Write "
" & vbNewLine WriteFooter Response.End end if sub GetFirst() CColor = strForumFirstCellColor Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "

" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "
" & vbNewLine if strShowRank = 1 or strShowRank = 3 then Response.Write " " & ChkString(getMember_Level(Member_Title, Member_Level, Member_Posts),"display") & "
" & vbNewLine end if if strShowRank = 2 or strShowRank = 3 then Response.Write " " & getStar_Level(Member_Level, Member_Posts) & "
" & vbNewLine end if Response.Write "

" & vbNewLine & _ "

" & vbNewLine if intAllowAvatars = "1" then if Member_Avatar <> "noavatar.gif" then ' response.write"

" if (strMyAvatarLink + strMyAvatarTooltip) > 0 then Response.Write getMyAvatar(Member_Avatar,TMember_ID,Member_Name,Member_Homepage) & "

" & vbNewLine else Response.Write "

" end if end if end if If strAdminOptOn = "1" Then If strAdminOptOnOffStatusPosts = "1" Then Dim strUserID strUserID = TMember_ID Set rsOnline = Server.CreateObject("ADODB.Recordset") strOnlineSql ="SELECT MEMBER_ID, AU_LOGINTIME" strOnlineSql = strOnlineSql & " FROM " & strTablePrefix & "ACTIVE_USERS" strOnlineSql = strOnlineSql & " WHERE MEMBER_ID = " & strUserID &" " strOnlineSql = strOnlineSql & " AND AU_LOGINTIME <> ''" Dim rsOnlineMember Set rsOnlineMember = my_Conn.Execute (strOnlineSql) If rsOnlineMember.EOF Or rsOnlineMember.BOF Then Response.Write " " & vbNewLine &_ " " & fLang(strLangTopic00890) & "" & vbNewLine &_ " " & vbNewLine &_ " " & vbNewLine &_ " " & fLang(strLangTopic00900) & "" & vbNewLine &_ " " else Response.Write " " & vbNewLine &_ " " & fLang(strLangTopic00890) & "" & vbNewLine &_ " " & vbNewLine &_ " " & vbNewLine &_ " " & fLang(strLangTopic00910) & "" & vbNewLine &_ " " end if Set rsOnlineMember = nothing Else 'do nothing End If Else 'do nothing End If if intMemberRating = "1" then iReplyRating = GetMemberRatingAvg( TMember_ID ) if iReplyRating > 0 Then if strUseExtendedProfile then Response.Write "
" else Response.Write "
" end if Response.Write " " & fLang(strLangMember_Rating00110) & "
" & vbNewLine end if end If Response.Write "

1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine if Topic_Status < 2 then if intMessageIcons = "1" then if strUseBugForm = "1" and Forum_ID = cLng(intBugFormForum) then Response.Write " " & getCurrentIcon(strIconBugSmall,fLang(strLangBug00440),"hspace=""3""") & " " & fLang(strLangTopic00120) & " - " & ChkDate(Topic_Date, " : " ,true) & "" & vbNewline else Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""3""") & " " & fLang(strLangTopic00120) & " - " & ChkDate(Topic_Date, " : " ,true) & "" & vbNewline end if else Response.Write " " & getCurrentIcon(strIconPosticon,"","hspace=""3""") & " " & fLang(strLangTopic00120) & " - " & ChkDate(Topic_Date, " : " ,true) & "" & vbNewline end if elseif Topic_Status = 2 then Response.Write " " & fLang(strLangTopic00130) & "" & vbNewline elseif Topic_Status = 3 then Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "" & fLang(strLangTopic00140) & "" & vbNewline elseif Topic_Status = 11 then Response.Write " " & getCurrentIcon(strIconPosticonSecret,"","hspace=""3""") & " " & fLang(strLangTopic00980) & " - " & ChkDate(Topic_Date, " : " ,true) & "" & vbNewline end if Response.Write "  " & profileLink(getCurrentIcon(strIconProfile,fLang(strLangTopic00150),"align=""absmiddle"" hspace=""6"""),TMember_ID) & vbNewLine if (mlev >= 2) then Call chkPicTopics() end if if mLev > 2 or Member_ReceiveMail = "1" then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then Response.Write "  " & getCurrentIcon(strIconEmail,fLang(strLangTopic00160),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strHomepage = "1") then if Member_Homepage <> " " then Response.Write "  " & getCurrentIcon(strIconHomepage,fLangN(strLangTopic00170,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if IsPoll = 1 and trim(strFeaturedPollID) = Topic_ID and AdminAllowed <> 1 then ' Do nothing elseif IsPoll = 1 then if (AdminAllowed = 1 or TMember_ID = MemberID) then if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconEditTopic,fLang(strLangTopic00660),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if else if (AdminAllowed = 1 or TMember_ID = MemberID) then if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconEditTopic,fLang(strLangEdit_Topic00010),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if end if if (strAIM = "1") then if Trim(Member_AIM) <> "" then Response.Write "  " & getCurrentIcon(strIconAIM,fLangN(strLangTopic00190,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strICQ = "1") then if Trim(Member_ICQ) <> "" then Response.Write "  " & getCurrentIcon(strIconICQ,fLangN(strLangTopic00200,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strMSN = "1") then if Trim(Member_MSN) <> "" then Response.Write "  " & getCurrentIcon(strIconMSNM,fLangN(strLangTopic00210,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strYAHOO = "1") then if Trim(Member_YAHOO) <> "" then Response.Write "  " & getCurrentIcon(strIconYahoo,fLangN(strLangTopic00220,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if If (Member_PM = "1" and strPMStatus = "1") Then if Trim(Member_PM) <> "" then Response.Write " " & getCurrentIcon(strIconPmprivatemessage,fLangN(strLangTopic00870,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""0""") & "" & vbNewLine End If End IF if intBuddyList = "1" then Response.Write "  " & getCurrentIcon(strIconAddBuddy,fLangN(strLangTopic01050,ChkString(Member_Name,"display")),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "" ) then if mLev >= intReplyAuth then Response.Write "  " & getCurrentIcon(strIconReplyTopic,fLang(strLangTopic00230),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strIPLogging = "1") then if (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconIP,fLang(strLangTopic00240),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (AdminAllowed = 1) or (TMember_ID = MemberID and Topic_Replies < 1) then Response.Write "  " & getCurrentIcon(strIconDeleteReply,fLang(strLangDelete_Topic00010),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if ' DEM --> Start of Code added for Full Moderation ' if (AdminAllowed = 1 and Topic_Status > 1) then if (AdminAllowed = 1 and Topic_Status > 1) and Topic_Status <> 11 then TopicString = "TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID Response.Write "  " & getCurrentIcon(strIconFolderModerate,fLang(strLangApproveHoldReject_Topic00010),"align=""absmiddle"" hspace=""6""") & "" & vbNewline else if strSecretTopic = "1" and Topic_Status = 11 and SecretAllowed = 1 then Response.Write "  " & getCurrentIcon(strIconQReplyTopicSecret,fLang(strLangTopic00990),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if End if ' End of Code added for Full Moderation Response.Write "
1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if intShowEventsSignUp = "1" then 'if isevent = "False" then if isevent > "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if CanShowSignature = 1 and Topic_Sig = 1 and Topic_MemberSig <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strEditedByDate = "1" and Topic_LastEditBy <> "" then if Topic_LastEditBy <> Topic_Author then Topic_LastEditByName = getMemberName(Topic_LastEditBy) else Topic_LastEditByName = chkString(Member_Name,"display") end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if intMemberAwards = "1" and Member_AwardPosts = "1" and Member_AwardEnabled = "1" then if Member_AwardImage = "1" then AwardTIcon = "gold" elseif Member_AwardImage = "2" then AwardTIcon = "silver" elseif Member_AwardImage = "3" then AwardTIcon = "bronze" end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if IsPoll = 1 then if Voted = false and Request.QueryString("results") <> "1" and Poll_Status = 1 and Forum_Polls <> "0" then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangTopic00670) & "
" & vbNewLine & _ " " & vbNewLine if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Topic_Message)) else Response.Write formatStr(Topic_Message) end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if IsPoll = 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ "
" & vbNewLine & _ "
" & fLang(strLangTopic00680) & "

" & vbNewLine for nCount = 1 To 15 if trim(vAnswers(nCount)) <> "" then Response.Write " " & formatStr(vAnswers(nCount)) & "
" & vbNewLine end if next Response.Write "

" & vbNewLine if strGfxButtons <> "0" then Response.Write "" & vbNewLine & _ "" & vbNewLine else Response.Write "" & vbNewLine & _ "" & vbNewLine end if if strVResults = "0" then Response.Write "(" & fLang(strLangTopic00720) & ")" & vbNewLine end if Response.Write " " & vbNewLine & _ "
" & vbNewLine if strWhoVotes = "members" and mlev = 0 then Response.Write "
" & vbNewLine & _ " " & fLangN(strLangTopic00730, ""& "|" & "") & "" & vbNewLine end if Response.Write "
" & vbNewLine end if else Response.Write " " if isevent="1" then Response.Write "
" & vbnewline DrawMonth dateHolder, 1, 0, 1 Response.Write "
" & vbnewline & _ "" & ChkString(Topic_Subject,"title") & "
" & vbnewline & _ FormatDateTime(dateHolder, vbLongDate) & "


" & vbnewline end if if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Topic_Message)) else Response.Write formatStr(Topic_Message) end if Response.Write "
" & vbNewLine end if if IsPoll = 1 then if Request.QueryString("results") = "1" or _ (Request.QueryString("results") <> "1" and Voted = true) or Poll_Status = 0 or Forum_Polls = "0" then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine 'First of all get max value and nLowValue nMaxValue = 0 for nCount = 1 to 15 if trim(vAnswers(nCount)) <> "" and vCount(nCount) > nMaxValue then nMaxValue = vCount(nCount) end if next if nMaxValue = 0 then nMaxValue = 1 end if nMaxWidth = 200 'This is number of pixels for maxvalue nTotal = 0 nTotal2 = 0 '1. Go through all and get total for nCount = 1 to 15 if trim(vAnswers(nCount)) <> "" then nTotal = nTotal + vCount(nCount) nTotal2 = nTotal2 + vCount(nCount) end if next if nTotal2 = 0 then nTotal2 = 1 end if '2. Go through all and get percent for nCount = 1 to 15 if trim(vAnswers(nCount)) <> "" then vPercent(nCount) = FormatNumber(vCount(nCount)/nTotal2*100,0) end if next for nCount = 1 to 15 if trim(vAnswers(nCount)) <> "" then nThisVal = FormatNumber(vCount(nCount)/nMaxValue * nMaxWidth,0) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if next Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangTopic00670) & "
" & vbNewLine & _ " " & vbNewLine if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Topic_Message)) else Response.Write formatStr(Topic_Message) end if Response.Write "

" & vbNewLine & _ "
" & fLang(strLangTopic00740) & "
" & formatStr(vAnswers(nCount)) & "  [" & vPercent(nCount) & "%]" & vCount(nCount) & fLang(strLangTopic00750) & "

" & vbNewLine & _ "
" & vbNewLine & _ " "true" then Response.Write " cellPadding=""3""" else Response.Write " cellPadding=""0""" end if Response.Write " border=""0"">" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if AdminAllowed = 1 and ArchiveView <> "true" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write "
" & vbNewLine & _ " " & fLang(strLangTopic00760) & " " & vbNewLine if Poll_Status = 0 or Forum_Polls = "0" then Response.Write fLang(strLangLocked00010) else Response.Write fLang(strLangTopic00780) end if Response.Write "  »»  " & vbNewLine & _ " " & fLangN(strLangTopic00790,nTotal) & "  »»  " & vbNewLine & _ " " & fLang(strLangTopic00800) & " " & vbNewLine if cint(nTotal) > 0 then Response.Write(chkDate(Last_Vote, " ", true)) else Response.Write fLang(strLangActive_Polls00360) Response.Write " 
" & fLang(strLangTopic00810) & " " & fLang(strLangTopic00820) & "
" & vbNewLine & _ "
" & vbNewLine end if end if Response.Write "

" & fLang(strLangTopic01060) & "
" & strForumURL & "eventlist.asp?Event=" & TopicID & "&B1=Submit

" & formatStr(Topic_MemberSig) & "

" & fLangN(strLangTopic00310,Topic_LastEditByName & "|" & chkDate(Topic_LastEdit, " ", true)) & "

 " & Member_AwardTitle & "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if strCountry = "1" and trim(Member_Country) <> "" then Response.Write "  " & fLang(strLangCountry00010) & " " & Member_Country & "  ~" & vbNewLine end if Response.Write "  " & fLang(strLangTopic00110) & " " & Member_Posts & "  ~" & vbNewLine Response.Write "  " & fLang(strLangTopic00850) & " " & ChkDate(Member_MemberDate,"",false) & "  ~" & vbNewLine Response.Write "  " & fLang(strLangTopic00860) & " " & ChkDate(Member_MemberLastHereDate,"",false) & "" & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & fLang(strLangAlert_Moderator00010) & " " & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine) if Archiveview = "true" then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & fLang(strLangTopic00440) & " " & fLangN(strLangOf00010,maxpages) & "" & vbNewLine) ' if cLng(sortorder) > 0 then Response.Write(" " & vbNewLine) if Request.QueryString("SearchTerms") <> "" then Response.Write(" " & vbNewLine) Response.Write("
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine ' " " & vbNewLine & _ Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & getCurrentIcon(strIconPlus,fLang(strLangTopic01100),"") & " " & fLang(strLangTopic00480) & " " & getCurrentIcon(strIconMinus,fLang(strLangTopic01110),"") & "" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ Response.Write "" & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangTopic00490) & " 
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if strAllowHTML = "1" then Response.Write fLang(strLangTopic00500) else Response.Write fLang(strLangTopic00510) end if if strAllowForumCode = "1" then Response.Write fLangN(strLangTopic00520, "" & "|" & "") else Response.Write fLang(strLangTopic00530) end if if strSignatures = "1" then Response.Write "

" & vbNewLine end if Response.Write "
" & vbNewLine & _ "
  
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if intMessageIcons = "1" then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangInc_Messageicons00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strMessageIcon1,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon2,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon3,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon4,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon5,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon6,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon7,"","align=""absmiddle"" hspace=""1""") Response.Write "
" & vbNewLine Response.Write " " & getCurrentIcon(strMessageIcon8,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon9,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon10,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon11,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon12,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon13,"","align=""absmiddle"" hspace=""1""") Response.Write " " & getCurrentIcon(strMessageIcon14,"","align=""absmiddle"" hspace=""1""") Response.Write "
" & fLang(strLangPop_Profile00010) & " " & fLang(strLangTopic00920) & "
" & vbNewLine & _ "
 " 'Response.Write " 
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end if end if end sub sub chkPicTopics() if strPicture = "1" then set rs1 = Server.CreateObject("ADODB.Recordset") strSql = "SELECT COUNT(" & strMemberTablePrefix & "USERPHOTO.PHOTOID) AS Cnt " strSql = strSql & " FROM " & strMemberTablePrefix & "USERPHOTO" strSql = strSql & " WHERE " & strMemberTablePrefix & "USERPHOTO.MEMBER_ID = " & TMember_ID strSql = strSql & " GROUP BY " & strMemberTablePrefix & "USERPHOTO.MEMBER_ID" rs1.Open strSql, my_Conn if rs1.EOF or rs1.BOF then Cnt = 0 else Cnt = 1 end if rs1.Close set rs1 = nothing if Cnt = 1 then pathSql = "SELECT M.M_VALUE" pathSql = pathSql & " FROM " & strTablePrefix & "MODS M" pathSql = pathSql & " WHERE M.M_CODE = 'photo'" set rsPath = my_Conn.Execute(pathSql) strPath = rsPath("M_VALUE") rsPath.Close set rsPath = nothing Response.Write " " & vbNewLine & _ getCurrentIcon(strIconPhoto,fLangN(strLangPhoto_Gallery00370,Member_Name),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if end sub sub chkPicReplies() if strPicture = "1" then set rs1 = Server.CreateObject("ADODB.Recordset") strSql = "SELECT COUNT(" & strMemberTablePrefix & "USERPHOTO.PHOTOID) AS Cnt " strSql = strSql & " FROM " & strMemberTablePrefix & "USERPHOTO" strSql = strSql & " WHERE " & strMemberTablePrefix & "USERPHOTO.MEMBER_ID = " & Reply_MemberID strSql = strSql & " GROUP BY " & strMemberTablePrefix & "USERPHOTO.MEMBER_ID" rs1.Open strSql, my_Conn if rs1.EOF or rs1.BOF then Cnt = 0 else Cnt = 1 end if rs1.Close set rs1 = nothing if Cnt = 1 then pathSql = "SELECT M.M_VALUE" pathSql = pathSql & " FROM " & strTablePrefix & "MODS M" pathSql = pathSql & " WHERE M.M_CODE = 'photo'" set rsPath = my_Conn.Execute(pathSql) strPath = rsPath("M_VALUE") rsPath.Close set rsPath = nothing Response.Write " " & vbNewLine & _ getCurrentIcon(strIconPhoto,fLangN(strLangPhoto_Gallery00370,Reply_MemberName),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if end sub function getMyAvatar(fAvatarURL, fMemID, fMemName, fMemHomepage) dim alink : alink = "" dim atooltip : atooltip = "" dim astatus : astatus = "" select case strMyAvatarLink case 0 '## feature off alink = "" case 1 '## user's profile if strUseExtendedProfile then alink = "" else alink = "" end if astatus = fLangN(strLangInc_Func_Common00120,fMemName) case 2 '## user's homepage if Len(fMemHomepage) > 10 and InStr(fMemHomepage,"http://") > 0 then alink = "" astatus = fLangN(strLangTopic00930,fMemName) else alink = "" end if case 3 '## homepage/profile if Len(fMemHomepage) > 10 and InStr(fMemHomepage,"http://") > 0 then alink = "" astatus = fLangN(strLangTopic00930,fMemName) else if strUseExtendedProfile then alink = "" else alink = "" end if astatus = fLangN(strLangInc_Func_Common00120,fMemName) end if case 4 '## my avatars list show alink = "" astatus = fLang(strLangTopic00950) case 5 '## avatars legend alink = "" astatus = fLang(strLangTopic00960) case else alink = "" end select if strMyAvatarTooltip > 0 then strSql = "SELECT A_NAME, A_NAME_USER FROM " & strTablePrefix & "AVATAR " strSql = strSql & " WHERE A_URL = '" & fAvatarURL & "'" set rsav = my_Conn.Execute(strSql) if Not(rsav.BOF or rsav.EOF) then avatar_defaultname = ChkString(rsav("A_NAME"),"display") avatar_username = ChkString(rsav("A_NAME_USER"),"display") avatar_defaultname = Replace(avatar_defaultname, """", """) avatar_username = Replace(avatar_username, """", """) end if rsav.close set rsav = nothing end if select case strMyAvatarTooltip case 0 '## feature off atooltip = "" case 1 '## default name atooltip = avatar_defaultname case 2 '## user defined name atooltip = avatar_username case 3 '## user/default name if trim(avatar_username) <> "" then atooltip = avatar_username else atooltip = avatar_defaultname end if case else atooltip = "" end select getMyAvatar = "" if strMyAvatarLink > 0 and trim(alink) <> "" then getMyAvatar = getMyAvatar & alink getMyAvatar = getMyAvatar & " 0 and trim(atooltip) <> "" then getMyAvatar = getMyAvatar & " alt=""" & atooltip & """" if strMyAvatarLink > 0 and trim(astatus) <> "" then getMyAvatar = getMyAvatar & dWStatus(astatus) getMyAvatar = getMyAvatar & ">" if strMyAvatarLink > 0 and trim(alink) <> "" then getMyAvatar = getMyAvatar & "" end function function intTopicHeight() intTopicHeight = 0 if strShowRank = 1 or strShowRank = 3 then intTopicHeight = intTopicHeight + 20 if strShowRank = 2 or strShowRank = 3 then intTopicHeight = intTopicHeight + 20 if intAllowAvatars = "1" then if Member_Avatar <> "noavatar.gif" then if (strMyAvatarLink + strMyAvatarTooltip) > 0 then intTopicHeight = intTopicHeight + 100 else intTopicHeight = intTopicHeight + 100 end if end if end if if strAdminOptOn = "1" and strAdminOptOnOffStatusPosts = "1" then intTopicHeight = intTopicHeight + 20 if intMemberRating = "1" then iReplyRating = GetMemberRatingAvg( TMember_ID ) if iReplyRating > 0 then intTopicHeight = intTopicHeight + 40 end if end function function intRepliesHeight() intRepliesHeight = 0 if strShowRank = 1 or strShowRank = 3 then intRepliesHeight = intRepliesHeight + 20 if strShowRank = 2 or strShowRank = 3 then intRepliesHeight = intRepliesHeight + 20 if intAllowAvatars = "1" then if Reply_MemberAvatar <> "noavatar.gif" then if (strMyAvatarLink + strMyAvatarTooltip) > 0 then intRepliesHeight = intRepliesHeight + 100 else intRepliesHeight = intRepliesHeight + 100 end if end if end if if strAdminOptOn = "1" and strAdminOptOnOffStatusPosts = "1" then intRepliesHeight = intRepliesHeight + 20 if intMemberRating = "1" then iReplyRating = GetMemberRatingAvg( Reply_Author ) if iReplyRating > 0 then intRepliesHeight = intRepliesHeight + 40 end if end function %>