<!-- #INCLUDE VIRTUAL="/onlinestore/_includes/functions.asp"-->
<!-- #INCLUDE VIRTUAL="/onlinestore/_includes/clsFileSystem.asp"-->
<!-- #INCLUDE VIRTUAL="/onlinestore/_includes/isadmin.asp"-->
<%
'-----------------------------------------------------------------
'--Page info
'-----------------------------------------------------------------
PAGE_NAME = "Category"

'-----------------------------------------------------------------
'--Page code
'-----------------------------------------------------------------
ID = Request.QueryString("ID")

'-----------------------------------------------------------------
'--delete the record from the database
'-----------------------------------------------------------------
Set DB = New clsDatabase
	DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD

	numOfRecords = DB.RunQuery("SELECT * FROM tsv_categories WHERE id=" & ID) -1
	If numOfRecords = -1 Then
		Call myError("Invalid " & PAGE_NAME & " ID")
	End If

	numOfRecords = DB.RunQuery("SELECT image FROM tsv_videos WHERE category_id=" & ID) -1
	If numOfRecords <> -1 Then
		Set FileSys = New clsFileSystem

		For x = 0 To numOfRecords
			imageName = DB.GetField("image")
			FileSys.DeleteFile(VIDEO_IMAGE_PATH  & imageName)
		Next

		Set FileSys = Nothing
	End If

	Call DB.RunQuery("DELETE FROM tsv_categories WHERE id=" & ID)
	Call DB.RunQuery("DELETE FROM tsv_videos WHERE category_id=" & ID)
Set DB = Nothing

'-----------------------------------------------------------------
'-go back where we came from
'-----------------------------------------------------------------
Response.Redirect "index.asp"
%>