<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'## 
'## 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.
'##
'## 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 support forums at:
'## http://forum.snitz.com 
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'## 
'## or
'## 
'## Snitz Communications 
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%

if Request.QueryString("TOPIC_ID") <> "" then

	set my_Conn = Server.CreateObject("ADODB.Connection") 
	my_Conn.Open strConnString
	        	
	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

	'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
	strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "FORUM.F_SUBJECT " 
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS, " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
	strSql = strSql & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID"

	set rsTopicInfo = my_Conn.Execute (StrSql)

	if (rsTopicInfo.EOF and rsTopicInfo.BOF) then
	'check archive
		rsTopicInfo.close
		strSql = "SELECT " & strArchiveTablePrefix & "TOPICS.CAT_ID, " & strArchiveTablePrefix & "TOPICS.FORUM_ID, " & strArchiveTablePrefix & "TOPICS.TOPIC_ID, " & strArchiveTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "FORUM.F_SUBJECT " 
		strSql = strSql & " FROM " & strArchiveTablePrefix & "TOPICS, " & strTablePrefix & "FORUM "
		strSql = strSql & " WHERE " & strArchiveTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
		strSql = strSql & " AND " & strArchiveTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID"

		set rsTopicInfo = my_Conn.Execute (StrSql)
		if (rsTopicInfo.EOF and rsTopicInfo.BOF) then
			Response.Redirect "default.asp"
		else
			Response.Redirect "topic.asp?ARCHIVE=true&TOPIC_ID=" & RsTopicInfo("TOPIC_ID") 
		end if
	else
		Response.Redirect "topic.asp?TOPIC_ID=" & RsTopicInfo("TOPIC_ID") 
	end if

elseif Request.QueryString("FORUM_ID") <> "" then

	set my_Conn = Server.CreateObject("ADODB.Connection") 
	my_Conn.Open strConnString
	        	
	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

	'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
	strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.F_SUBJECT " 
	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID")

	set rsForumInfo = my_Conn.Execute (StrSql)

	if (rsForumInfo.EOF and rsForumInfo.BOF) then
		Response.Redirect "default.asp"
	else
		Response.Redirect "forum.asp?FORUM_ID=" & rsForumInfo("FORUM_ID") & "&CAT_ID=" & rsForumInfo("CAT_ID") & "&Forum_Title=" & ChkString(rsForumInfo("F_SUBJECT"),"urlpath")
	end if
else
	Response.Redirect "default.asp"
	Response.End
end if
%>
<!--#INCLUDE FILE="inc_footer.asp" -->