<!--#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")
		
		strSQL = "DELETE FROM FileCategories WHERE CategoryID = "& request("id") 
		con.execute(strSQL)		
		
		con.close
		set con = nothing
	
	end if
	
	response.redirect("maintain_cat.asp?intPage="& request("intPage") &"&buster="& server.URLEncode(now))
	
%>