<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## 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. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% if Request.QueryString("TOPIC_ID") = "" and Request.QueryString("mode") <> "getIP" and Request.Form("Method_Type") <> "login" and Request.Form("Method_Type") <> "logout" then Response.Redirect "default.asp" Response.End end if %> <% select case Request.QueryString("mode") case "getIP" %> <% DisplayIP IP = "" Title = "" %> <% Response.End case else '## Do Nothing - Continue end select if (strAuthType = "nt") then set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString call NTauthenticate() if (ChkAccountReg() = "1") then call NTUser() end if end if if strPrivateForums = "1" then if Request("Method_Type") = "" then chkUser4() end if end if %> <% '## Forum_SQL - Find out if the Category is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY " strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & Request.QueryString("CAT_ID") set rsCStatus = my_Conn.Execute (StrSql) '## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "FORUM.F_STATUS " strSql = strSql & " FROM " & strTablePrefix & "FORUM " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID") set rsFStatus = my_Conn.Execute (StrSql) '## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "TOPICS.T_STATUS " strSql = strSql & " FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rsTStatus = my_Conn.Execute (StrSql) if rsCStatus.EOF or rsCStatus.BOF or rsFStatus.EOF or rsFStatus.BOF or rsTStatus.EOF or rsTStatus.BOF then Response.Redirect(strForumURL) else mypage = request("whichpage") If mypage = "" then mypage = 1 end if mypagesize = request("pagesize") If mypagesize = "" then mypagesize = 15 end if mySQL = request("strSql") if mySQL = "" then mySQL = SQLtemp end if '## Forum_SQL - Get all Forum Categories From DB strSql = "SELECT CAT_ID " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY" set rsCat = my_Conn.Execute (StrSql) %> <% '## Forum_SQL strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "REPLY.REPLY_ID, " & strTablePrefix & "REPLY.R_AUTHOR, " & strTablePrefix & "REPLY.TOPIC_ID, " & strTablePrefix & "REPLY.R_MESSAGE, " & strTablePrefix & "REPLY.R_DATE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE" set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = 20 rs.open strSql, my_Conn, 3 i = 0 If not (rs.EOF or rs.BOF) then '## No categories found in DB rs.movefirst rs.pagesize = mypagesize maxpages = cint(rs.pagecount) end if %> <% end if %>

All Forums

&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %>
<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0 then %>

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

<% =ChkString(Request.QueryString("Topic_Title"),"display") %> <% end if %>

<% call PostingOptions() %>

<% if maxpages > 1 then %>

Pages:

<% Call Paging() %>

<% else %>

<% if (mlev = 4 or mlev = 3) then %> <% else %> <% end if %> <% if mypage = 1 then Call GetFirst() end if %> <% '## Forum_SQL - Get all topicsFrom DB strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "REPLY.REPLY_ID, " & strTablePrefix & "REPLY.R_AUTHOR, " & strTablePrefix & "REPLY.TOPIC_ID, " & strTablePrefix & "REPLY.R_MESSAGE, " & strTablePrefix & "REPLY.R_DATE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE" set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = 20 rs.open strSql, my_Conn, 3 i = 0 If rs.EOF or rs.BOF then '## No categories found in DB Response.Write "" Else rs.movefirst rs.pagesize = mypagesize maxpages = cint(rs.pagecount) maxrecs = cint(rs.pagesize) rs.absolutepage = mypage howmanyrecs = 0 rec = 1 do until rs.EOF or (rec = 16) if strI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if if strShowRank = 1 or strShowRank = 3 then '## Set Member Level which is displayed to show in the forum Member_Level = "" Member_Level = "" call doMember_Level() Member_Level = Member_Level & "" end if if strShowRank = 2 or strShowRank = 3 then Star_Level = "" call doStar_Level() end if %> <% rs.MoveNext strI = strI + 1 if strI = 2 then strI = 0 end if rec = rec + 1 loop end if %>

