I'm having trouble with allowing a member in on a hidden forum.
It will allow me to select a member like it's working but when I go back in that area, the member is no longer selected. So, the member is unable to view the forum.
Would the problem be in my post.asp?
Here's that file if someone could help, please.
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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="googiespell/inc_googie.asp" -->
<!--#INCLUDE FILE="config.asp"-->
<%
dim strSelectSize
dim intCols, intRows
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
rsCal.Close
End If
Set rsCal = Nothing
If not blnCalAllowed Then
Go_Result strCalError0
End If
if ((mlev < intCalMLev) AND (MemberID<>63)) 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
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 & ""
else
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 > 3 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
If (blnTStatus = 2) Then
Go_Result "You have attempted to Reply to a Moderated 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
'####### Begin UserGroup MOD #######
if isDeniedMember(strRqForumID,MemberID) = 1 then
Go_Result "You have been denied access to this forum"
end if
if isReadOnly(strRqForumID,MemberID) = 1 then
Go_Result "You must be a member of this group in order to reply"
end if
'####### End UserGroup MOD #######
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 > 3) 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
' ## Message Icon Below
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")
' ## Message Icon Above
Else
If strRqMethod = "ReplyQuote" Then
TxtMsg = "quote:
Originally posted by " & chkString(rs("M_NAME"),"display") & "" & vbNewLine
TxtMsg = TxtMsg & "
" & rs("R_MESSAGE") & vbNewLine
TxtMsg = TxtMsg & "
"
End If
End If
Set rs = Nothing
End If
If strRqMethod = "EditTopic" or strRqMethod = "TopicQuote" Then
strSql = "SELECT M.M_NAME, "
strSql = strSql & "T.CAT_ID, "
strSql = strSql & "T.FORUM_ID, "
strSql = strSql & "T.TOPIC_ID, "
strSql = strSql & "T.T_SUBJECT, "
strSql = strSql & "T.T_AUTHOR, "
strSql = strSql & "T.T_STICKY, "
strSql = strSql & "T.T_SIG, "
strSql = strSql & "T.T_MESSAGE, "
' ## Message Icon Below
strSql = strSql & "T.T_MSGICON, "
' ## Message Icon Above
' ## Topic Rating Below
strSql = strSql & "T.ALLOW_RATING "
' ## Topic Rating Above
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")
' ## Message Icon Below
MsgIcon = rs("T_MSGICON")
' ## Message Icon Above
Else
If strRqMethod = "TopicQuote" Then
TxtMsg = "quote:
Originally posted by " & chkString(rs("M_NAME"),"display") & "" & vbNewLine
TxtMsg = TxtMsg & "
" & rs("T_MESSAGE") & vbNewLine
TxtMsg = TxtMsg & "
"
End If
End If
' ## Topic Rating Below
tAllowRating = rs("ALLOW_RATING")
' ## Topic Rating Above
Set rs = Nothing
' ## User Space Below
' ## Drafts Below
%>
<!--#INCLUDE FILE="inc_draft.asp" -->
<%
' ## Drafts Above
' ## User Space Above
' ## Poll Below
If Request("poll") = "1" Then
strSql = "SELECT " & strTablePrefix & "POLLS.P_WHOVOTES, "
strSql = strSql & strTablePrefix & "POLLS.P_ENDDATE, "
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 = cInt(strMaxVotes)
Else
nCount = nTotal
End If
End If
rsPoll.Close
Set rsPoll = Nothing
End If
' ## Poll Above
End If
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
' ## Events Calendar Below
strSql = "SELECT F_SUBJECT, F_URL, F_PRIVATEFORUMS, F_PASSWORD_NEW, "
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")
end if
If strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
TxtSub = rs("F_SUBJECT")
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
If strRqMethod = "EditCategory" or strRqMethod = "EditForum" or strRqMethod = "EditURL" or strRqMethod = "Forum" then
'## Forum_SQL
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"">COMMUNITY HOME</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
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 align=""center"" bgColor=""#67060D""><td colspan=""2""><font color=""#ffffff""face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b> </b></font></td></tr>" & vbNewLine & _
" <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
'GateKeeper Mod
if strLinkSpamGatekeeper = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Antispam question:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & strGatekeeperQuestion & "</td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Answer:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""><input name=""GateKeeperAnswer"" size=""25"" type=""text"" value=""" & Request.Form("GateKeeperAnswer") & """></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
'GateKeeper Mod
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
' ## Sub-Forums Below
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
' ## Sub-Forums Above
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
'Davio - Commented out below code. Doesn't seem to be needed anymore.
' If recCatCount <> "" Then
' cCAT_ID = 0
' cCAT_NAME = 1
' for iCat = 0 to recCatCount
' CatID = allCatData(cCAT_ID,iCat)
' CatName = allCatData(cCAT_NAME,iCat)
' Response.Write " <option value=""" & CatID & """"
' If cLng(strRqCatID) = CatID Then
' Response.Write " SELECTED"
' End If
' Response.Write ">" & ChkString(CatName,"display") & "</option>" & vbNewLine
' next
'End If
'Response.Write " </Select>" & vbNewLine & _
' " </tr>" & vbNewLine */
' ## 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""" & chkSelect(FPolls,0) & ">Don't Allow Polls</option>" & vbNewLine & _
" <option value=""1""" & chkSelect(FPolls,1) & ">Allow All Members</option>" & vbNewLine & _
" <option value=""2""" & chkSelect(FPolls,2) & ">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 = " & strRqForumID
End If
End If
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)
rsForum.Close
End If
Set rsForum = Nothing
If mlev > 2 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
Response.Write " <tr>" & vbNewline & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Poll Duration (days):</b></font></td>" & vbNewline & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewline & _
" <input type=""text"" name=""PEndDate"" size=""30"" maxlength=""3"" />" & vbNewline & _
" </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
' ## 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
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 = "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
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
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
rsModerators.Close
End If
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
rsForumModerator.Close
End If
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
' ## 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
If strRqMethod = "Topic" Then
ReDim txtAns(strMaxVotes)
For i = 1 to strMaxVotes
txtAns(i) = ""
Next
nCount = strMaxVotes
End If
Response.Write "<td bgColor=""" & strPopUpTableColor & """><table bgColor=""" & strForumPopUpTableColor & """>" & vbNewLine
For m = 1 to nCount
Response.Write "<tr><td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & m & ":<input name=""answer" & m & """ type=""text"" value=""" & chkString(txtAns(m),"SQLString") & """ size=""40"" maxlength=""100""></font></td></tr>" & vbNewLine
Next
Response.Write "</table></td></tr>" & vbNewLine
End If
End If
' ## Poll Above
' ## Proeders File Attachment Below
If strAllowAttachment = 1 Then
Response.Write "<tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""#67060D"" 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=""Click here to upload an image to your post..."">" & getCurrentIcon(strIconPaperClip,"","") & "</acronym></a><acronym title=""Click here to upload an image to your post...""> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """></font></acronym>" & vbNewLine & _
"</td>" & vbNewLine & _
"</tr>" & vbNewLine
End If
' ## Proeders File Attachment Above
'Davio - Added the 3 lines below.
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
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 > 3) 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
If strRqMethod = "Forum" or strRqMethod = "EditForum" Then
Response.Write " <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
End If
Response.Write " <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
'####### Begin UserGroup MOD #######
if strRqMethod = "Forum" or strRqMethod = "URL" or strRqMethod = "EditURL" or strRqMethod = "EditForum" then
if mlev = 4 or (mlev = 3 and CInt(strUGModForums) > 0) then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserGroup Permissions:</b></font></td>" & vbNewLine &_
" <td bgColor=""" & strPopUpTableColor & """ noWrap align=""left"">" & vbNewLine &_
" <table width=""100%"">" & vbNewLine &_
" <tr><td colspan=""2""><font size=""" & strDefaultFontSize & """><b>UserGroup</b></font></td><td align=""right""><font size=""" & strDefaultFontSize & """><b>Permissions</b></font></td></tr>" & vbNewLine
strSql = "SELECT USERGROUP_ID, USERGROUP_NAME, MOD_HIDE "
strSql = strSql & " FROM " & strTablePrefix & "USERGROUPS "
strSql = strSql & " ORDER BY USERGROUP_NAME "
set rsUGs = my_Conn.execute(strSql)
arUGs = Null
if not rsUGs.bof and not rsUGs.eof then arUGs = rsUGs.GetRows
rsUGs.close
set rsUGs = Nothing
if not IsNull(arUGs) then
for UGCnt = LBound(arUGs,2) to UBound(arUGs,2)
if (arUGs(2,UGCnt) = 0 and mlev = 3) or mlev = 4 then
strPerms = Null
if strRqMethod = "EditURL" or strRqMethod = "EditForum" then
strSql = "SELECT PERMS FROM " & strTablePrefix & "ALLOWED_USERGROUPS " &_
"WHERE FORUM_ID = " & strRqForumID & " AND USERGROUP_ID = " & arUGs(0,UGCnt)
set rsPerms = my_Conn.execute(strSql)
if not rsPerms.bof and not rsPerms.eof then strPerms = rsPerms("PERMS")
rsPerms.close
set rsPerms = Nothing
end if
response.write " <tr>" & vbNewline &_
" <td width=""10"">" & vbNewline &_
" <a href=""usergroups.asp?mode=ViewUsers&ID=" & arUGs(0,UGCnt) & """>" & getCurrentIcon(strIconGroup,"View UserGroup Members","hspace=""0""") & "</a>" & vbNewline
if mlev = 4 then response.write " <a href=""admin_usergroups.asp?mode=Modify&ID=" & arUGs(0,UGCnt) & """>" & getCurrentIcon(strIconPencil,"Edit UserGroup Properties","hspace=""0""") & "</a>" & vbNewline
response.write " </td>" & vbNewline &_
" <td><font size=""" & strDefaultFontSize & """>" & chkString(arUGs(1,UGCnt),"display") & "</font></td>" & vbNewline &_
" <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if CInt(strUGModForums) = 1 and mlev = 3 then
Select Case strPerms
Case 0 strPermsDesc = "Allow"
Case 1 strPermsDesc = "Deny"
Case 2 strPermsDesc = "Read-Only"
Case Else strPermsDesc = "Not Set"
End Select
response.write strPermsDesc
else
response.write "<select name=""Perms" & arUGs(0,UGCnt) & """>" & vbNewline &_
" <option value=""notset""" & chkSelect(strPerms,Null) & ">Do Not Set</option>" & vbNewline
if (ForumAuthType = 1 or ForumAuthType = 6 or ForumAuthType = 3) then response.write " <option value=""0""" & chkSelect(strPerms,0) & ">Allow</option>" & vbNewline
response.write " <option value=""2""" & chkSelect(strPerms,2) & ">Read-Only</option>" & vbNewline &_
" <option value=""1""" & chkSelect(strPerms,1) & ">Deny</option>" & vbNewline &_
" </select>"
end if
response.write "</font></td>" & vbNewline &_
" </tr>" & vbNewline
end if
next
else
response.write " <tr><td colspan=""3""><font size=""" & strDefaultFontSize & """>No usergroups were found.</font></td></tr>" & vbNewline
end if
response.write " </table>" & vbNewline &_
" </td>" & vbNewline &_
" </tr>" & vbNewline
end if
end if
'####### End UserGroup MOD #######
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
End If
Response.Write ">"
%>
<script language="JavaScript" type="text/javascript">
document.PostTopic.Submit.disabled=false;
</script>
<%
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
' ## Poll Below
If Request("poll") = "1" Then
Response.Write " <input name=""Ppoll"" type=""hidden"" value=""1"">" & vbNewLine & _
" <input name=""PCount"" type=""hidden"" value=""" & nCount & """>" & vbNewLine
End If
' ## Poll Above
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </form> " & vbNewLine
' ## GoogieSpell Below
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
' ## GoogieSpell Above
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 > 3) 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 - 14 December 2013 : 13:24:04
