<% strQueryString = Request.QueryString scriptname = split(request.servervariables("SCRIPT_NAME"),"/") strScript = scriptname(ubound(scriptname)) strRedirect = "http://www.orientbeachadultforum.com/" & strScript If Len(Trim(strQueryString)) Then strRedirect = strRedirect & "?" & StrQueryString End If Response.Status="301 Moved Permanently" Response.AddHeader "Location", strRedirect Response.End %> <% '################################################################################# '## 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 '################################################################################# %> <% 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 '###### Poll Mod ###### 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&" 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 '##### Post Sort Mod 1-1 - add below 7 lines sortorder = request("SortChoice") if sortorder <> "" then mypage = 1 else sortorder = request("sort") end if if cLng(sortorder) > 0 then SearchLink = SearchLink & "&sort=" & sortorder '########## Post Sort Mod ########## 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_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, 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" & _ ", 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, T.T_MSGICON, T.T_MESSAGE" 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_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_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") 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") Topic_MsgIcon = rsTopic("T_MSGICON") Topic_Message = rsTopic("T_MESSAGE") if CanShowSignature = 1 then Topic_MemberSig = trim(rsTopic("M_SIG")) end if '############## Poll Mod ################## 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&" & Request.QueryString) else Response.Redirect("default.asp") end if end if '################ Poll Mod ############## 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 strModeration > 0 and Cat_Moderation > 0 and Forum_Moderation > 0 and AdminAllowed = 0 then Moderation = "Y" else Moderation = "N" end if if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then strSql1 = "SELECT REPLY_ID " strSql2 = "FROM " & strActivePrefix & "REPLY " strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " " ' DEM --> if not a Moderator, all unapproved posts should not be viewed. if AdminAllowed = 0 then strSql3 = strSql3 & "AND (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_AUTHOR = " & MemberID & ") " end if strSql4 = "ORDER BY R_DATE ASC " if strDBType = "mysql" then set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsReplies.EOF then iReplyCount = "" else arrReplyData = rsReplies.GetRows(adGetRowsRest) iReplyCount = UBound(arrReplyData, 2) rREPLY_ID = 0 end if LastPostReplyID = cLng(Request.QueryString("REPLY_ID")) if iReplyCount <> "" then for iReply = 0 to iReplyCount intReplyID = arrReplyData(rREPLY_ID,iReply) if LastPostReplyID = intReplyID then intPageNumber = ((iReply+1)/strPageSize) if intPageNumber > cLng(intPageNumber) then intPageNumber = cLng(intPageNumber) + 1 end if strwhichpage = "whichpage=" & intPageNumber & "&" exit for end if next else strwhichpage = "" end if rsReplies.Close set rsReplies = nothing else set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.cachesize = strPageSize rsReplies.pagesize = strPageSize rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText LastPostReplyID = cLng(Request.QueryString("REPLY_ID")) rsReplies.Find = "REPLY_ID=" & LastPostReplyID & "" if not (rsReplies.EOF or rsReplies.BOF) then if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&" else strwhichpage = "" end if rsReplies.Close set rsReplies = nothing end if Response.Redirect("topic.asp?" & strwhichpage & "TOPIC_ID=" & Topic_ID & "&#" & 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 "


Viewing of this Topic is not permitted until it has been moderated.
Please try again later

" & vbNewLine & _ "

Go Back


" & 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" strSql = strSql & ", M.M_TITLE, M.MEMBER_ID, M.M_HOMEPAGE, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_AVATAR_URL" 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 & " " ' 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 ' strSql4 = " ORDER BY R.R_DATE ASC" '##### Post Sort Mod 1-2 - replace above 1 line with below 9 lines 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 '########## Post Sort Mod ########## 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 '################################## Poll Mod ##################################### Select Case Request.Form("Method_Type") Case "member_vote" if Request.Form("R1") = "" then Response.Write "

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
You must choose an answer in order for your vote to be counted!


Go Back To Vote
" & vbNewLine & _ "

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

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
You need to be a member in order to vote!


Go Back to the forum
" & vbNewLine & _ "

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

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
You may only vote once per poll!


Go Back and click on ""View Results"" to see the results.
" & 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 & _ "
You cannot view the poll results before you vote!


Go Back to Vote.
" & vbNewLine & _ "

