<% Response.CacheControl = "no-cache" Response.Expires = -1 %> <% Timeout(1) s_AllMenus = "" set con = server.createobject("ADODB.Connection") con.open Application("CString") con.CommandTimeout = 1000 Dim arrMenus() i_ArrayIndex = 0 ReDim arrMenus(i_ArrayIndex) For i = 1 to CInt(Request("counterx")) i_MenuID = Request("MenuAction_" & CStr(i)) if i_MenuID <> Empty and IsNumeric(i_MenuID) then if s_AllMenus <> "" then s_AllMenus = s_AllMenus & "," end if s_AllMenus = s_AllMenus & i_MenuID i_ArrayIndex = i_ArrayIndex + 1 ReDim Preserve arrMenus(i_ArrayIndex) arrMenus(i_ArrayIndex - 1) = GetMenuLine(i_MenuID) end if Next if s_AllMenus = "" then Response.Redirect "menu.asp?menuid=" & Server.URLEncode(Request("menuid")) %> Website Administration
Move menu options

Move the selected menu option(s) to:

<% strSQL = "(SELECT *, 1 AS 'Subs' "&_ "FROM CMS_Menu "&_ "WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MainMenuID IS NULL AND "&_ "MenuID IN (SELECT DISTINCT MainMenuID "&_ " FROM CMS_Menu "&_ " WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MainMenuID IS NOT NULL)) "&_ "UNION "&_ "(SELECT *, 0 AS 'Subs' "&_ "FROM CMS_Menu "&_ "WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MainMenuID IS NULL AND "&_ "PageID IS NULL AND " & _ "MenuID NOT IN (SELECT DISTINCT MainMenuID "&_ " FROM CMS_Menu "&_ " WHERE MenuSectionID = "& Session("MenuSectionID") &" AND MainMenuID IS NOT NULL)) "&_ "ORDER BY MenuOrder" set rsMenu = con.execute(strSQL) do while not rsMenu.EOF s_MenuName = rsMenu("MenuName") %> <% strSubMenus = GetSubs2(rsMenu("MenuID"), rsMenu("MenuName"), 1, s_AllMenus) arrSubMenus = Split(strSubMenus, vbCrLf) For i = 0 to UBound(arrSubMenus) if InStr(arrSubMenus(i), "||") > 0 then arrTMP = Split(arrSubMenus(i), "||", 2) i_MenuID = arrTMP(0) s_MenuName = arrTMP(1) %> <% end if Next rsMenu.MoveNext loop Set rsMenu = Nothing %>
Menu Folders
Select

Menu Root
','<%=Replace(Replace(Replace(s_MenuName, "\", "\\"), """", "'"), "'", "\'")%>');">Select

<%=Server.HTMLEncode(s_MenuName)%>
');">Select

<%=Server.HTMLEncode(s_MenuName)%>

<% For i = 0 to UBound(arrMenus) - 1 %> <% Next %>
Select Menu Items To Be Moved

<%=Server.HTMLEncode(Mid(arrMenus(i), 1, Len(arrMenus(i)) - 2))%>

&buster=<%=Server.URLEncode(Now())%>','_self');" value="Cancel">

"> ">
<% con.close set con = nothing %>