<%
'#################################################################################
'## 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
'##
'#################################################################################
%><!--#INCLUDE FILE="inc_googie.asp" -->
<!--#INCLUDE FILE="config.asp"-->
<%
dim strSelectSize
dim intCols, intRows
' ## Poll Below
dim txtAns()
dim nCount
' ## Poll Above
If Request.QueryString("method") <> "" Then
strRqMethod = chkString(Request.QueryString("method"), "SQLString")
ElseIf Request.Form("Method_Type") = "logout" Then
' Do Nothing
Else
Response.Redirect("default.asp")
End If
If Request.QueryString("TOPIC_ID") <> "" Then
If IsNumeric(Request.QueryString("TOPIC_ID")) = True Then
strRqTopicID = cLng(Request.QueryString("TOPIC_ID"))
Else
Response.Redirect("default.asp")
End If
End If
If Request.QueryString("FORUM_ID") <> "" Then
If IsNumeric(Request.QueryString("FORUM_ID")) = True Then
strRqForumID = cLng(Request.QueryString("FORUM_ID"))
Else
Response.Redirect("default.asp")
End If
End If
If Request.QueryString("CAT_ID") <> "" Then
If IsNumeric(Request.QueryString("CAT_ID")) = True Then
strRqCatID = cLng(Request.QueryString("CAT_ID"))
Else
Response.Redirect("default.asp")
End If
End If
If Request.QueryString("REPLY_ID") <> "" Then
If IsNumeric(Request.QueryString("REPLY_ID")) = True Then
strRqReplyID = cLng(Request.QueryString("REPLY_ID"))
Else
Response.Redirect("default.asp")
End If
End If
' ## User Space Below
' ## Drafts Below
If trim(Request.QueryString("DRAFT_ID")) <> "" Then
If IsNumeric(Request.QueryString("DRAFT_ID")) = True Then
strRqDraftID = cLng(Request.QueryString("DRAFT_ID"))
Else
Response.Redirect("default.asp")
End If
End If
' ## Drafts Above
' ## User Space Above
strCkPassWord = Request.Cookies(strUniqueID & "User")("Pword")
If strSelectSize = "" or IsNull(strSelectSize) Then
strSelectSize = Request.Cookies(strUniqueID & "strSelectSize")
End If
If not(IsNull(strSelectSize)) and strSelectSize <> "" Then
If strSetCookieToForum = 1 Then
Response.Cookies(strUniqueID & "strSelectSize").Path = strCookieURL
Else
Response.Cookies(strUniqueID & "strSelectSize").Path = "/"
End If
Response.Cookies(strUniqueID & "strSelectSize") = strSelectSize
Response.Cookies(strUniqueID & "strSelectSize").expires = dateAdd("yyyy", 1, strForumTimeAdjust)
End If
%>
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
' ## CallOuts Below
If intUseCallOuts = 1 Then
%>
<!--#INCLUDE FILE="inc_callouts_functions.asp" -->
<%
End If
' ## CallOuts Above
' ## Events Calendar Below
If Request.Querystring("event") = "1" Then
blnCalAllowed = FALSE
strSql = "Select F_ALLOWEVENTS FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID & " AND F_ALLOWEVENTS = 1"
Set rsCal = Server.CreateObject("ADODB.RecordSet")
rsCal.Open strSql, My_conn
If not rsCal.EOF Then
blnCalAllowed = TRUE
End If
rsCal.Close
Set rsCal = Nothing
If not blnCalAllowed Then
Go_Result strCalError0
End If
If mlev < intCalMLev Then
Go_Result strCalNotAllowed
End If
End If
' ## Events Calendar Above
If request("ARCHIVE") = "true" Then
strActivePrefix = strTablePrefix & "A_"
ArchiveView = "true"
Else
strActivePrefix = strTablePrefix
ArchiveView = ""
End If
If strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "TopicQuote" Then
'## check If topic exists in TOPICS table
Set rsTCheck = my_Conn.Execute ("Select TOPIC_ID FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & strRqTopicID)
If rsTCheck.EOF or rsTCheck.BOF Then
rsTCheck.Close
Set rsTCheck = Nothing
Go_Result "Sorry, that Topic no longer exists in the Database"
End If
Set rsTCheck = Nothing
End If
If ArchiveView <> "" Then
If MethodType = "Reply" or _
MethodType = "ReplyQuote" or _
MethodType = "TopicQuote" Then
Go_Result "This is not allowed in the Archives."
End If
End If
' ## User Space Below
' ## Drafts Below
If strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicDraft" or _
strRqMethod = "ReplyDraft" or _
strRqMethod = "TopicQuote" Then
If strRqMethod <> "Topic" and strRqMethod <> "TopicDraft" Then
' ## Drafts Above
' ## User Space Above
' ## Poll Below
strSql = "Select C.CAT_ID, C.CAT_NAME, C.CAT_STATUS, C.CAT_SUBSCRIPTION, " &_
"F.FORUM_ID, F.F_POLLS, F.F_STATUS, F.F_TYPE, F.F_SUBJECT, F.F_SUBSCRIPTION, "&_
"T.T_POLLSTATUS, T.T_STATUS, T.T_SUBJECT " &_
" FROM " & strTablePrefix & "CATEGORY C, " &_
strTablePrefix & "FORUM F, " &_
strActivePrefix & "TOPICS T" &_
" WHERE C.CAT_ID = T.CAT_ID " &_
" AND F.FORUM_ID = T.FORUM_ID " &_
" AND T.TOPIC_ID = " & strRqTopicID & ""
' ## Poll Above
Else
' ## Poll Below
strSql = "Select C.CAT_ID, C.CAT_NAME, C.CAT_STATUS, C.CAT_SUBSCRIPTION, " &_
"F.FORUM_ID, F.F_POLLS, F.F_STATUS, F.F_TYPE, F.F_SUBJECT, F.F_SUBSCRIPTION "&_
" FROM " & strTablePrefix & "CATEGORY C, " &_
strTablePrefix & "FORUM F" &_
" WHERE C.CAT_ID = F.CAT_ID " &_
" AND F.FORUM_ID = " & strRqForumID & ""
' ## Poll Above
End If
Set rsStatus = my_Conn.Execute(strSql)
If rsStatus.EOF or rsStatus.BOF Then
rsStatus.Close
Set rsStatus = Nothing
Go_Result "Please don't attempt to edit the URL<br />to gain access to locked Forums/Categories."
Else
PostCat_subscription = rsStatus("CAT_SUBSCRIPTION")
PostForum_subscription = rsStatus("F_SUBSCRIPTION")
blnCStatus = rsStatus("CAT_STATUS")
blnFStatus = rsStatus("F_STATUS")
' ## Poll Below
Forum_Polls = rsStatus("F_POLLS")
' ## Poll Above
strRqForumID = rsStatus("FORUM_ID")
strRqCatID = rsStatus("CAT_ID")
Cat_Name = rsStatus("CAT_NAME")
Forum_Type = rsStatus("F_TYPE")
Forum_Subject = rsStatus("F_SUBJECT")
' ## User Space Below
' ## Drafts Below
If strRqMethod <> "Topic" and strRqMethod <> "TopicDraft" Then
' ## Drafts Above
' ## User Space Above
blnTStatus = rsStatus("T_STATUS")
Topic_Title = rsStatus("T_SUBJECT")
' ## Poll Below
blnPStatus = rsStatus("T_POLLSTATUS")
Else
blnTStatus = 1
blnPStatus = 1
' ## Poll Above
End If
rsStatus.Close
Set rsStatus = Nothing
End If
If mLev = 4 Then
AdminAllowed = 1
ForumChkSkipAllowed = 1
ElseIf mLev = 3 Then
If chkForumModerator(strRqForumID, 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
Select Case strRqMethod
' ## User Space Below
' ## Drafts Below
Case "Topic", "TopicDraft"
' ## Drafts Above
' ## User Space Above
If (Forum_Type = 1) Then
Go_Result "You have attempted to post a New Topic to a Forum designated as a Web Link"
End If
If (blnCStatus = 0) and (AdminAllowed = 0) Then
Go_Result "You have attempted to post a New Topic to a Locked Category"
End If
If (blnFStatus = 0) and (AdminAllowed = 0) Then
Go_Result "You have attempted to post a New Topic to a Locked Forum"
End If
' ## Poll Below
If Request.QueryString("poll") = "1" Then
If strPolls = "0" Then
Go_Result "Polls are turned off For this Forum"
ElseIf strPolls = "1" and Forum_Polls = "0" Then
Go_Result "Polls are disabled For this Forum"
ElseIf strPolls = "1" and (Forum_Polls = "2" and AdminAllowed = 0) Then
Go_Result "Only Admins and Moderators are allowed to create polls"
End If
End If
' ## Poll Above
Case "EditTopic"
If ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) Then
Go_Result "You have attempted to edit a Locked Topic"
End If
' ## User Space Below
' ## Drafts Below
Case "Reply", "ReplyQuote", "TopicQuote", "ReplyDraft"
' ## Drafts Above
' ## User Space Above
If ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) Then
Go_Result "You have attempted to Reply to a Locked Topic"
End If
Case "Edit"
If ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) Then
Go_Result "You have attempted to Edit a Reply to a Locked Topic"
End If
End Select
If strPrivateForums = "1" and ForumChkSkipAllowed = 0 Then
If not(chkForumAccess(strRqForumID,MemberID,false)) Then
Go_Result "You do not have access to this forum"
End If
End If
End If
Select Case strSelectSize
Case "1"
intCols = 45
intRows = 11
Case "2"
intCols = 70
intRows = 12
Case "3"
intCols = 90
intRows = 12
Case "4"
intCols = 130
intRows = 15
Case Else
intCols = 70
intRows = 12
End Select
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <script language=""JavaScript"" type=""text/javascript"" src=""Selectbox.js""></script>" & vbNewLine
If strRqMethod = "EditForum" Then
If (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") Then
' ## Do Nothing
Else
Go_Result "Only moderators and administrators can edit forums"
End If
End If
Msg = ""
Select Case strRqMethod
Case "Reply", "ReplyQuote", "TopicQuote"
If (strNoCookies = 1) or (strDBNTUserName = "") Then
Msg = Msg & "<b>Note:</b> You must be registered in order to post a reply.<br />"
If strProhibitNewMembers <> "1" Then
Msg = Msg & "To register, <a href=""register.asp"">click here</a>. Registration is FREE!<br />"
End If
End If
Case "Topic"
If (strNoCookies = 1) or (strDBNTUserName = "") Then
Msg = Msg & "<b>Note:</b> You must be registered in order to post a Topic.<br />"
If strProhibitNewMembers <> "1" Then
Msg = Msg & "To register, <a href=""register.asp"">click here</a>. Registration is FREE!<br />"
End If
End If
Case "Category"
Msg = Msg & "<b>Note:</b> You must be an Administrator to create a new Category.<br />"
Case "Forum"
Msg = Msg & "<b>Note:</b> You must be an Administrator to create a new Forum.<br />"
Case "URL"
Msg = Msg & "<b>Note:</b> You must be an Administrator to create a new Web Link.<br />"
Case "Edit", "EditTopic"
Msg = Msg & "<b>Note:</b> Only the poster of this message, and the Moderator can edit the message."
Case "EditForum"
Msg = Msg & "<b>Note:</b> Only the Moderator or an Administrator can edit a Forum."
Case "EditURL"
Msg = Msg & "<b>Note:</b> Only the Moderator or an Administrator can edit a Web Link."
Case "EditCategory"
Msg = Msg & "<b>Note:</b> Only an Administrator can edit a Category."
' ## User Space Below
' ## Drafts Below
Case "TopicDraft", "ReplyDraft"
Msg = Msg & "<b>Note:</b> Only the poster of this draft, and the Admin can edit this draft."
' ## Drafts Above
' ## User Space Above
Case Else
Response.Redirect "default.asp"
End Select
If strRqMethod = "Edit" or _
strRqMethod = "ReplyQuote" Then
strSql = "SELECT M.M_NAME, R.R_AUTHOR, R.R_SIG, R.R_MSGICON, R.R_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R "
strSql = strSql & " WHERE M.MEMBER_ID = R.R_AUTHOR AND R.REPLY_ID = " & strRqReplyID
Set rs = my_Conn.Execute (strSql)
strAuthor = rs("R_AUTHOR")
strReplySig = rs("R_SIG")
if strRqMethod = "Edit" then
TxtMsg = rs("R_MESSAGE")
MsgIcon = rs("R_MSGICON")
else
If strRqMethod = "ReplyQuote" Then
TxtMsg = "[quote][i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i]" & vbNewLine
TxtMsg = TxtMsg & "
" & rs("R_MESSAGE") & vbNewLine
TxtMsg = TxtMsg & "[/quote]"
End If
End If
Set rs = Nothing
End If
If strRqMethod = "EditTopic" or strRqMethod = "TopicQuote" Then
strSql = "SELECT M.M_NAME, T.CAT_ID, T.FORUM_ID, T.TOPIC_ID, T.T_SUBJECT, T.T_AUTHOR, T.T_STICKY, T.T_SIG, T.T_MSGICON, T.T_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "TOPICS T "
strSql = strSql & " WHERE M.MEMBER_ID = T.T_AUTHOR AND T.TOPIC_ID = " & strRqTopicID
Set rs = my_Conn.Execute (strSql)
TxtSub = rs("T_SUBJECT")
strAuthor = rs("T_AUTHOR")
strTopicSig = rs("T_SIG")
If strStickyTopic = "1" Then
strTopicSticky = rs("T_STICKY")
End If
if strRqMethod = "EditTopic" then
TxtMsg = rs("T_MESSAGE")
MsgIcon = rs("T_MSGICON")
else
If strRqMethod = "TopicQuote" Then
TxtMsg = "[quote][i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i]" & vbNewLine
TxtMsg = TxtMsg & "
" & rs("T_MESSAGE") & vbNewLine
TxtMsg = TxtMsg & "[/quote]"
End If
End If
tAllowRating = rs("ALLOW_RATING")
Set rs = Nothing
' ## Poll Below
If Request.QueryString("poll") = "1" Then
strSql = "SELECT " & strTablePrefix & "POLLS.P_WHOVOTES, "
For i = 1 to 15
strSql = strSql & strTablePrefix & "POLLS.ANSWER" & CStr(i) & ", "
strSql = strSql & strTablePrefix & "POLLS.COUNT" & CStr(i)
If i <> 15 Then
strSql = strSql & ", "
End If
Next
strSql = strSql & " FROM " & strTablePrefix & "POLLS"
strSql = strSql & " WHERE " & strTablePrefix & "POLLS.TOPIC_ID = " & strRqTopicID
Set rsPoll = my_Conn.Execute (strSql)
If rsPoll.EOF or rsPoll.BOF Then
Go_Result "You are trying to edit a Topic that is not a Poll"
Else
strWhoVotes = rsPoll("P_WHOVOTES")
nTotal = 0
ReDim txtAns(15)
For i = 1 to 15
txtAns(i) = trim(rsPoll("ANSWER" & CStr(i)))
If txtAns(i) <> "" Then
nTotal = nTotal + 1
End If
Next
If CInt(strMaxVotes) > nTotal Then
nCount = strMaxVotes
Else
nCount = nTotal
End If
End If
rsPoll.Close
Set rsPoll = Nothing
End If
' ## Poll Above
' ## User Space Below
' ## Drafts Below
%>
<!--#INCLUDE FILE="inc_draft.asp" -->
<%
' ## Drafts Above
' ## User Space Above
end if
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
' ## Forum_SQL
' DEM --> Added F_SUBSCRIPTION, F_MODERATION to the end of this select
' ## Edit Time Below
strSql = "SELECT F_SUBJECT, F_URL, F_PRIVATEFORUMS, F_PASSWORD_NEW, F_EDIT_TIME, "
' ## Edit Time Above
' ## Events Calendar Below
strSql = strSql & "F_DEFAULTDAYS, F_COUNT_M_POSTS, F_SUBSCRIPTION, F_MODERATION, F_DESCRIPTION " & _
", F_ALLOWEVENTS "
' ## Events Calendar Above
strSql = strSql & " FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumId
set rs = my_Conn.Execute (strSql)
if strRqMethod = "EditURL" then
TxtUrl = rs("F_URL")
end if
if strRqMethod = "EditForum" then
fDefaultDays = rs("F_DEFAULTDAYS")
fForumCntMPosts = rs("F_COUNT_M_POSTS")
fPasswordNew = rs("F_PASSWORD_NEW")
' ## Edit Time Below
if strEditTime = "1" or strDeleteTime = "1" then
if rs("F_EDIT_TIME") <> "" then
arrEditTime = split(rs("F_EDIT_TIME"),"|")
TimeLimit = cLng(arrEditTime(0))
TimeMode = arrEditTime(1)
else
TimeLimit = ""
TimeMode = ""
end if
end if
' ## Edit Time Above
end if
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
TxtSub = rs("F_SUBJECT")
' DEM --> Added fields to get them into local variables which is a faster run
fPrivateForums = rs("F_PRIVATEFORUMS")
ForumSubscription = rs("F_SUBSCRIPTION")
ForumModeration = rs("F_MODERATION")
TxtMsg = rs("F_DESCRIPTION")
' ## Events Calendar Below
fAllowEvents = rs("F_ALLOWEVENTS")
' ## Events Calendar Above
end if
set rs = nothing
end if
' DEM --> Added editforum and forum to get the cat_subscription and cat_moderation for later use.
if strRqMethod = "EditCategory" or strRqMethod = "EditForum" or strRqMethod = "EditURL" or strRqMethod = "Forum" then
'## Forum_SQL
' DEM --> Added CAT_SUBSCRIPTION for subscription services
' DEM --> Added CAT_MODERATION for moderation processing
strSql = "SELECT CAT_NAME, CAT_SUBSCRIPTION, CAT_MODERATION "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE CAT_ID = " & strRqCatID
If strRqMethod = "EditForum" or strRqMethod = "EditURL" or strRqMethod = "Forum" Then
Set rs1 = my_Conn.Execute (strSql)
CatSubscription = rs1("CAT_SUBSCRIPTION")
CatModeration = rs1("CAT_MODERATION")
strCatName = rs1("CAT_NAME")
Set rs1 = Nothing
Else
Set rs = my_Conn.Execute (strSql)
CatSubscription = rs("CAT_SUBSCRIPTION")
CatModeration = rs("CAT_MODERATION")
TxtSub = rs("CAT_NAME")
Set rs = Nothing
End If
End If
Select Case strRqMethod
Case "Category"
btn = "Post New Category"
Case "Edit", "EditCategory", "EditForum", "EditTopic", "EditURL"
btn = "Post Changes"
Case "Forum"
btn = "Post New Forum"
Case "Reply", "ReplyQuote", "TopicQuote"
btn = "Post New Reply"
Case "Topic"
btn = "Post New Topic"
Case "URL"
btn = "Post New URL"
Case Else
btn = "Post"
End Select
Response.Write " <table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"" tabindex=""-1"">All Forums</a><br />" & vbNewLine
If strRqMethod = "EditCategory" Then
Response.Write " " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " " & ChkString(TxtSub,"display") & "<br />" & vbNewLine
ElseIf strRqMethod = "EditForum" or strRqMethod = "EditURL" Then
Response.Write " " & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp?CAT_ID=" & strRqCatID & """ tabindex=""-1"">" & ChkString(strCatName,"display") & "</a><br />" & vbNewLine
Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " " & ChkString(TxtSub,"display") & "<br />" & vbNewLine
Else
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
Response.Write " " & getCurrentIcon(strIconBar,"","align=""absmiddle""")
If blnCStatus <> 0 Then
Response.Write getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""")
Else
Response.Write getCurrentIcon(strIconFolderClosed,"","align=""absmiddle""")
End If
Response.Write " <a href=""default.asp?CAT_ID=" & strRqCatId & """ tabindex=""-1"">" & ChkString(Cat_Name,"display") & "</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
If blnFStatus <> 0 and blnCStatus <> 0 Then
Response.Write getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""")
Else
If strRqMethod <> "Topic" Then
Response.Write getCurrentIcon(strIconFolderClosed,"","align=""absmiddle""")
Else
Response.Write getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""")
End If
End If
Response.Write " <a href=""forum.asp?FORUM_ID=" & strRqForumId & """ tabindex=""-1"">" & ChkString(Forum_Subject,"display") & "</a><br />" & vbNewLine
End If
End If
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "TopicQuote" Then
Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
If blnTStatus <> 0 and blnFStatus <> 0 and blnCStatus <> 0 Then
Response.Write getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""")
Else
Response.Write getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""")
End If
Response.Write " <a href=""topic.asp?TOPIC_ID=" & strRqTopicID & """ tabindex=""-1"">" & ChkString(Topic_Title,"title") & "</a>" & vbNewLine
End If
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & Msg & "</font></p>" & vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <form name=""PostTopic"" method=""post"" action=""post_info.asp"""
Select Case strRqMethod
Case "Topic", "EditTopic", "Reply", "ReplyQuote", "TopicQuote", "Edit"
Response.Write(" onSubmit=""return validate();""")
Case Else
Response.Write ""
End Select
If strReferer = "" Then
strReferer = chkString(Request.Form("Refer"),"refer")
End If
If strReferer = "" Then
strReferer = "default.asp"
End If
Response.Write ">" & vbNewLine & _
" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
" <input name=""Method_Type"" type=""hidden"" value=""" & strRqMethod & """>" & vbNewLine & _
" <input name=""REPLY_ID"" type=""hidden"" value=""" & strRqReplyID & """>" & vbNewLine & _
" <input name=""TOPIC_ID"" type=""hidden"" value=""" & strRqTopicID & """>" & vbNewLine & _
" <input name=""FORUM_ID"" type=""hidden"" value=""" & strRqForumId & """> " & vbNewLine & _
" <input name=""CAT_ID"" type=""hidden"" value=""" & strRqCatID & """>" & vbNewLine
If strRqMethod = "Edit" or strRqMethod = "EditTopic" Then
Response.Write " <input name=""Author"" type=""hidden"" value=""" & strAuthor & """>" & vbNewLine
End If
Response.Write " <input name=""Refer"" type=""hidden"" value=""" & strReferer & """>" & vbNewLine & _
" <input name=""cookies"" type=""hidden"" value=""yes"">" & vbNewLine
' ## Poll Below
If Request.QueryString("poll") = "1" Then
Response.Write " <input name=""poll"" type=""hidden"" value=""1"">" & vbNewLine & _
" <input name=""count"" type=""hidden"" value=""" & nCount & """>" & vbNewLine
End If
' ## Poll Above
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Screensize:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <Select name=""SelectSize"" size=""1"" tabindex=""-1"" onchange=""resizeTextarea('" & strUniqueID & "')"">" & vbNewLine & _
" <option value=""1"""
If strSelectSize = "1" Then
Response.Write(" SelectED")
End If
Response.Write ">640 x 480</option>" & vbNewLine & _
" <option value=""2"""
If strSelectSize = "2" or strSelectSize = "" Then
Response.Write(" SelectED")
End If
Response.Write ">800 x 600</option>" & vbNewLine & _
" <option value=""3"""
If strSelectSize = "3" Then
Response.Write(" SelectED")
End If
Response.Write ">1024 x 768</option>" & vbNewLine & _
" <option value=""4"""
If strSelectSize = "4" Then
Response.Write(" Selected")
End If
Response.Write ">1280 x 1024</option>" & vbNewLine & _
" </Select>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If mlev = 4 or _
mlev = 3 or _
mlev = 2 or _
mlev = 1 Then
Response.Write " <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & strCkPassWord & """>" & vbNewLine
Else
If (lCase(strNoCookies) = "1") or _
(strDBNTUserName = "" or _
strCkPassWord = "") Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserName:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input name=""UserName"" maxLength=""25"" size=""25"" type=""text"" value=""" & Request.Form("UserName") & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Password:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""><input name=""Password"" maxLength=""25"" size=""25"" type=""password"" value=""" & Request.Form("password") & """></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
End If
If strAllowForumCode = "1" and strShowFormatButtons = "1" Then
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
%>
<!--#INCLUDE FILE="inc_post_buttons.asp" -->
<%
End If
End If
If strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" Then
Response.Write "<tr>" & vbNewLine & _
"<td bgColor=""" & strPopupTableColor & """ nowrap valign=""top"" align=""right"">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & _
"<b>Parent Location:</b></font></td>" & vbNewLine & _
"<td bgColor=""" & strPopupTableColor & """>" & vbNewLine
If strRqForumID = "" Then
strRqForumID = 0
End If
strSQL = "Select F_PARENT FROM FORUM_FORUM WHERE FORUM_ID = " & strRqForumID & " LIMIT 1"
Set rsFindSub = my_Conn.Execute(strSQL)
If rsFindSub.EOF Then
strSubForum = NULL
Else
strSubForum = rsFindSub("F_PARENT")
End If
Set rsFindSub = Nothing
strsParentQL = "Select * FROM FORUM_CATEGORY ORDER BY CAT_ORDER, CAT_NAME ASC"
Set rsParent = my_Conn.Execute(strsParentQL)
If not rsParent.EOF Then
Response.Write "<Select name=""Parent"" class=""ForumTextBoxDropDown"" size=""1"">" & vbNewLine
rsParent.MoveFirst
Do while not rsParent.EOF
Response.Write "<option "
If isnull(strSubForum) = TRUE Then
If strRqCatID = rsParent("CAT_ID") Then
Response.Write "Selected "
End If
End If
Response.Write "value=""C" & rsParent("CAT_ID") & """>" & rsParent("CAT_NAME") & "</option>" & vbNewLine
strsParentQL2 = "Select * FROM FORUM_FORUM " & _
"WHERE CAT_ID = " & rsParent("CAT_ID") & " " & _
"AND F_PARENT IS NULL " & _
"AND FORUM_ID <> " & strRqForumID & " " & _
"ORDER BY F_ORDER, F_SUBJECT"
Set rsParent2 = my_Conn.Execute(strsParentQL2)
If not rsParent2.EOF Then
rsParent2.MoveFirst
Do while not rsParent2.EOF
Response.Write "<option "
If strSubForum = rsParent2("FORUM_ID") Then
Response.Write "Selected "
End If
Response.Write "value=""F" & rsParent2("FORUM_ID") & """>- - - " & rsParent2("F_SUBJECT") & "</option>" & vbNewLine
rsParent2.MoveNext
Loop
rsParent2.Close
End If
rsParent.MoveNext
Loop
Response.Write "</Select>" & vbNewLine
rsParent.Close
End If
Set rsParent = Nothing
Set rsParent2 = Nothing
Response.Write "<a href=""Javascript:openWindow3('pop_help.asp?mode=options#category')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
"</tr>" & vbNewLine
End If
' ## Poll Below
If strRqMethod = "Forum" or strRqMethod = "EditForum" Then
If strPolls = "1" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Polls Permission:</b></font><br /><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>(Who Can Create Polls?)</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <Select name=""PollAuth"" size=""1"">" & vbNewLine
If strRqMethod = "Forum" Then
FPolls = "0"
Else
'###Get F_POLLS from database
strSql = "Select F_POLLS " &_
"FROM " & strTablePrefix & "FORUM " &_
"WHERE FORUM_ID = " & strRqForumID
Set rsPollAuth = my_Conn.Execute(strSql)
FPolls = rsPollAuth("F_POLLS")
rsPollAuth.Close
Set rsPollAuth = Nothing
End If
Response.Write " <option value=""0"""
If FPolls = "0" Then
Response.Write(" Selected")
End If
Response.Write ">Don't Allow Polls</option>" & vbNewLine & _
" <option value=""1"""
If FPolls = "1" Then
Response.Write(" Selected")
End If
Response.Write ">Allow All Members</option>" & vbNewLine & _
" <option value=""2"""
If FPolls = "2" Then
Response.Write(" SelectED")
End If
Response.Write ">Allow Only Admins/Moderators</option>" & vbNewLine & _
" </Select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=pollmod#permission')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
End If
' ## Poll Above
If (strRqMethod = "EditTopic") Then
Dim MoveTopicAllowed
If (mLev = 4) or (mLev = 3 and strMoveTopicMode = "0") or ((mLev = 3) and (strMoveTopicMode = "1") and (strAuthor = MemberID)) Then
MoveTopicAllowed = "1"
Else
MoveTopicAllowed = "0"
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Forum:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
If mlev = 3 or mlev = 4 Then
Response.Write " <Select name=""Forum"" size=""1"">" & vbNewLine
End If
'## Forum_SQL
strSql = "Select C.CAT_NAME, F.CAT_ID, F.FORUM_ID, F.F_SUBJECT, F_PRIVATEFORUMS, F_PASSWORD_NEW " &_
" FROM " & strTablePrefix & "CATEGORY C, " & strTablePrefix & "FORUM F" &_
" WHERE F.F_TYPE = 0 " & _
" AND C.CAT_ID = F.CAT_ID "
If mLev = 4 Then
'## Do Nothing
Else
If MoveTopicAllowed = "1" Then
' Do Nothing
Else
strSql = strSql & " AND F.FORUM_ID = " & rs("FORUM_ID")
End If
End If
' ## Callouts Below
If intUseCallOuts = 1 Then
If strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
%>
<!--#INCLUDE FILE="inc_callouts.asp" -->
<%
End If
End If
' ## CallOuts Above
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT ASC;"
Set rsForum = Server.CreateObject("ADODB.RecordSet")
rsForum.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsForum.EOF Then
recForumCount = ""
Else
allForumData = rsForum.GetRows(adGetRowsRest)
recForumCount = UBound(allForumData,2)
End If
rsForum.Close
Set rsForum = Nothing
If mlev = 3 or mlev = 4 Then
If recForumCount <> "" Then
cCAT_NAME = 0
fCAT_ID = 1
fFORUM_ID = 2
fF_SUBJECT = 3
fF_PRIVATEFORUMS = 4
fF_PASSWORD_NEW = 5
For iForum = 0 to recForumCount
ForumCat_Name = allForumData(cCAT_NAME, iForum)
ForumCatID = allForumData(fCAT_ID, iForum)
ForumID = allForumData(fFORUM_ID, iForum)
ForumSubject = allForumData(fF_SUBJECT, iForum)
ForumPrivateForums = allForumData(fF_PRIVATEFORUMS,iForum)
ForumFPasswordNew = allForumData(fF_PASSWORD_NEW,iForum)
If ChkDisplayForum(ForumPrivateForums,ForumFPasswordNew,ForumID,MemberID) Then
Response.Write " <option value=""" & ForumCatID & "|" & ForumID & """"
If cLng(strRqForumId) = ForumID Then
Response.Write " Selected"
End If
Response.Write ">" & ChkString(ForumSubject,"display") & "</option>" & vbNewLine
End If
Next
End If
Else
fCAT_ID = 1
fFORUM_ID = 2
fF_SUBJECT = 3
ForumCatID = allForumData(fCAT_ID, 0)
ForumID = allForumData(fFORUM_ID, 0)
ForumSubject = allForumData(fF_SUBJECT, 0)
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(ForumSubject,"display") & "</font>" & vbNewLine & _
" <input type=""hidden"" name=""Forum"" value=""" & ForumCatID & "|" & ForumID & """>" & vbNewLine
End If
If mlev = 3 or mlev = 4 Then
Response.Write " </Select>" & vbNewLine
End If
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
' ## Poll Below
If Request.QueryString("poll") = "1" and (strRqMethod = "Topic" or strRqMethod = "EditTopic") Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Who Votes:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <Select name=""WhoVotes"" size=""1"">" & vbNewLine & _
" <option value=""everyone"""
If strWhoVotes = "everyone" or strRqMethod = "Topic" Then
Response.Write(" SelectED")
End If
Response.Write ">Everyone</option>" & vbNewLine & _
" <option value=""members"""
If strWhoVotes = "members" Then
Response.Write(" SelectED")
End If
Response.Write ">Members Only</option>" & vbNewLine & _
" </Select></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
' ## Poll Above
If strRqMethod = "Forum" or _
strRqMethod = "EditForum" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Default Days:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><Select name=""DefaultDays"" size=""1"">" & vbNewLine & _
" <option value=""0"""
If fDefaultDays = "0" Then
Response.Write(" SelectED")
End If
Response.Write ">Show all topics</option>" & vbNewLine & _
" <option value=""-1"""
If fDefaultDays = "-1" Then
Response.Write(" SelectED")
End If
Response.Write ">Show all open topics</option>" & vbNewLine & _
" <option value=""1"""
If fDefaultDays = "1" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last day</option>" & vbNewLine & _
" <option value=""2"""
If fDefaultDays = "2" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 2 days</option>" & vbNewLine & _
" <option value=""5"""
If fDefaultDays = "5" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 5 days</option>" & vbNewLine & _
" <option value=""7"""
If fDefaultDays = "7" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 7 days</option>" & vbNewLine & _
" <option value=""14"""
If fDefaultDays = "14" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 14 days</option>" & vbNewLine & _
" <option value=""30"""
If fDefaultDays = "30" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 30 days</option>" & vbNewLine & _
" <option value=""60"""
If fDefaultDays = "60" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 60 days</option>" & vbNewLine & _
" <option value=""120"""
If fDefaultDays = "120" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from last 120 days</option>" & vbNewLine & _
" <option value=""365"""
If fDefaultDays = "365" Then
Response.Write(" SelectED")
End If
Response.Write ">Show topics from the last year</option>" & vbNewLine & _
" </Select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#defaultdays')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If strRqMethod = "Forum" or _
strRqMethod = "EditForum" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Increase Post Count:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><Select name=""ForumCntMPosts"" size=""1"">" & vbNewLine & _
" <option value=""0"""
If fForumCntMPosts = "0" Then
Response.Write(" SelectED")
End If
Response.Write ">No</option>" & vbNewLine & _
" <option value=""1"""
If fForumCntMPosts = "1" or fForumCntMPosts = "" Then
Response.Write(" SelectED")
End If
Response.Write ">Yes</option>" & vbNewLine & _
" </Select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#forumcntmposts')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If strRqMethod = "Category" or _
strRqMethod = "EditCategory" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "Forum" or _
strRqMethod = "EditForum" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Topic" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Subject:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""50"" name=""Subject"" value=""" & Trim(ChkString(TxtSub,"edit")) & """ size=""40""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <script language=""JavaScript"" type=""text/javascript"">document.PostTopic.Subject.focus();</script>" & vbNewLine
End If
If strRqMethod = "URL" or _
strRqMethod = "EditURL" Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Address:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""150"" name=""Address"" value="""
If (TxtURL <> "") Then
Response.Write(TxtURL)
Else
Response.Write("http://")
End If
Response.Write """ size=""40""><a href=""Javascript:openWindow3('pop_help.asp?mode=options#address')"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
%>
<!--#INCLUDE FILE="inc_messageicons.asp" -->
<%
' ## Events Calendar Below
%>
<!-- #include file="cal_post.asp" -->
<%
' ## Events Calendar Above
If strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
' ## Poll Below
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & vbNewLine
If strRqMethod = "Topic" or strRqMethod = "EditTopic" Then
If Request.QueryString("poll") = "1" Then
Response.Write "Poll Question:"
Else
Response.Write "Message:"
End If
Else
Response.Write "Message:"
End If
Response.Write "</b><br />" & vbNewLine
' ## Poll Above
Response.Write " <br />" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
If strAllowHTML = "1" Then
Response.Write " * HTML is ON<br />" & vbNewLine
Else
Response.Write " * HTML is OFF<br />" & vbNewLine
End If
If strAllowForumCode = "1" Then
Response.Write " * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
Else
Response.Write " * Forum Code is OFF<br />" & vbNewLine
End If
' ## SmileManager Plus Below
If strIcons = "1" and strShowSmiliesTable = "1" Then
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
End If
End If
' ## SmileManager Plus Above
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea id=""ta1"" class=""textarea"" cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onSelect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
Select Case strRqMethod
Case "Reply", "ReplyQuote", "TopicQuote"
Response.Write " <script language=""JavaScript"" type=""text/javascript"">document.PostTopic.Message.focus();</script>" & vbNewLine
End Select
If (strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum") and (mLev > 3 or lCase(strNoCookies) = "1") Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderators:</b></font></td>" & vbNewLine
strSql = "SELECT MEMBER_ID, M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_LEVEL > 1 "
strSql = strSql & " AND M_STATUS = " & 1
strSql = strSql & " ORDER BY M_NAME ASC "
Set rsModerators = Server.CreateObject("ADODB.RecordSet")
rsModerators.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsModerators.EOF Then
recModeratorsCount = ""
Else
allModeratorsData = rsModerators.GetRows(adGetRowsRest)
recModeratorsCount = UBound(allModeratorsData,2)
meMEMBER_ID = 0
meM_NAME = 1
End If
rsModerators.Close
Set rsModerators = Nothing
tmpStrUserList = ""
If strRqMethod = "EditForum" or strRqMethod = "EditURL" Then
strSql = "SELECT MO.MEMBER_ID, M.M_NAME "
strSql = strSql & " FROM " & strTablePrefix & "MODERATOR MO, " & strMemberTablePrefix & "MEMBERS M"
strSql = strSql & " WHERE MO.FORUM_ID = " & strRqForumID & " AND M.MEMBER_ID = MO.MEMBER_ID"
Set rsForumModerator = Server.CreateObject("ADODB.RecordSet")
rsForumModerator.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsForumModerator.EOF Then
recForumModeratorCount = ""
Else
allForumModeratorData = rsForumModerator.GetRows(adGetRowsRest)
recForumModeratorCount = UBound(allForumModeratorData,2)
moMEMBER_ID = 0
moM_NAME = 1
End If
rsForumModerator.Close
Set rsForumModerator = Nothing
If recForumModeratorCount <> "" Then
For iForumModerator = 0 to recForumModeratorCount
ForumModeratorMemberID = allForumModeratorData(moMEMBER_ID, iForumModerator)
If tmpStrUserList = "" Then
tmpStrUserList = ForumModeratorMemberID
Else
tmpStrUserList = tmpStrUserList & "," & ForumModeratorMemberID
End If
Next
End If
End If
SelectSize = 6
Response.Write " <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <table>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Available</b></font><br />" & vbNewLine & _
" <Select name=""ForumModCombo"" size=""" & SelectSize & """ multiple onDblClick=""MoveSelectedOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"">" & vbNewLine
If recModeratorsCount <> "" Then
For iModerators = 0 to recModeratorsCount
MembersMemberID = allModeratorsData(meMEMBER_ID, iModerators)
MembersMemberName = allModeratorsData(meM_NAME, iModerators)
If not(Instr("," & tmpStrUserList & "," , "," & MembersMemberID & ",") > 0) Then
Response.Write " <option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewLine
End If
Next
End If
Response.Write " </Select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td width=""15"" align=""center"" valign=""middle""><br />" & vbNewLine & _
" <a href=""javascript:MoveAllOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateRemAll,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveSelectedOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateReMove,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveSelectedOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAdd,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveAllOptions(document.PostTopic.ForumModCombo, document.PostTopic.ForumMod, true, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAddAll,"","") & "</a>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Selected</b></font><br />" & vbNewLine & _
" <Select name=""ForumMod"" size=""" & SelectSize & """ tabindex=""-1"" multiple onDblClick=""MoveSelectedOptions(document.PostTopic.ForumMod, document.PostTopic.ForumModCombo, true, '')"">" & vbNewLine
If strRqMethod = "EditForum" or strRqMethod = "EditURL" Then
If recForumModeratorCount <> "" Then
For iForumModerator = 0 to recForumModeratorCount
ForumModeratorMemberID = allForumModeratorData(moMEMBER_ID, iForumModerator)
ForumModeratorMemberName = chkString(allForumModeratorData(moM_NAME, iForumModerator), "display")
If ForumModeratorMemberID <> "" Then
Response.Write " <option value=""" & ForumModeratorMemberID & """>" & ForumModeratorMemberName & "</option>" & vbNewLine
End If
Next
End If
End If
Response.Write " </Select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top""> <a href=""Javascript:openWindow3('pop_help.asp?mode=options#moderators')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Category" or strRqMethod = "EditCategory" Then
If strSubscription > 0 and strEmail = "1" and _
((strRqMethod = "Category" or strRqMethod = "EditCategory") or _
((strRqMethod = "Forum" or strRqMethod = "EditForum") and (CatSubscription > 0))) Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Subscription:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <Select name=""Subscription"">" & vbNewLine
If strRqMethod = "Category" or strRqMethod = "EditCategory" Then
Response.Write " <option"
If CatSubscription = 0 Then
Response.Write " Selected "
End If
Response.Write " value=""0"">No Subscriptions Allowed</option>" & vbNewLine
If strSubscription < 3 Then
Response.Write " <option"
If CatSubscription = 1 Then
Response.Write " Selected "
End If
Response.Write " value=""1"">Category Subscriptions Allowed</option>" & vbNewLine
End If
If strSubscription < 4 Then
Response.Write " <option"
If CatSubscription = 2 Then
Response.Write " Selected "
End If
Response.Write " value=""2"">Forum Subscriptions Allowed</option>" & vbNewLine
End If
Response.Write " <option"
If CatSubscription = 3 Then
Response.Write " Selected "
End If
Response.Write " value=""3"">Topic Subscriptions Allowed</option>" & vbNewLine
Else
Response.Write " <option"
If ForumSubscription = 0 Then
Response.Write " Selected "
End If
Response.Write " value=""0"">No Subscriptions Allowed</option>" & vbNewLine
If strSubscription < 4 and CatSubscription < 3 Then
Response.Write " <option"
If ForumSubscription = 1 Then
Response.Write " Selected "
End If
Response.Write " value=""1"">Forum Subscriptions Allowed</option>" & vbNewLine
End If
Response.Write " <option"
If ForumSubscription = 2 Then
Response.Write " Selected "
End If
Response.Write " value=""2"">Topic Subscriptions Allowed</option>" & vbNewLine
End If
Response.Write " </Select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#subscription')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If strModeration > 0 and _
((strRqMethod = "Category" or strRqMethod = "EditCategory") or _
((strRqMethod = "Forum" or strRqMethod = "EditForum") and CatModeration > 0)) Then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderation:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <Select name=""Moderation"">" & vbNewLine
If strRqMethod = "Category" or strRqMethod = "EditCategory" Then
Response.Write " <option"
If CatModeration = 0 Then
Response.Write " Selected "
End If
Response.Write " value=""0"">Moderation Not Allowed in this Category</option>" & vbNewLine & _
" <option"
If CatModeration = 1 Then
Response.Write " Selected "
End If
Response.Write " value=""1"">Moderation Allowed in this Category</option>" & vbNewLine
Else
Response.Write " <option"
If ForumModeration = 0 Then
Response.Write " Selected "
End If
Response.Write " value=""0"">No Moderation For this forum</option>" & vbNewLine & _
" <option"
If ForumModeration = 1 Then
Response.Write " Selected "
End If
Response.Write " value=""1"">All Posts Moderated</option>" & vbNewLine & _
" <option"
If ForumModeration = 2 Then
Response.Write " Selected "
End If
Response.Write " value=""2"">Original Posts Only Moderated</option>" & vbNewLine & _
" <option"
If ForumModeration = 3 Then
Response.Write " Selected "
End If
Response.Write " value=""3"">Replies Only Moderated</option>" & vbNewLine
End If
Response.Write " </Select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#moderation')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
End If
If strRqMethod = "Edit" or _
strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
' ## Proeders File Attachment Below
If strAllowAttachment = 1 Then
Response.Write "<tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""center"">" & vbNewLine & _
" <a href=""#"" onMouseover=""this.style.cursor='pointer'"" onClick=""window.open('pop_upload_new.asp','Uploading','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=800,height=330');""><acronym title=""Attach a file..."">" & getCurrentIcon(strIconPaperClip,"","") & "</acronym></a><acronym title=""Attach a file...""> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """></font></acronym>" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine
End If
' ## Proeders File Attachment Above
' ## Poll Below
Response.Write " <tr>" & vbNewLine
If strRqMethod = "EditTopic" or _
strRqMethod = "Topic" Then
If Request.QueryString("poll") = "1" Then
Response.Write "<td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right"">" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Poll Answers:</b></font><br /><br />" & vbNewLine & _
" <table width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
" * Enter at least two<br />" & vbNewLine & _
" * 100 characters each</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
"</td>" & vbNewLine & _
"<td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
"<p>"
If strRqMethod = "Topic" Then
ReDim txtAns(strMaxVotes)
For i = 1 to strMaxVotes
txtAns(i) = ""
Next
nCount = strMaxVotes
End If
For m = 1 to nCount
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & m & ":<input name=""answer" & m & """ type=""text"" value=""" & Trim(CleanCode(txtAns(m))) & """ size=""40"" maxlength=""100""></font><br />" & vbNewLine
Next
Response.Write "</p>" & vbNewLine
Else
Response.Write "<td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
"<td bgColor=""" & strPopUpTableColor & """>"& vbNewLine
End If
Else
Response.Write "<td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
"<td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
End If
' ## Poll Above
If strRqMethod = "Edit" or strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "EditTopic" or strRqMethod = "TopicQuote" Then
' ## Topic Rating Below
If strRqMethod = "EditTopic" or _
strRqMethod = "Topic" Then
strSql = "Select " & strTablePrefix & "FORUM.F_RATING_AUTH " &_
" FROM " & strTablePrefix & "FORUM " &_
" WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumId & ""
Set rsForumTRating = my_Conn.execute (strSql)
tTopicRatingAuth = rsForumTRating("F_RATING_AUTH")
If strRqMethod = "EditTopic" Then
If tTopicRatingAuth = 1 Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"& vbNewLine & _
" <input name=""AllowRating"" type=""checkbox"" value=""1"" "
If tAllowRating = 1 Then
Response.Write("checked>")
Else
Response.Write(">")
End If
Response.Write "Check here to allow others to rate this topic.<br>" & vbNewLine & _
"</font>" & vbNewLine
End If
End If
If strRqMethod = "Topic" Then
If tTopicRatingAuth = 1 Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<input name=""AllowRating"" type=""checkbox"" value=""1"" checked >Check here to allow others to rate this topic.<br>" &vbNewLine & _
"</font>" & vbNewLine
End If
End If
Set rsForumTRating = Nothing
End If
' ## Topic Rating Above
If (strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote") and strSignatures = "1" and strDSignatures <> "1" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
intSigDefault = getSigDefault(MemberID)
Response.Write " <input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & "><label for=""Sig"">Check here to include your profile signature.</label><br /></font>" & vbNewLine
End If
If strSignatures = "1" and strDSignatures = "1" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
If strRqMethod = "Edit" Then
Response.Write "<input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(strReplySig,1,true) & "><label for=""Sig"">Check here to include your profile signature.</label><br /></font>" & vbNewLine
ElseIf strRqMethod = "EditTopic" Then
Response.Write "<input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(strTopicSig,1,true) & "><label for=""Sig"">Check here to include your profile signature.</label><br /></font>" & vbNewLine
Else
intSigDefault = getSigDefault(MemberID)
Response.Write "<input name=""Sig"" id=""Sig"" type=""checkbox"" value=""yes""" & chkCheckbox(intSigDefault,1,true) & "><label for=""Sig"">Check here to include your profile signature.</label><br /></font>" & vbNewLine
End If
End If
If strSubscription > 0 and postCat_Subscription > 0 and postForum_Subscription > 0 and strEmail = 1 Then
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
SubLinkFontStart = " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
SubLinkFontEnd = "<br /></font>" & vbNewLine
If InArray(strTopicSubs, strRqTopicID) and strRqMethod <> "Topic" Then
Response.Write SubLinkFontStart & ShowSubLink ("U", strRqCatID, strRqForumID, strRqTopicID, "Y") & SubLinkFontEnd
ElseIf strBoardSubs <> "Y" and not(InArray(strForumSubs,strRqForumID) or InArray(strCatSubs,strRqCatID)) Then
Response.Write SubLinkFontStart & ShowSubLink ("S", strRqCatID, strRqForumID, strRqTopicID, "Y") & SubLinkFontEnd
End If
End If
If ((mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1")) _
and (strRqMethod = "Topic" or strRqMethod = "EditTopic" or strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote") Then
If strStickyTopic = "1" Then
If strRqMethod = "Topic" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""sticky"" id=""sticky"" type=""checkbox"" value=""1""><label for=""sticky"">Check here to make this topic sticky.</label><br /></font>" & vbNewLine
ElseIf strRqMethod = "EditTopic" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""sticky"" id=""sticky"" type=""checkbox"" value=""1""" & chkCheckbox(strTopicSticky,1,true) & "><label for=""sticky"">Check here to make this topic sticky.</label><br /></font>" & vbNewLine
End If
End If
If blnTStatus = 1 Then
If strRqMethod <> "EditTopic" Then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""lock"" id=""lock"" type=""checkbox"" value=""1""><label for=""lock"">Check here to lock the topic after this post.</label><br /></font>" & vbNewLine
End If
End If
End If
' ## Poll Below
If Request.QueryString("poll") = "1" Then
If (AdminAllowed = "1" or mLev = "2") and (FPolls <> "0") Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<input name=""lockpoll"" type=""checkbox"" value=""1"""
If blnPSTatus = "0" Then
Response.Write(" checked")
End If
Response.Write ">Check here to lock/unlock the poll after this post.<br /></font>" & vbNewLine
End If
If strRqMethod <> "Topic" and (AdminAllowed = "1" or mLev = "2") Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<input name=""reSetpoll"" type=""checkbox"" value=""1"">Check here to reSet the poll votes.</font>" & vbNewLine
End If
End If
' ## Poll Above
If (strDBNTUserName = "" and strSignatures <> "1") or (strRqMethod = "EditTopic" and strDSignatures <> "1") Then
Response.Write " " & vbNewLine
End If
End If
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
If strPrivateForums <> "0" Then
If strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" Then
If strRqMethod = "EditForum" or _
strRqMethod = "EditURL" Then
ForumAuthType = fPrivateForums
Else
ForumAuthType = 0
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Auth Type:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <Select readonly name=""AuthType"">" & vbNewLine & _
" <option value=""0"""
If ForumAuthType = 0 Then
Response.Write(" Selected")
End If
Response.Write ">All Visitors</option>" & vbNewLine & _
" <option value=""4"""
If ForumAuthType = 4 Then
Response.Write(" Selected")
End If
Response.Write ">Members Only</option>" & vbNewLine & _
" <option value=""5"""
If ForumAuthType = 5 Then
Response.Write(" Selected")
End If
Response.Write ">Members Only (Hidden)</option>" & vbNewLine
If strRqMethod = "Forum" or _
strRqMethod = "EditForum" Then
Response.Write " <option value=""2"""
If ForumAuthType = 2 Then
Response.Write(" Selected")
End If
Response.Write ">Password Protected</option>" & vbNewLine & _
" <option value=""7"""
If ForumAuthType = 7 Then
Response.Write(" Selected")
End If
Response.Write ">Members Only & Password Protected</option>" & vbNewLine & _
" <option value=""3"""
If ForumAuthType = 3 Then
Response.Write(" Selected")
End If
Response.Write ">Allowed Member List & Password Protected</option>" & vbNewLine
End If
Response.Write " <option value=""1"""
If ForumAuthType = 1 Then
Response.Write(" Selected")
End If
Response.Write ">Allowed Member List</option>" & vbNewLine & _
" <option value=""6"""
If ForumAuthType = 6 Then
Response.Write(" Selected")
End If
Response.Write ">Allowed Member List (Hidden)</option>" & vbNewLine
If strNTGroups = "1" Then
Response.Write " <option value=""9"""
If ForumAuthType = 9 Then
Response.Write(" Selected")
End If
Response.Write ">NT Global Group</option>" & vbNewLine & _
" <option value=""8"""
If ForumAuthType = 8 Then
Response.Write(" Selected")
End If
Response.Write ">NT Global Group (Hidden)</option>" & vbNewLine
End If
Response.Write " </Select> <a href=""Javascript:openWindow3('pop_help.asp?mode=options#authtype')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a>" & vbNewLine
' ## Topic Rating Below
If strRqMethod = "Forum" or _
strRqMethod = "EditForum" Then
Response.Write " "& vbNewLine & _
"<input type=""checkbox"" name=""RatingAuth"" value=""1"" font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ "
If tRatingAuth = 1 Then
Response.Write("checked>")
Else
Response.Write(">")
End If
Response.Write "Allow Topic Rating"
End If
' ## Topic Rating Above
If strRqMethod = "Forum" or _
strRqMethod = "EditForum" Then
If strRqMethod = "EditForum" Then
If fPasswordNew <> " " Then
strPassword = fPasswordNew
Else
strPassword = " "
End If
Else
strPassword = " "
End If
Response.Write " <br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Password"
If strNTGroups = "1" Then
Response.Write(" or Global Groups")
End If
Response.Write ":</b><br /></font>" & vbNewLine & _
" <input maxLength=""255"" type=""text"" name=""AuthPassword"" size=""50"" value=""" & strPassword & """>"
End If
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Allowed Member List:</b></font></td>" & vbNewLine
strSql = "SELECT MEMBER_ID, M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_STATUS = " & 1
strSql = strSql & " ORDER BY M_NAME ASC "
Set rsMember = Server.CreateObject("ADODB.RecordSet")
rsMember.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsMember.EOF Then
recMemberCount = ""
Else
allMemberData = rsMember.GetRows(adGetRowsRest)
recMemberCount = UBound(allMemberData,2)
meMEMBER_ID = 0
meM_NAME = 1
rsMember.Close
End If
Set rsMember = Nothing
tmpStrUserList = ""
If strRqMethod = "EditForum" or strRqMethod = "EditURL" Then
strSql = "SELECT AM.MEMBER_ID, M.M_NAME"
strSql = strSql & " FROM " & strTablePrefix & "ALLOWED_MEMBERS AM, " & strMemberTablePrefix & "MEMBERS M"
strSql = strSql & " WHERE AM.FORUM_ID = " & strRqForumID & " AND M.MEMBER_ID = AM.MEMBER_ID"
Set rsAllowedMember = Server.CreateObject("ADODB.RecordSet")
rsAllowedMember.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsAllowedMember.EOF Then
recAllowedMemberCount = ""
Else
allAllowedMemberData = rsAllowedMember.GetRows(adGetRowsRest)
recAllowedMemberCount = UBound(allAllowedMemberData,2)
amMEMBER_ID = 0
amM_NAME = 1
rsAllowedMember.Close
End If
Set rsAllowedMember = Nothing
If recAllowedMemberCount <> "" Then
For iAllowedMember = 0 to recAllowedMemberCount
AllowedMembersMemberID = allAllowedMemberData(amMEMBER_ID, iAllowedMember)
If tmpStrUserList = "" Then
tmpStrUserList = AllowedMembersMemberID
Else
tmpStrUserList = tmpStrUserList & "," & AllowedMembersMemberID
End If
Next
End If
End If
SelectSize = 6
Response.Write " <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <table>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Available</b></font><br />" & vbNewLine & _
" <Select name=""AuthUsersCombo"" size=""" & SelectSize & """ multiple onDblClick=""MoveSelectedOptions(document.PostTopic.AuthUsersCombo, document.PostTopic.AuthUsers, false, '')"">" & vbNewLine
If recMemberCount <> "" Then
For iMembers = 0 to recMemberCount
MembersMemberID = allMemberData(meMEMBER_ID, iMembers)
MembersMemberName = allMemberData(meM_NAME, iMembers)
If not(Instr("," & tmpStrUserList & "," , "," & MembersMemberID & ",") > 0) Then
Response.Write " <option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewLine
End If
Next
End If
Response.Write " </Select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td width=""15"" align=""center"" valign=""middle""><br />" & vbNewLine & _
" <a href=""javascript:MoveAllOptions(document.PostTopic.AuthUsers, document.PostTopic.AuthUsersCombo, false, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateRemAll,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveSelectedOptions(document.PostTopic.AuthUsers, document.PostTopic.AuthUsersCombo, false, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateReMove,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveSelectedOptions(document.PostTopic.AuthUsersCombo, document.PostTopic.AuthUsers, false, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAdd,"","") & "</a>" & vbNewLine & _
" <a href=""javascript:MoveAllOptions(document.PostTopic.AuthUsersCombo, document.PostTopic.AuthUsers, false, '')"" tabindex=""-1"">" & getCurrentIcon(strIconPrivateAddAll,"","") & "</a>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Selected</b></font><br />" & vbNewLine & _
" <Select name=""AuthUsers"" size=""" & SelectSize & """ tabindex=""-1"" multiple onDblClick=""MoveSelectedOptions(document.PostTopic.AuthUsers, document.PostTopic.AuthUsersCombo, false, '')"">" & vbNewLine
If strRqMethod = "EditForum" or strRqMethod = "EditURL" Then
If recAllowedMemberCount <> "" Then
For iAllowedMember = 0 to recAllowedMemberCount
AllowedMembersMemberID = allAllowedMemberData(amMEMBER_ID, iAllowedMember)
AllowedMembersMemberName = chkString(allAllowedMemberData(amM_NAME, iAllowedMember), "display")
If AllowedMembersMemberID <> "" Then
Response.Write " <option value=""" & AllowedMembersMemberID & """>" & AllowedMembersMemberName & "</option>" & vbNewLine
End If
Next
End If
End If
Response.Write " </Select>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td valign=""top""> <a href=""Javascript:openWindow3('pop_help.asp?mode=options#memberlist')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
End If
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input name=""Submit"" type=""submit"" value=""" & btn & """"
If strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" Then
If strPrivateForums <> "0" Then
If mLev = 3 Then
Response.Write " onclick=""SelectAllOptions(document.PostTopic.AuthUsers);"""
Else
Response.Write " onclick=""SelectAllOptions(document.PostTopic.AuthUsers);SelectAllOptions(document.PostTopic.ForumMod);"""
End If
Else
If mLev > 3 Then
Response.Write " onclick=""SelectAllOptions(document.PostTopic.ForumMod);"""
End If
End If
Response.Write ">"
If strAllowForumCode = "1" or strAllowHTML = "1" Then
If strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" Then
Response.Write " <input name=""Preview"" type=""button"" value="" Preview "" onclick=""OpenPreview()"">"
' ## User Space Below
' ## Draft Below
Select Case strRqMethod
Case "Reply", "ReplyQuote", "Topic", "TopicQuote"
Response.Write " <input name=""Submit"" type=""submit"" value="" Save as Draft ""><input type=""hidden"" value=""" & strRqDraftID & """ name=""draft"">"
End Select
' ## Draft Above
' ## User Space Above
End If
End If
End If
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form> " & vbNewLine
If strRqMethod = "Edit" or strRqMethod = "EditTopic" or strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" Then
Response.Write "<script type=""text/javascript""> var googie1 = new GoogieSpell(""googiespell/"", ""./googie.asp?lang=""); googie1.decorateTextarea(""ta1"");</script>" & vbNewLine
End If
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
If strRqMethod = "Reply" or _
strRqMethod = "TopicQuote" or _
strRqMethod = "ReplyQuote" Then
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ colspan=""2"" align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>T O P I C R E V I E W</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
If (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") Then
Moderation = "N"
Else
strSQL = "SELECT C.CAT_MODERATION, F.F_MODERATION "
strSQL = strSQL & "FROM " & strTablePrefix & "CATEGORY C, " & strTablePrefix & "FORUM F "
strSQL = strSQL & " WHERE C.CAT_ID = " & strRqCatID
strSQL = strSQL & " AND F.FORUM_ID = " & strRqForumID
Set rsa = my_Conn.Execute (strSql)
If strModeration = 1 and rsa("CAT_MODERATION") = 1 and (rsa("F_MODERATION") = 1 or rsa("F_MODERATION") = 3) Then
Moderation = "Y"
Else
Moderation = "N"
End If
Set rsa = Nothing
End If
strSql = "SELECT M.M_NAME, T.T_DATE, T.T_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "TOPICS T "
strSql = strSql & " WHERE M.MEMBER_ID = T.T_AUTHOR AND T.TOPIC_ID = " & strRqTopicID
Set rs = my_Conn.Execute (strSql)
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"" width=""" & strTopicWidthLeft & """"
If lCase(strTopicNoWrapLeft) = "1" Then
Response.Write " nowrap"
End If
Response.Write "><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & ChkString(rs("M_NAME"),"display") & "</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"" width=""" & strTopicWidthRight & """"
If lCase(strTopicNoWrapRight) = "1" Then
Response.Write " nowrap"
End If
Response.Write "><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><small>Posted - " & ChkDate(rs("T_DATE"), " :" ,true) & "</small><hr size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & formatStr(rs("T_MESSAGE")) & "</span></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
rs.Close
Set rs = Nothing
strSql ="SELECT M.M_NAME, R.R_DATE, R.R_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R "
strSql = strSql & " WHERE M.MEMBER_ID = R.R_AUTHOR AND R.TOPIC_ID = " & strRqTopicID
If Moderation = "Y" Then
strSql = strSql & " AND R.R_STATUS < 2 " ' Ignore unapproved and rejected posts...
Else
strSql = strSql & " AND R.R_STATUS < 3 " ' Ignore all rejected posts....
End If
strSql = strSql & " ORDER BY R.R_DATE DESC;"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open TopSQL(strSql,strPageSize), my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rs.EOF Then
recReplyCount = ""
Else
allReplyData = rs.GetRows(adGetRowsRest)
recReplyCount = UBound(allReplyData,2)
rs.Close
End If
Set rs = Nothing
strI = 0
If recReplyCount = "" Then
Response.Write ""
Else
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ colspan=""2"" align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>" & recReplyCount+1 & " L A T E S T R E P L I E S (Newest First)</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
mM_NAME = 0
rR_DATE = 1
rR_MESSAGE = 2
For iReply = 0 to recReplyCount
ReplyMemberName = allReplyData(mM_NAME, iReply)
ReplyDate = allReplyData(rR_DATE, iReply)
ReplyMessage = allReplyData(rR_MESSAGE, iReply)
If strI = 0 Then
CColor = strAltForumCellColor
Else
CColor = strForumCellColor
End If
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top""" & vbNewLine
If lCase(strTopicNoWrapLeft) = "1" Then
Response.Write " nowrap"
End If
Response.Write "><b><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(ReplyMemberName,"display") & "</font></b></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ valign=""top"""
If lCase(strTopicNoWrapRight) = "1" Then
Response.Write " nowrap"
End If
Response.Write "><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><small>Posted - " & ChkDate(ReplyDate, " :" ,true) & "</small><hr size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & formatStr(ReplyMessage) & "</span></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
strI = 1 - strI
Next
End If
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
End If
WriteFooter
Function Go_Result(message)
Response.write " <br /><div align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiliteFontColor & """>" & message & "</font></div>" & vbNewLine & _
" <br />" & vbNewLine & _
" <meta http-equiv=""Refresh"" content=""2; URL=default.asp"">"
WriteFooter
Response.End
End Function
%>
Posted - 13 July 2012 : 00:53:31