" & vbNewLine WriteFooter Response.End end if End Select '########################################################################################### Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " All Forums
" & 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 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 call PostingOptions() Response.Write "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine ' if maxpages > 1 then ' Response.Write "" & vbNewLine & _ ' " " & vbNewLine & _ ' " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "
" '##### Post Sort Mod 1-3 - replace above 4 lines with below 4 lines Response.Write "" & vbNewLine & _ " " & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ ' " " & vbNewLine & _ ' "
" '########## Post Sort Mod ########## if mypage > 1 then Response.Write("Previous Page") 'if mypage > 1 then Response.Write("Previous Page") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write("Next Page") 'if mypage < maxpages then Response.Write("Next Page") ' Response.Write "
" & vbNewLine ' end if '##### Post Sort Mod 1-4 - replace above 4 lines with below 13 lines Response.Write "  
" & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine '########## Post Sort Mod ########## 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 '##### Post Sort Mod 1-5 - replace above 1 line with below 1 line if (sortorder <> "1") and mypage = 1 then '########## Post Sort Mod ########## 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 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_TITLE = 6 rMEMBER_ID = 7 rM_HOMEPAGE = 8 rM_LEVEL = 9 rM_POSTS = 10 rM_COUNTRY = 11 rM_Avatar = 12 rREPLY_ID = 13 rFORUM_ID = 14 rR_AUTHOR = 15 rTOPIC_ID = 16 rR_MESSAGE = 17 rR_LAST_EDIT = 18 rR_LAST_EDITBY = 19 rR_SIG = 20 rR_STATUS = 21 rR_DATE = 22 rR_MSGICON = 23 if CanShowSignature = 1 then rM_SIG = 24 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_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_MemberAvatar = arrReplyData(rM_Avatar, 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 intI = intI + 1 if intI = 2 then intI = 0 end if next end if '##### Post Sort Mod 1-6 - add below 3 lines if sortorder = "1" then Call GetFirst() end if '########## Post Sort Mod ########## 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 & _ "
Author" & vbNewLine if strShowTopicNav = "1" then Call Topic_nav() else Response.Write("Topic") end if Response.Write "" & vbNewLine call AdminOptions() Response.Write " " & vbNewLine call AdminOptions() Response.Write "  
" & 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 Reply_MemberAvatar <> "noavatar.gif" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine end if if strCountry = "1" and trim(Reply_MemberCountry) <> "" then Response.Write " " & Reply_MemberCountry & "
" & vbNewLine end if Response.Write " " & Reply_MemberPosts & " Posts

