<%
'#################################################################################
'## 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" -->
<%
'#################################################################################
strRqMethod = Request.QueryString("method")
'#################################################################################

if strRqMethod = "Topic" then

	if Request.QueryString("TOPIC_ID") = ""  then
		Response.Redirect "default.asp"
		Response.End
	end if
              	
	if (strAuthType = "nt") then
		call NTauthenticate()
		if (ChkAccountReg() = "1") then
			call NTUser()
		end if
	end if

	Response.Redirect "topic.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID")

end if

if strRqMethod = "Forum" then

	if Request.QueryString("FORUM_ID") = ""  then
		Response.Redirect "default.asp"
		Response.End
	end if
      	
	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

        Response.Redirect "forum.asp?FORUM_ID=" & Request.QueryString("FORUM_ID")
end if
%>