<%
'#################################################################################
'## 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") = ""  then
	Response.Redirect "default.asp"
	Response.End
end if 
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<% 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
	Response.Redirect "default.asp"
else
	Response.Redirect "topic.asp?TOPIC_ID=" & RsTopicInfo("TOPIC_ID") & "&FORUM_ID=" & RsTopicInfo("FORUM_ID") & "&CAT_ID=" & RsTopicInfo("CAT_ID") & "&Forum_Title=" & ChkString(RsTopicInfo("F_SUBJECT"),"urlpath") & "&Topic_Title=" & ChkString(RsTopicInfo("T_SUBJECT"),"urlpath")
end if
%>