Response.Write "C_VALUE="&C_VALUE&"<br>TopID="&TopID
Response.End

 <%
'###############################################################################
'## Snitz Forums 2000 v3.4.06
'###############################################################################
'## 			Copyright © 2000-06 
'## 	Michael Anderson, Pierre Gorissen,
'## 	Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must 
'##	remain intact in the scripts and in the HTML output.
'## 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:
'##
'##		Free Software Foundation, Inc.
'##		59 Temple Place, Suite 330
'##		Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'## 	http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'## 	manderson@snitz.com
'##
'###############################################################################
set ReqTopic = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT C_VARIABLE, C_VALUE FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE='TPID'"
set ReqTopic = my_conn.execute(strSQL)
if not ReqTopic.EOF then
	C_VALUE=ReqTopic("C_VALUE")
	TopID=cInt(ReqTopic("C_VALUE"))
	ReqTopic.close
	set ReqTopic=Nothing
end if
if C_VALUE="F" or C_VALUE="f" or C_VALUE="R" or C_VALUE="r" then
	set ReqTopic = Server.CreateObject("ADODB.Recordset")
	strSql = "SELECT M_REQUIRED FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & MEMBERID
	set ReqTopic = my_conn.execute(strSQL)
	if not ReqTopic.EOF then
		if ReqTopic("M_REQUIRED") <> C_VALUE then
			'	Member hasn't read topic
			ReqTopic.close
			set ReqTopic=Nothing
			set ReqTopic = Server.CreateObject("ADODB.Recordset")
			strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_REQUIRED = '" & C_VALUE & "' WHERE MEMBER_ID=" & MEMBERID
			set ReqTopic = my_conn.execute(strSQL)
			set ReqTopic=Nothing
			if C_VALUE="F" or C_VALUE="f" then 
				Response.Redirect "faq.asp"
			else
				Response.Redirect "rules.asp"
			end if
		end if
	end if
else
	if TopID <> 0 then
		'	Not disabled
		set ReqTopic = Server.CreateObject("ADODB.Recordset")
		strSql = "SELECT M_REQUIRED FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & MEMBERID
		set ReqTopic = my_conn.execute(strSQL)
		if not ReqTopic.EOF then
			if ReqTopic("M_REQUIRED") <> C_VALUE then	
				'	Member hasn't read topic
				ReqTopic.close
				set ReqTopic = Nothing
				set ReqTopic = Server.CreateObject("ADODB.Recordset")
				strSql = "SELECT FORUM_ID, TOPIC_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPID
				set ReqTopic = my_conn.execute(strSQL)
				FORUMID=ReqTopic("FORUM_ID")
				FORUM_ID=FORUMID
				ReqTopic.Close
				set ReqTopic=Nothing
				'	Check for access
				if strPrivateForums <> "1" then
					'	Public forum - set value in record and refer to topic
					set ReqTopic = Server.CreateObject("ADODB.Recordset")
					strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_REQUIRED = " & TopID & " WHERE MEMBER_ID=" & MEMBERID
					set ReqTopic = my_conn.execute(strSQL)
					set ReqTopic = Nothing
					NewAddy = strForumURL+"topic.asp?TOPIC_ID="+C_VALUE
					Response.Redirect	NewAddy
				elseif strPrivateForums = "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 then
					'	Private forum, access allowed
					set ReqTopic = Server.CreateObject("ADODB.Recordset")
					strSql="SELECT FORUM_ID, MEMBER_ID FROM " & strTablePrefix & "ALLOWED_MEMBERS WHERE FORUM_ID=" & FORUMID & " AND MEMBER_ID=" & MEMBERID
					set ReqTopic = my_conn.Execute(strSql)
					if not ReqTopic.EOF then
						'	Set value in record and refer to topic
						ReqTopic.Close
						set ReqTopic = Nothing
						set ReqTopic = Server.CreateObject("ADODB.Recordset")
						strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_REQUIRED = " & TopID & " WHERE MEMBER_ID=" & MEMBERID
						set ReqTopic = my_conn.execute(strSQL)
						set ReqTopic = Nothing
						NewAddy = strForumURL+"topic.asp?TOPIC_ID="+C_VALUE
						Response.Redirect	NewAddy
					end if
				end if
			end if
		end if
	end if
end if
%>