1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & 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 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine ' DEM --> Start of Code altered for moderation if Reply_Status < 2 then Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Reply_MsgIcon),"","hspace=""3""") & "Posted - " & ChkDate(Reply_Date, " : " ,true) & "" & vbNewline elseif Reply_Status = 2 then Response.Write " NOT MODERATED!!!" & vbNewline elseif Reply_Status = 3 then Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "ON HOLD" & vbNewline end if ' DEM --> End of Code added for moderation. Response.Write "  " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),Reply_MemberID) & vbNewLine if mLev > 2 or Reply_MemberReceiveEmail = "1" then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then Response.Write "  " & getCurrentIcon(strIconEmail,"Email Poster","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strHomepage = "1" then if Reply_MemberHomepage <> " " then Response.Write "  " & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Reply_MemberName,"display") & "'s Homepage","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,"Edit Reply","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strAIM = "1") then if Trim(Reply_MemberAIM) <> "" then Response.Write "  " & getCurrentIcon(strIconAIM,"Send " & ChkString(Reply_MemberName,"display") & " an AOL message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strICQ = "1" then if Trim(Reply_MemberICQ) <> "" then Response.Write "  " & getCurrentIcon(strIconICQ,"Send " & ChkString(Reply_MemberName,"display") & " an ICQ Message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strMSN = "1") then if Trim(Reply_MemberMSN) <> "" then Response.Write "  " & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Reply_MemberName,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if strYAHOO = "1" then if Trim(Reply_MemberYAHOO) <> "" then Response.Write "  " & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1)) and ArchiveView = "" then Response.Write "  " & getCurrentIcon(strIconReplyTopic,"Reply with Quote","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if (strIPLogging = "1") then if (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconIP,"View user's IP address","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,"Delete Reply","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if ' DEM --> Start of Code added for Full Moderation if (AdminAllowed = 1 and Reply_Status > 1) then ReplyString = "REPLY_ID=" & Reply_ReplyID & "&CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID & "&TOPIC_ID=" & Topic_ID Response.Write "  " & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Reply","align=""absmiddle"" hspace=""6""") & "" & vbNewline end if ' DEM --> End of Code added for Full Moderation end if Response.Write "
" if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Reply_Content)) else Response.Write formatStr(Reply_Content) end if Response.Write "

" & formatStr(Reply_MemberSig) & "

" & _ "Edited by - " & Reply_LastEditByName & " on " & chkDate(Reply_LastEdit, " " ,true) & "
Report to Moderator " & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "
" & vbNewLine & _ "
  1 and (AdminAllowed = 1) then Response.Write(" colspan=""2""") Response.Write ">" & vbNewLine if strShowTopicNav = "1" then Call Topic_nav() else Response.Write("Topic") end if Response.Write " " & vbNewLine call AdminOptions() Response.Write " 
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine if maxpages > 1 then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" if mypage > 1 then Response.Write("Previous Page") 'if mypage > 1 then Response.Write("Previous Page") if mypage > 1 and mypage < maxpages then Response.Write(" | ") if mypage < maxpages then Response.Write("Next Page") 'if mypage < maxpages then Response.Write("Next Page") Response.Write "
" & vbNewLine end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & 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 ((Cat_Status = 1) and (Forum_Status = 1)) then Response.Write " " & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & " New Topic" & vbNewLine '############################## Poll Mod ################################ if strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) then Response.Write " " & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & " New Poll
" & vbNewLine end if '######################################################################## else if (AdminAllowed = 1) then Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " New Topic" & vbNewLine '########################### Poll Mod ############################### Response.Write " " & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & " New Poll
" & vbNewLine '#################################################################### else Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " Forum Locked" & vbNewLine end if end if if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & " Reply to Topic" & 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 "Reply to Topic" & vbNewLine else if Topic_Status = 0 then Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline 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 '########################### Poll Mod ################################ if strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) then Response.Write " " & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & " Send Topic to a Friend" & vbNewLine else '##################################################################### Response.Write "
" & getCurrentIcon(strIconSendTopic,"","align=""absmiddle""") & " Send Topic to a Friend" & vbNewLine end if ' <---########### Poll Mod ########### end if end if if lcase(strShowPrinterFriendly) = "1" and Topic_Status < 2 then Response.Write "
" & getCurrentIcon(strIconPrint,"","align=""absmiddle""") & " Printer Friendly" & 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,"Un-Lock Category","") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,"Category Locked","") & vbNewLine end if else if (Forum_Status = 0) then Response.Write " " & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Forum","") & "" & vbNewLine else if (Topic_Status <> 0) then Response.Write " " & getCurrentIcon(strIconFolderLocked,"Lock Topic","") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Topic","") & "" & vbNewLine end if end if end if if ((Cat_Status <> 0) and (Forum_Status <> 0) and (Topic_Status <> 0)) or (AdminAllowed = 1) then '######################### Poll Mod - Added 'pollLink' to line below ###################### Response.Write " " & getCurrentIcon(strIconFolderPencil,"Edit Topic","hspace=""0""") & "" & vbNewLine '########################################################################################## end if '######################### Poll Mod - Added 'pollLink' to line below ###################### Response.Write " " & getCurrentIcon(strIconFolderDelete,"Delete Topic","") & "" & vbNewLine & _ " " & getCurrentIcon(strIconFolderNewTopic,"New Topic","") & "" & vbNewLine if Topic_Status <= 1 and ArchiveView = "" then Response.Write " " & getCurrentIcon(strIconReplyTopic,"Reply to Topic","") & "" & vbNewLine end if end if '##################################### Split Topic Mod ########################################### if iReplyCount <> "" then Response.Write " " & getCurrentIcon(strIconSplitTopic,"Split Topic","") & "" & vbNewLine 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,"Approve/Hold/Reject all posts for this Topic","") & "" & 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,"Previous Topic","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,"Next Topic","align=""top"" hspace=""6""") & "" end if rsNextTopic.close set rsNextTopic = nothing else nextTopic = nextTopic end if Response.Write (" " & prevTopic & " Topic " & 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() intSigDefault = getSigDefault(MemberID) Response.Write " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine Call PostingOptions() Response.Write "" & vbNewLine %> <% Response.Write "
" & vbNewLine if strShowQuickReply = "1" and strDBNTUserName <> "" and ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then call QuickReply() end if WriteFooter end if sub GetFirst() CColor = strForumFirstCellColor Response.Write "
" & 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 Member_Avatar <> "noavatar.gif" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine end if if strCountry = "1" and trim(Member_Country) <> "" then Response.Write " " & Member_Country & "
" & vbNewLine end if Response.Write " " & Member_Posts & " Posts

