<% CurPageType = "forums" CurPageInfoChk = "1" function CurPageInfo () strOnlineQueryString = ChkActUsrUrl(Request.QueryString) If Request.QueryString("method") = "Reply" Then PageName = Request.QueryString("Topic_Title") PageAction = "Replying To Message
" PageLocation = "topic.asp?" & strOnlineQueryString & "" ElseIf Request.QueryString("method") = "Topic" Then PageName = Request.QueryString("Forum_Title") PageAction = "Posting New Topic in
" PageLocation = "forum.asp?" & strOnlineQueryString & "" else PageName = "Unknown" PageAction = "Unknown" PageLocation = "fhome.asp" end if CurPageInfo = PageAction & " " & "" & PageName & "" end function %> <% '################################################################################# '## Variable declaration '################################################################################# dim strSelecSize dim intCols, intRows %> <% '################################################################################# '## Initialise variables '################################################################################# strSelectSize = Request.Form("SelectSize") strRqMethod = chkString(Request.QueryString("method"), "SQLString") if Request.QueryString("TOPIC_ID") <> "" or Request.QueryString("TOPIC_ID") <> " " then if IsNumeric(Request.QueryString("TOPIC_ID")) = True then strRqTopicID = cLng(Request.QueryString("TOPIC_ID")) else Response.Redirect("fhome.asp") end if end if if Request.QueryString("FORUM_ID") <> "" or Request.QueryString("FORUM_ID") <> " " then if IsNumeric(Request.QueryString("FORUM_ID")) = True then strRqForumID = cLng(Request.QueryString("FORUM_ID")) else Response.Redirect("fhome.asp") end if end if if Request.QueryString("CAT_ID") <> "" or Request.QueryString("CAT_ID") <> " " then if IsNumeric(Request.QueryString("CAT_ID")) = True then strRqCatID = cLng(Request.QueryString("CAT_ID")) else Response.Redirect("fhome.asp") end if end if if Request.QueryString("REPLY_ID") <> "" or Request.QueryString("REPLY_ID") <> " " then if IsNumeric(Request.QueryString("REPLY_ID")) = True then strRqReplyID = cLng(Request.QueryString("REPLY_ID")) else Response.Redirect("fhome.asp") end if end if strCkPassWord = chkString(Request.Cookies(strUniqueID & "User")("Pword"), "SQLString") '################################################################################# '## Page-code start '################################################################################# if strSelectSize = "" or IsNull(strSelectSize) then strSelectSize = Request.Cookies(strCookieURL & "strSelectSize") end if if not(IsNull(strSelectSize)) then Response.Cookies(strCookieURL & "strSelectSize") = strSelectSize Response.Cookies(strCookieURL & "strSelectSize").expires = Now() + 365 end if %> <% if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then '## Forum_SQL - Find out if the Category/Forum/Topic is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS, " & strTablePrefix & "FORUM.F_STATUS" if strRqMethod <> "Topic" then strSql = strSql & ", " & strTablePrefix & "TOPICS.T_STATUS " end if strSql = strSql & " FROM " & strTablePrefix & "CATEGORY, " & strTablePrefix & "FORUM" if strRqMethod <> "Topic" then strSql = strSql & ", " & strTablePrefix & "TOPICS " end if strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumID strSql = strSql & " AND " & strTablePrefix & "FORUM.CAT_ID = " & strRqCatID if strRqMethod <> "Topic" then strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID strSql = strSql & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & strRqForumID strSql = strSql & " AND " & strTablePrefix & "TOPICS.CAT_ID = " & strRqCatID end if set rsStatus = my_Conn.Execute(strSql) if rsStatus.EOF or rsStatus.BOF then Go_Result "Please don't attempt to edit the URL
to gain access to locked Forums/Categories." else blnCStatus = rsStatus("CAT_STATUS") blnFStatus = rsStatus("F_STATUS") if strRqMethod <> "Topic" then blnTStatus = rsStatus("T_STATUS") end if rsStatus.close set rsStatus = nothing end if if (mLev = 4) or (chkForumModerator(strRqForumID, ChkString(strDBNTUserName, "decode"))= "1") or (lcase(strNoCookies) = "1") then AdminAllowed = 1 else AdminAllowed = 0 end if select case strRqMethod case "Topic" 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 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 case "Reply" 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 "ReplyQuote" 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 "TopicQuote" 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 end if %> <% select case strSelectSize case "1" intCols = 45 intRows = 6 case "2" intCols = 70 intRows = 12 case "3" intCols = 85 intRows = 12 case "4" intCols = 125 intRows = 15 case else intCols = 70 intRows = 12 end select %> <% if strRqMethod = "EditForum" then if (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") then '## Do Nothing else Response.Write "

