<!--#include file="../library/libraryinc.inc" -->
<%
	Timeout(1)
	
	if request("id") <> empty and IsNumeric(request("id")) then
	
		set con = server.createobject("ADODB.Connection")
		con.open Application("CString")

		s_Title = ""
		
		strSQL = "SELECT Title FROM News WHERE NewsID = " & Request("id") 
		Set rsNews = con.execute(strSQL)
		
		if Not rsNews.EOF then
		
			rsNews.MoveFirst
			
			s_Title = rsNews("Title")
			
		end if
		
		Set rsNews = Nothing			
		
		'strSQL = "UPDATE Features SET Link = NULL WHERE Link = 'news_article.asp?id=" & Request("id") & "'"
		'con.execute strSQL
		
		'strSQL = "DELETE FROM CMS_News_RelatedLinks WHERE NewsID = "& Request("id") 
		'con.execute strSQL		
		
		strSQL = "DELETE FROM News WHERE NewsID = "& Request("id") 
		con.execute strSQL
		
		con.close
		set con = nothing

		'AdminAuditLog Session("Logged"), Session("RealName") & ": Deleted a News Article - " & s_Title
		
	end if
	
	response.redirect "News.asp?buster=" & server.URLEncode(Now())
	'response.redirect "News.asp?CategoryID=" & Request("CategoryID") & "&intPage=" & request("intPage") & "&buster=" & server.URLEncode(Now())
%>