<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True %>
<%
'#################################################################################
'## 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
'#################################################################################
'## strCustomSQL is for people that like their slash mod to be more
'## custom. Please note that this is an advanced option.
'#################################################################################
'#################################################################################
'##
'## Crash's Updated File. Did some major makeover on this one here!
'##
'#################################################################################
'#################################################################################
'## Do not modify anything else below - yeah right...
'#################################################################################
'---------- Marcelg: Newsfeed
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<%
if Request.QueryString("art") = "" then
	Response.Redirect "sitenews.asp"
	Response.End
end if



Set objDict = Nothing

'## Forum_SQL
strSQL = "SELECT " & strTablePrefix & "TOPICS.TOPIC_ID, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_SUBJECT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_VIEW_COUNT, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_MESSAGE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR, "

strSQL = strSQL & strTablePrefix & "TOPICS.T_DATE, "
strSQL = strSQL & strTablePrefix & "TOPICS.T_LAST_POST, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS.M_NAME "
strSQL = strSQL & "FROM " & strTablePrefix & "TOPICS, "
strSQL = strSQL & strTablePrefix & "FORUM, "
strSQL = strSQL & strMemberTablePrefix & "MEMBERS "
strSQL = strSQL & "WHERE "
strSQL = strSQL & strTablePrefix & "TOPICS.TOPIC_ID = " & cLng(Request.QueryString("art")) & " AND "
strSQL = strSQL & strTablePrefix & "TOPICS.FORUM_ID = " & strTablePrefix & "FORUM.FORUM_ID AND "
strSQL = strSQL & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID AND " & strTablePrefix & "TOPICS.T_STATUS < 2;"

set objRec = my_Conn.Execute(strSql)

if NOT objRec.EOF then
	T_Subject     =   objRec("T_SUBJECT")
	T_View_Count  =   objRec("T_VIEW_COUNT")
	T_Author      =   objRec("T_AUTHOR")
	MEMBER_ID     =   objRec("MEMBER_ID")
	FORUM_ID 	  =   objRec("FORUM_ID")
	M_NAME        =   objRec("M_NAME")
	T_Message     =   objRec("T_MESSAGE")
	T_Message = FormatStr(Trim(T_MESSAGE))
	T_DATE        =   objRec("T_DATE")
	TOPIC_ID      =   objRec("TOPIC_ID")
	T_LAST_POST   =   objRec("T_LAST_POST")

'edit the following line to point to your article forum.
if FORUM_ID <> "35" then 

	Response.Redirect "sitenews.asp"
	Response.End
end if




Response.Write  "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" bgcolor=""" & STRPAGEBGCOLOR & """>" & vbNewLine & _
		"<tr>" & vbNewLine & _
		"<td bgcolor=""" & STRPAGEBGCOLOR & """>" & vbNewLine & _
		"</tr>" & vbNewLine & _
		"<tr>" & vbNewLine & _
		"<td align=""left"">" & vbNewLine & _
		"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
		"<tr>" & vbNewLine & _
		"<td align=""center"" valign=""top"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"	<td width=""100%"" colspan=""1"" bgcolor=""" & strHeadCellColor & """ valign=""middle"">"& vbNewLine & _
			"   <font size=1><center><b>Article Title:-</font>" & T_Subject & "</b></font>"  & vbNewLine & _
			"	<font size=1><center><b>Article Viewed " & T_View_Count & " Times.</center><p>" & vbNewLine & _
			"	<center>These articles are Copyrighted by the Author<br> This may how ever differ from this article's auther. "& vbNewLine & _
			"	Befor republishing these articles Please contact the Author or the <a href=""mailto:" & strSender & """>Webmaster </a></b></center></font><hr>"& vbNewLine & _
			"	<table  Border=0 bgcolor="""& STRPAGEBGCOLOR &""">" & vbNewLine & _
			"	<TR width=""100%"">" & vbNewLine & _
			"		<TD width=""80%"">" & T_MESSAGE & "</TD>" & vbNewLine & _
			"	</TR>"& vbNewLine & _
			"	</table>" & vbNewLine

	'---------- Forum_SQL
	strSql = "UPDATE " & strTablePrefix & "TOPICS "
	strSql = strSql & " SET T_VIEW_COUNT = (T_VIEW_COUNT + 1) "
	strSql = strSql & " WHERE (TOPIC_ID = " & TOPIC_ID & ")"

	my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end if

Response.Write "</table></td></tr></table></td></tr></table>" & vbNewLine 

WriteFooter

%>