<!--#include file="../library/libraryinc.inc" -->
<!--#include file="menu_Functions.asp" -->
<%
	timeout(1)

	if request("id") <> empty and IsNumeric(request("id")) then
	
		set con = server.createobject("ADODB.Connection")
		con.open Application("CString")
		
		DeleteSubs request("id")
	
		if Request("MainMenuID") <> Empty then
			strSQL = "UPDATE CMS_Menu SET MenuOrder = MenuOrder - 1 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder > (SELECT MenuOrder FROM CMS_Menu WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuID = "& request("id") &") AND MainMenuID = "& Request("MainMenuID")
		else
			strSQL = "UPDATE CMS_Menu SET MenuOrder = MenuOrder - 1 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder > (SELECT MenuOrder FROM CMS_Menu WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuID = "& request("id") &") AND MainMenuID IS NULL"
		end if

		con.execute(strSQL)

		strSQL = "DELETE FROM CMS_Menu WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuID = "& request("id")
		con.execute(strSQL)

		con.close
		set con = nothing
		
	end if	

	response.redirect("Menu.asp?buster="& server.URLEncode(now))
%>