1) then Response.Write (" colspan=""3"" ") else Response.Write (" colspan=""2"" ") end if Response.Write "valign=""top"">" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine ' " " & vbNewLine & _ Response.Write " " & vbNewLine Response.Write " " & vbNewLine 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 Response.Write " " & vbNewLine & _ " " & vbNewLine end if Response.Write "
" & vbNewLine if Topic_Status < 2 then Response.Write " " & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""3""") & "Posted - " & ChkDate(Topic_Date, " : " ,true) & "" & vbNewline elseif Topic_Status = 2 then Response.Write " NOT MODERATED!!!" & vbNewline elseif Topic_Status = 3 then Response.Write " " & getCurrentIcon(strIconPosticonHold,"","hspace=""3""") & "ON HOLD" & vbNewline end if Response.Write "  " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),TMember_ID) & vbNewLine if mLev > 2 or Member_ReceiveMail = "1" then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then Response.Write "  " & getCurrentIcon(strIconEmail,"Email Poster","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strHomepage = "1") then if Member_Homepage <> " " then Response.Write "  " & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Member_Name,"display") & "'s Homepage","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if '############################ Poll Mod ############################### 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,"Edit Poll","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,"Edit Topic","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if end if ' <---- ####### Poll Mod - 1 line ########## if (strAIM = "1") then if Trim(Member_AIM) <> "" then Response.Write "  " & getCurrentIcon(strIconAIM,"Send " & ChkString(Member_Name,"display") & " an AOL message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strICQ = "1") then if Trim(Member_ICQ) <> "" then Response.Write "  " & getCurrentIcon(strIconICQ,"Send " & ChkString(Member_Name,"display") & " an ICQ Message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strMSN = "1") then if Trim(Member_MSN) <> "" then Response.Write "  " & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Member_Name,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (strYAHOO = "1") then if Trim(Member_YAHOO) <> "" then Response.Write "  " & getCurrentIcon(strIconYahoo,"Send " & ChkString(Member_Name,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if ((Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status = 1) or (AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "" ) then Response.Write "  " & getCurrentIcon(strIconReplyTopic,"Reply with Quote","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if (strIPLogging = "1") then if (AdminAllowed = 1) then Response.Write "  " & getCurrentIcon(strIconIP,"View user's IP address","align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if end if if (AdminAllowed = 1) or (TMember_ID = MemberID and Topic_Replies < 1) then '###################### Poll Mod - Added 'pollLink' to line below #################### Response.Write " " & getCurrentIcon(strIconDeleteReply,"Delete Topic","align=""absmiddle"" hspace=""6""") & "" & vbNewLine '###################################################################################### end if ' DEM --> Start of Code added for Full Moderation if (AdminAllowed = 1 and Topic_Status > 1) then TopicString = "TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID Response.Write "  " & getCurrentIcon(strIconFolderModerate,"Approve/Hold/Reject this Topic","align=""absmiddle"" hspace=""6""") & "" & vbNewline End if ' End of Code added for Full Moderation Response.Write "
" ' if Request.QueryString("SearchTerms") <> "" then ' Response.Write SearchHiLite(formatStr(Topic_Message)) ' else ' Response.Write formatStr(Topic_Message) ' end if ' Response.Write "" & 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 & _ " Poll Question:
" & 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 & _ "
Choices:

" & 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 "(Anonymous Vote)" & vbNewLine end if Response.Write " " & vbNewLine & _ "
" & vbNewLine if strWhoVotes = "members" and mlev = 0 then Response.Write "
" & vbNewLine & _ " Who Can Vote? Only Members can vote. You need to register or be logged in to vote." & vbNewLine end if Response.Write "
" & vbNewLine end if else Response.Write " " 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 & _ " Poll Question:
" & vbNewLine & _ " " & vbNewLine if Request.QueryString("SearchTerms") <> "" then Response.Write SearchHiLite(formatStr(Topic_Message)) else Response.Write formatStr(Topic_Message) end if Response.Write "

" & vbNewLine & _ "
Results:
" & formatStr(vAnswers(nCount)) & " [" & vPercent(nCount) & "%]" & vCount(nCount) & " votes

" & 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 & _ " Poll Status: " & vbNewLine if Poll_Status = 0 or Forum_Polls = "0" then Response.Write "Locked" else Response.Write "Open" end if Response.Write " " & vbNewLine & _ " Total Votes: " & nTotal & " counted " & vbNewLine & _ " Last Vote: " & vbNewLine if cint(nTotal) > 0 then Response.Write(chkDate(Last_Vote, " ", true)) else Response.Write("never") Response.Write "
Admins/Moderators: See who voted
" & vbNewLine & _ "
" & vbNewLine end if end if Response.Write "

" & formatStr(Topic_MemberSig) & "

" &_ "Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & "" & vbNewLine & _ "
" & vbNewLine & _ " report to moderator " & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine) if Archiveview = "true" then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" Page: of " & maxpages & "" & vbNewLine) '##### Post Sort Mod 1-7 - add below 1 line if cLng(sortorder) > 0 then Response.Write(" " & vbNewLine) '########## Post Sort Mod ########## if Request.QueryString("SearchTerms") <> "" then Response.Write(" " & vbNewLine) Response.Write("
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
Quick Reply
Message: 
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine if strAllowHTML = "1" then Response.Write " * HTML is ON
" & vbNewLine else Response.Write " * HTML is OFF
" & vbNewLine end if if strAllowForumCode = "1" then Response.Write " * Forum Code is ON
" & vbNewLine else Response.Write " * Forum Code is OFF
" & vbNewLine end if if strSignatures = "1" then Response.Write "
Include Signature
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

  
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end sub %>