ERROR: Only moderators and administrators can edit forums

" & vbcrlf %> <% Response.End end if end if Msg = "" select case strRqMethod case "Reply" if (strNoCookies = 1) or (strDBNTUserName = "") then Msg = Msg & "Note: You must be registered in order to post a reply.
" Msg = Msg & "To register, click here. Registration is FREE!
" end if case "ReplyQuote" if (strNoCookies = 1) or (strDBNTUserName = "") then Msg = Msg & "Note: You must be registered in order to post a reply.
" Msg = Msg & "To register, click here. Registration is FREE!
" end if case "Topic" if (strNoCookies = 1) or (strDBNTUserName = "") then Msg = Msg & "Note: You must be registered in order to post a Topic.
" Msg = Msg & "To register, click here. Registration is FREE!
" end if case "TopicQuote" if (strNoCookies = 1) or (strDBNTUserName = "") then Msg = Msg & "Note: You must be registered in order to post a reply.
" Msg = Msg & "To register, click here. Registration is FREE!
" end if case "Forum" Msg = Msg & "Note: You must be an administrator to create a new forum.
" case "URL" Msg = Msg & "Note: You must be an administrator to create a new web link.
" case "Edit" Msg = Msg & "Note: Only the poster of this message, and the Moderator can edit the message." case "EditTopic" Msg = Msg & "Note: Only the poster of this message, and the Moderator can edit the message." case "EditForum" Msg = Msg & "Note: Only the Moderator can edit the message." case "EditCategory" Msg = Msg & "Note: Only an administrator can edit the subject." end select if strRqMethod = "Edit" or _ strRqMethod = "ReplyQuote" then '## Forum_SQL strSql = "SELECT * " strSql = strSql & " FROM " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strTablePrefix & "REPLY.REPLY_ID = " & strRqReplyID set rs = my_Conn.Execute (strSql) strAuthor = rs("R_AUTHOR") if strRqMethod = "Edit" then TxtMsg = rs("R_MESSAGE") else if strRqMethod = "ReplyQuote" then TxtMsg = "[quote]" & vbCrLf TxtMsg = TxtMsg & rs("R_MESSAGE") & vbCrLf TxtMsg = TxtMsg & "[/quote]" end if end if if strDBNTUserName = getMemberName(strAuthor) then boolReply =rs("R_MAIL") end if end if if strRqMethod = "EditTopic" or _ strRqMethod = "TopicQuote" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_MESSAGE, " & strTablePrefix & "TOPICS.answer1, " & strTablePrefix & "TOPICS.answer2, " & strTablePrefix & "TOPICS.answer3, " & strTablePrefix & "TOPICS.answer4, " & strTablePrefix & "TOPICS.answer5, " & strTablePrefix & "TOPICS.answer6, " & strTablePrefix & "TOPICS.answer7, " & strTablePrefix & "TOPICS.answer8, " & strTablePrefix & "TOPICS.T_NEWS " strSql = strSql & " FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID set rs = my_Conn.Execute (strSql) TxtSub = rs("T_SUBJECT") strAuthor = rs("T_AUTHOR") txtSub1 = trim(rs("answer1")) txtSub2 = trim(rs("answer2")) txtSub3 = trim(rs("answer3")) txtSub4 = trim(rs("answer4")) txtSub5 = trim(rs("answer5")) txtSub6 = trim(rs("answer6")) txtSub7 = trim(rs("answer7")) txtSub8 = trim(rs("answer8")) boolNews = rs("T_NEWS") if strRqMethod = "EditTopic" then TxtMsg = rs("T_MESSAGE") else if strRqMethod = "TopicQuote" then TxtMsg = "[quote]" & vbCrLf TxtMsg = TxtMsg & rs("T_MESSAGE") & vbCrLf TxtMsg = TxtMsg & "[/quote]" end if end if if strDBNTUserName = getMemberName(strAuthor) then boolTopic = rs("T_MAIL") end if if strRqMethod = "EditForum" or _ strRqMethod = "EditURL" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_URL, " & strTablePrefix & "FORUM.F_DESCRIPTION, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_PASSWORD_NEW " strSql = strSql & " FROM " & strTablePrefix & "FORUM " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumId set rs = my_Conn.Execute (strSql) if strRqMethod = "EditURL" then TxtUrl = rs("F_URL") end if if strRqMethod = "EditForum" or _ strRqMethod = "EditURL" then TxtSub = rs("F_SUBJECT") TxtMsg = rs("F_DESCRIPTION") end if end if if strRqMethod = "EditCategory" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_NAME " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY " strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID set rs = my_Conn.Execute (strSql) if strRqMethod = "EditCategory" then TxtSub = rs("CAT_NAME") end if end if select case strRqMethod case "Category" btn = "Post New Category" case "Edit" btn = "Post Changes" case "EditCategory" btn = "Post Changes" case "EditForum" btn = "Post Changes" case "EditTopic" btn = "Post Changes" case "EditURL" btn = "Post Changes" case "Forum" btn = "Post New Forum" case "Reply" btn = "Post New Reply" case "ReplyQuote" btn = "Post New Reply" case "TopicQuote" btn = "Post New Reply" case "Topic" btn = "Post New Topic" case "URL" btn = "Post New URL" case else btn = "Post" end select %>