>Author	>Topic	<% call AdminOptions() %>
<% =rs("M_NAME") %> <% if strShowRank = 1 or strShowRank = 3 then %> <% =Member_Level %> <% end if %> <% if strShowRank = 2 or strShowRank = 3 then %> <% =Star_Level %> <% end if %> <% =rs("M_COUNTRY") %> <% =rs("M_POSTS") %> Posts	colspan="3"<% else %>colspan="2"<% end if %> valign="top">Posted - <% =ChkDate(rs("R_DATE")) %> : <% =ChkTime(rs("R_DATE")) %> ')"> ')"> <% if strHomepage = "1" then %> <% if rs("M_Homepage") <> " " then %> ">'s Homepage" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (strNoCookies = "1") then %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (mlev = 4 or mlev = 3) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =ChkString(rs("R_AUTHOR"),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"> <% end if %> <% end if %> <% if strICQ = "1" then %> <% if rs("M_ICQ") <> " " then %> &M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')">&img=5" height=15 width=15 alt="Send <% =rs("M_NAME") %> an ICQ Message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if strYAHOO = "1" then %> <% if rs("M_YAHOO") <> " " then %> &.src=pg')"> a Yahoo! Message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strAIM = "1") then %> <% if rs("M_AIM") <> " " then %> &M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')"> an instant message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (mlev = 4 or mlev = 3) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>&M=<% =Request.QueryString("M") %>"> <% end if %> <% if (strIPLogging = "1") then %> <% if (mlev = 4 or mlev = 3) or (strNoCookies = "1") then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"> <% end if %> <% end if %> <% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (strNoCookies = "1") then %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (mlev = 4 or mlev = 3) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"> <% end if %> <% end if %> <% =formatStr(rs("R_MESSAGE")) %>

<% end if %>

<% if maxpages > 1 then %>

Topic is <% =maxpages %> Pages Long:

<% Call Paging() %>

<% else %>

<% if (mlev = 4 or mlev = 3) then %> <% call AdminOptions() %> <% else %> <% end if %>

<% Call PostingOptions() %>

<% end if sub GetFirst() '## Forum_SQL - Get Origional Posting strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rs = my_Conn.Execute (strSql) if rs.EOF or rs.BOF then '## No categories found in DB Response.Write " " & vbCrLf Response.Write " No Topics Found" & vbCrLf Response.Write " " & vbCrLf else if strShowRank = 1 or strShowRank = 3 then '## Set Member Level which is displayed to show in the forum Member_Level = "" Member_Level = "" if rs("M_TITLE") <> " " then Member_Level = Member_Level & rs("M_TITLE") else select case rs("M_LEVEL") case "1" if cint(rs("M_POSTS")) < intRankLevel1 then Member_Level = Member_Level & strRankLevel0 if (cint(rs("M_POSTS")) >= intRankLevel1) and (cint(rs("M_POSTS")) < intRankLevel2) then Member_Level = Member_Level & strRankLevel1 if (cint(rs("M_POSTS")) >= intRankLevel2) and (cint(rs("M_POSTS")) < intRankLevel3) then Member_Level = Member_Level & strRankLevel2 if (cint(rs("M_POSTS")) >= intRankLevel3) and (cint(rs("M_POSTS")) < intRankLevel4) then Member_Level = Member_Level & strRankLevel3 if (cint(rs("M_POSTS")) >= intRankLevel4) and (cint(rs("M_POSTS")) < intRankLevel5) then Member_Level = Member_Level & strRankLevel4 if (cint(rs("M_POSTS")) >= intRankLevel5) then Member_Level = Member_Level & strRankLevel5 case "2" Member_Level = Member_Level & strRankMod case "3" Member_Level = Member_Level & strRankAdmin case else Member_Level = Member_Level & "Error" end select end if Member_Level = Member_Level & "" end if if strShowRank = 2 or strShowRank = 3 then Star_Level = "" select case rs("M_LEVEL") case "1" if cint(rs("M_POSTS")) < intRankLevel1 then Star_Level = Star_Level & "" if (cint(rs("M_POSTS")) >= intRankLevel1) and (cint(rs("M_POSTS")) < intRankLevel2) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel2) and (cint(rs("M_POSTS")) < intRankLevel3) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel3) and (cint(rs("M_POSTS")) < intRankLevel4) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel4) and (cint(rs("M_POSTS")) < intRankLevel5) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel5) then Star_Level = Star_Level & "

" case "2" if cint(rs("M_POSTS")) < intRankLevel1 then Star_Level = Star_Level & "" if (cint(rs("M_POSTS")) >= intRankLevel1) and (cint(rs("M_POSTS")) < intRankLevel2) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel2) and (cint(rs("M_POSTS")) < intRankLevel3) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel3) and (cint(rs("M_POSTS")) < intRankLevel4) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel4) and (cint(rs("M_POSTS")) < intRankLevel5) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel5) then Star_Level = Star_Level & "

" case "3" if cint(rs("M_POSTS")) < intRankLevel1 then Star_Level = Star_Level & "" if (cint(rs("M_POSTS")) >= intRankLevel1) and (cint(rs("M_POSTS")) < intRankLevel2) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel2) and (cint(rs("M_POSTS")) < intRankLevel3) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel3) and (cint(rs("M_POSTS")) < intRankLevel4) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel4) and (cint(rs("M_POSTS")) < intRankLevel5) then Star_Level = Star_Level & "

" if (cint(rs("M_POSTS")) >= intRankLevel5) then Star_Level = Star_Level & "

