<!--#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 = "SELECT [FileName] FROM Library WHERE L_SubcategoryID = " & request("id") 
		set rsFiles = con.execute(strSQL)		
		
		do while not rsFiles.EOF
		
			DeleteFile Server.MapPath("../../Uploads/" & rsFiles("FileName"))
		
			rsFiles.MoveNext
			
		Loop
		
		Set rsFiles = Nothing			
		
		strSQL = "DELETE FROM Library WHERE L_SubcategoryID = " & request("id") 
		con.execute strSQL

		strSQL = "DELETE FROM L_Subcategories WHERE SubcategoryID = " & request("id")
		con.execute strSQL
		
		con.close
		set con = nothing
	
	end if
	
	response.redirect "subcategory.asp?intPage="& request("intPage") &"&buster="& server.URLEncode(now)
%>