All Forums
<% if strRqMethod = "EditCategory" then %>

<% =ChkString(Request.QueryString("Cat_Title"),"display") %>
<% else if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %>

"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %>
<% end if end if if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "TopicQuote" then %>

&Topic_Title=<% =ChkString(left(Request.QueryString("Topic_title"), 50),"urlpath") %>"><% =ChkString(Request.QueryString("Topic_Title"),"display") %> <% end if %>

<% =Msg %>

<% if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "EditForum" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> &TOPIC_ID=<% =ChkString(strRqTopicID,"urlpath")%>&REPLY_ID=<% =ChkString(strRqReplyID,"urlpath")%>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath")%>"> "> "> "> "> "> "> "> <% end if %> <% if Request.QueryString("poll") = "1" then %> <% end if %> "> "> "> "> "> "> "> <% if mlev = 4 or _ mlev = 3 or _ mlev = 2 or _ mlev = 1 then %> <% else if (lcase(strNoCookies) = "1") or _ (strDBNTUserName = "" or strDBNTUserName = " " or _ strCkPassWord = "") then %> <% end if end if if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> <% end if if strRqMethod = "Forum" or _ strRqMethod = "URL" or _ strRqMethod = "EditURL" or _ strRqMethod = "EditForum" then %> <% end if if (strRqMethod = "EditTopic") then %> <% end if if strRqMethod = "URL" or _ strRqMethod = "EditURL" then %> <% end if if strRqMethod = "Topic" then %> <% end if if strRqMethod = "Edit" or _ strRqMethod = "URL" or _ strRqMethod = "EditURL" or _ strRqMethod = "Forum" or _ strRqMethod = "EditForum" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> <% end if if strRqMethod = "Edit" or _ strRqMethod = "URL" or _ strRqMethod = "EditURL" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Forum" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> <% 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 = rs("F_PRIVATEFORUMS") else ForumAuthType = 0 end if %> <% '################################################################################# '## Allowed User - listbox Code '################################################################################# strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME ASC;" on error resume next set rsMember = my_Conn.execute (strSql) strSql = "SELECT " & strMemberTablePrefix & "ALLOWED_MEMBERS.MEMBER_ID " strSql = strSql & " FROM " & strMemberTablePrefix & "ALLOWED_MEMBERS " strSql = strSql & " WHERE " & strMemberTablePrefix & "ALLOWED_MEMBERS.FORUM_ID = " & strRqForumID set rsAllowedMember = my_Conn.execute (strSql) tmpStrUserList = "" if strRqMethod = "EditForum" or strRqMethod = "EditURL" then do while not (rsAllowedMember.EOF or rsAllowedMember.BOF) if tmpStrUserList = "" then tmpStrUserList = rsAllowedMember("MEMBER_ID") else tmpStrUserList = tmpStrUserList & "," & rsAllowedMember("MEMBER_ID") end if rsAllowedMember.movenext loop end if SelectSize = 10 %> <% '################################################################################# '## Allowed User - End of listbox code '################################################################################# end if end if %>

Screensize:

UserName:

Password:

Category:

Forum:

<% if mlev = 3 or _ mlev = 4 then %> " end if set rsForum = nothing if mlev = 3 or _ mlev = 4 then Response.Write "" & vbcrlf end if 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 %>

Subject:

" size="40">

Address:

" size="40">

Message Icon:

<% if strRqMethod = "Topic" or strRqMethod = "EditTopic" then %><% if Request.QueryString("poll") = "1" or txtSub1 <> "" then Response.Write("Poll Question:") else Response.Write("Message:") end if %><% else %><% Response.Write("Message:") %><% end if %>

<% if strAllowHTML = "1" then %> * HTML is ON
<% else %> * HTML is OFF
<% end if %> <% if strAllowForumCode = "1" then %> * Forum Code is ON
<% else %> * Forum Code is OFF
<% end if %>

