<%
	response.cachecontrol = "no-cache"
%>
<!--#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")
	
		if request("move") = "UP" then
		
			if Request("MainMenuID") <> Empty then

				strSQL = "UPDATE CMS_Menu SET MenuOrder = 0 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& request("id") &" AND MainMenuID = "& Request("MainMenuID") &" "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& request("id") &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& (CDbl(request("id")) - 1) &" AND MainMenuID = "& Request("MainMenuID") &" "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& (CDbl(request("id")) - 1) &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = 0 AND MainMenuID = "& Request("MainMenuID") 
			
			else

				strSQL = "UPDATE CMS_Menu SET MenuOrder = 0 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& request("id") &" AND MainMenuID IS NULL "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& request("id") &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& (CDbl(request("id")) - 1) &" AND MainMenuID IS NULL "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& (CDbl(request("id")) - 1) &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = 0 AND MainMenuID IS NULL"
			
			end if
			
			con.execute(strSQL)
			
		elseif request("move") = "DOWN" then
		
			if Request("MainMenuID") <> Empty then

				strSQL = "UPDATE CMS_Menu SET MenuOrder = 0 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& request("id") &" AND MainMenuID = "& Request("MainMenuID") &" "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& request("id") &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& (CDbl(request("id")) + 1) &" AND MainMenuID = "& Request("MainMenuID") &" "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& (CDbl(request("id")) + 1) &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = 0 AND MainMenuID = "& Request("MainMenuID") 

			else

				strSQL = "UPDATE CMS_Menu SET MenuOrder = 0 WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& request("id") &" AND MainMenuID IS NULL "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& request("id") &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = "& (CDbl(request("id")) + 1) &" AND MainMenuID IS NULL "& VBCRLF
				strSQL = strSQL & "UPDATE CMS_Menu SET MenuOrder = "& (CDbl(request("id")) + 1) &" WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MenuOrder = 0 AND MainMenuID IS NULL"

			end if
			
			con.execute(strSQL)
		
		end if

		con.close
		set con = nothing
	
	end if

	response.redirect("Menu.asp?buster="& server.URLEncode(now))

%>