<!--#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" -->