<% if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %>

<% if strRqMethod = "EditTopic" or _ strRqMethod = "Topic" then if Request.QueryString("poll") = "1" or txtSub1 <> "" then %>

Answers to Your Poll (enter at least one):
1:" size="40" size="35" maxlength="100">
2:" size="40" size="35" maxlength="100">
3:" size="40" size="35" maxlength="100">
4:" size="40" size="35" maxlength="100">
5:" size="40" size="35" maxlength="100">
6:" size="40" size="35" maxlength="100">
7:" size="40" size="35" maxlength="100">
8:" size="40" size="35" maxlength="100">
(max 100 chars each)

<% end if end if %> Mode:

<% end if if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then if strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> <% if Request.QueryString("poll") = "1" or txtSub1 <> "" then %><% else %> Check here to include your profile signature.
<% end if %> <% end if if lcase(strEmail) = "1" then if strRqMethod = "Topic" or _ strRqMethod = "EditTopic" then %> >Check here to be notified by email whenever someone replies to your topic.
<% else if strRqMethod = "Reply" or _ strRqMethod = "Edit" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "TopicQuote" then %> >Check here to be notified by email whenever anyone replies to this topic.
<% end if end if end if if ((mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1")) _ and (strRqMethod = "Topic" or strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote") then %> Check here to lock the topic after this post.
<% end if%> <% if (mlev = 3) then if strRqMethod = "Topic" then %> >News
<% elseif strRqMethod = "EditTopic" and boolNews = 1 then%> > <% end if end if%> <% if (mlev = 4) then if strRqMethod = "Topic" or _ strRqMethod = "EditTopic" then %> >News
<% end if end if end if end if %>

<% if (strUserPolls = "1") or (mlev = 4 or mlev = 3) then %><% if Request.Querystring("method") = "Topic" and not Request.QueryString("poll") = "1" then%> ">

">Add Poll <% end if %><% end if %>

<% if strRqMethod = "Reply" or _ strRqMethod = "Edit" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "Topic" or _ strRqMethod = "TopicQuote" then %> <% end if %>

Auth Type:

<% if strRqMethod = "Forum" or _ strRqMethod = "EditForum" then if strRqMethod = "EditForum" then If rs("F_PASSWORD_NEW") <> " " Then strPassword = ChkString(rs("F_PASSWORD_NEW"),"password") else strPassword = " " end if else strPassword = " " end if %>
Password <% if strNTGroups = "1" then Response.Write("or Global Groups") %>:
<% end if %>

Member List:

Forum Members:

Select Members:

<% if Request.QueryString("admin") = "version" then%>

Website Name: <%= strForumTitle %>
Version: 1.200.20020618.593.1
Webmaster: <%= strWebMaster %>

<%end if%> <% if strRqMethod = "Reply" or _ strRqMethod = "TopicQuote" or _ strRqMethod = "ReplyQuote" then %> " & vbCrLf & _ " " & vbCrLf & _ "

<% '## Forum_SQL - Get all replies to Topic from the DB strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "REPLY.R_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & strRqTopicID & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE DESC" set rs = Server.CreateObject("ADODB.Recordset") ' rs.cachesize=15 rs.open strSql, my_Conn, 3 strI = 0 if rs.EOF or rs.BOF then Response.Write "" else rs.movefirst do until rs.EOF if strI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbCrLf & _ " " & vbCrLf & _ " " & vbCrLf & _ " " & vbCrLf rs.MoveNext strI = strI + 1 if strI = 2 then strI = 0 end if loop end if strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR AND " strSql = strSql & " " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID set rs = my_Conn.Execute (strSql) Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

Topic Review (Newest First)
" & ChkString(rs("M_NAME"),"display") & "	" & formatStr(rs("R_MESSAGE")) & "
" & ChkString(rs("M_NAME"),"display") & "	" & formatStr(rs("T_MESSAGE")) & "

" & vbCrLf & _ "

" & vbCrLf & _ "" & vbCrLf end if %> <% sub Go_Result(str_err_Msg) %>

All Forums
<% if strRqMethod = "Edit" or _ strRqMethod = "EditTopic" or _ strRqMethod = "Reply" or _ strRqMethod = "ReplyQuote" or _ strRqMethod = "TopicQuote" then %>

"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %>

&Topic_Title=<% =ChkString(left(Request.QueryString("Topic_title"), 50),"urlpath") %>"><% =ChkString(Request.QueryString("Topic_Title"),"title") %> <% end if %>

There has been a problem!

<% =str_err_Msg %>

Go back to correct the problem.

<% Response.End end sub %>