" case else Star_Level = Star_Level & "Error" end select end if %> <% =rs("M_NAME") %> <% if strShowRank = 1 or strShowRank = 3 then %>
<% =Member_Level %> <% end if %> <% if strShowRank = 2 or strShowRank = 3 then %>
<% =Star_Level %> <% end if %>

<% =rs("M_COUNTRY") %>
<% =rs("M_POSTS") %> Posts colspan="3"<% else %>colspan="2"<% end if %> valign="top">

Posted - <% =ChkDate(rs("T_DATE")) %> : <% =ChkTime(rs("T_DATE")) %> ')">

')">

<% if (strHomepage = "1") then %> <% if rs("M_Homepage") <> " " then %> ">

's Homepage" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (strNoCookies = "1") then %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (mlev = 4 or mlev = 3) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">

<% end if %> <% end if %> <% if (strICQ = "1") then %> <% if rs("M_ICQ") <> " " then %> &M_NAME=<% =rs("M_NAME") %>')">

&img=5" height=15 width=15 alt="Send <% =rs("M_NAME") %> an ICQ Message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strYAHOO = "1") then %> <% if rs("M_YAHOO") <> " " then %> &.src=pg')">

a Yahoo! Message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strAIM = "1") then %> <% if rs("M_AIM") <> " " then %> &M_NAME=<% =rs("M_NAME") %>')">

an instant message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (mlev = 4 or mlev = 3) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">

<% end if %> <% if (strIPLogging = "1") then %> <% if (mlev = 4 or mlev = 3) or (strNoCookies = "1") then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')">

<% end if %> <% end if %>

<% =formatStr(rs("T_MESSAGE")) %> <% end if '## Forum_SQL strSql = "UPDATE " & strTablePrefix & "TOPICS " strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_VIEW_COUNT = (" & strTablePrefix & "TOPICS.T_VIEW_COUNT + 1) " strSql = strSql & " WHERE (" & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("topic_id") & ");" my_conn.Execute (strSql) set rs = nothing End Sub sub DisplayIP() usr = (chkForumModerator(Request.QueryString("FORUM_ID"), Request.Cookies("User")("Name"))) if (chkUser((Request.Cookies("User")("Name")), (Request.Cookies("User")("Pword"))) = 4) then usr = 1 end if if usr then if Request.QueryString("TOPIC_ID") <> "" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "TOPICS.T_IP, " & strTablePrefix & "TOPICS.T_SUBJECT " strSql = strSql & " FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID") rsIP = my_Conn.Execute(strSql) IP = rsIP("T_IP") Title = rsIP("T_Subject") else if Request.QueryString("REPLY_ID") <> "" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "REPLY.R_IP " strSql = strSql & " FROM " & strTablePrefix & "REPLY " strSql = strSql & " WHERE REPLY_ID = " & Request.QueryString("REPLY_ID") rsIP = my_Conn.Execute(strSql) IP = rsIP("R_IP") end if end if set rsIP = nothing %>

User's IP address:
<% =ip %>

<% else %>

Only moderators and administrators can perform this action.

<% end If end sub sub PostingOptions() %> <% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (Request.Cookies("User")("Name") = "" or Request.Cookies("User")("Pword") = "") then %> <% if ((rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1)) then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">

&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">New Topic <% else %> <% if (mlev = 4 or mlev = 3)then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">

&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">New Topic <% else %>

Forum Locked <% end if %> <% end if %> <% if (rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1) and (rsTStatus("T_STATUS") = 1) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">

Topic Locked <% end if %> <% end if %> <% if (lcase(strEmail) = "1") then %>
')">

')">Send Topic To a Friend <% end if %> <% end if %> <% end sub sub AdminOptions() %> <% if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %> <% if (rsCStatus("CAT_STATUS") = 0) then %> <% if (mlev = 4) then %> ')">

<% else %>

<% end if %> <% else %> <% if (rsFStatus("F_STATUS") = 0) then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')">

<% else %> <% if (rsTStatus("T_STATUS") <> 0) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">

<% else %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">

<% end if %> <% end if %> <% end if %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (mlev = 4 or mlev = 3) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"> Edit Topic

<% end if %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">

&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">

<% end if %> <% end sub sub Paging() if maxpages > 1 then if Request.QueryString("whichpage") = "" then pge = 1 else pge = Request.QueryString("whichpage") end if scriptname = request.servervariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(pge) then ref = "" Response.Write ref else ref = ref & "'>" & counter & "" Response.Write ref end if else Response.Write("") end if if counter mod 15 = 0 then Response.Write("") end if next Response.Write("

" & " " & widenum(counter) & "" ref = ref & "" & counter & "

" & " " & widenum(counter) & "" & counter & "

") end if top = "0" end sub %>