<%i_MenuSectionID = 1%>
<%i_AuxiliaryMenu = 1%>
<%
	session("Counter") = 1
	'i_MenuSectionID = 1
	i_MenuLevels 	= 2
	i_MenuOptions 	= NULL
	
	Sub MaxLevels(intMenuID, intMaxCount, intLevel)
	
		if intMenuID = 0 then
			strSQL = "SELECT MenuID FROM CMS_Menu WHERE AuxiliaryMenu = "& i_AuxiliaryMenu &" AND MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NULL"
		else
			strSQL = "SELECT MenuID FROM CMS_Menu WHERE AuxiliaryMenu = "& i_AuxiliaryMenu &" AND MenuSectionID = "& i_MenuSectionID &" AND MainMenuID = "& intMenuID
		end if
		
		set rsMenuCount = con.execute(strSQL)
	
		if not rsMenuCount.EOF then
	
			do while not rsMenuCount.EOF
			
				MaxLevels rsMenuCount("MenuID"), intMaxCount, intLevel + 1
				
			rsMenuCount.MoveNext
			loop
			
		end if
		
		set rsMenuCount = Nothing
		
		if intLevel > intMaxCount then
			intMaxCount = intLevel
		end if
	
	End Sub 

	Sub GetSubMenus(intMenuID,intOrder, intLevel, intCounterx, bRSEnd)
		
			strSQL = "(SELECT *, 1 AS 'Subs'  "&_ 
				"FROM CMS_Menu "&_ 
				"WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID = "& intMenuID &" AND "&_ 
				"MenuID IN (SELECT DISTINCT MainMenuID  "&_ 
				"	   FROM CMS_Menu "&_ 
				"	   WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NOT NULL)) "&_ 
				"UNION "&_ 
				"(SELECT *, 0 AS 'Subs'  "&_ 
				"FROM CMS_Menu "&_ 
				"WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID = "& intMenuID &" AND "&_ 
				"MenuID NOT IN (SELECT DISTINCT MainMenuID  "&_ 
				"	       FROM CMS_Menu "&_ 
				"	       WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NOT NULL)) "&_ 
				"ORDER BY MenuOrder"
		
				set rsSubMenu = con.execute(strSQL)
				
				i_SubLoopCounter = 0
				iArrSubMenuID = intMenuID
		
				do while not rsSubMenu.EOF
				
					i_MenuID 			= rsSubMenu("MenuID")
					i_MenuSectionID 	= rsSubMenu("MenuSectionID")
					s_MenuName 			= rsSubMenu("MenuName")
					i_MenuOrder 		= rsSubMenu("MenuOrder")
					i_MainMenuID 		= rsSubMenu("MainMenuID")
					i_PageID 			= rsSubMenu("PageID")
					s_Frame 			= rsSubMenu("Frame")
					b_Subs				= rsSubMenu("Subs")
					strSubSubAvailable = ""
		
					s_MenuName = replace(s_MenuName,"""","'")
					s_MenuName = replace(s_MenuName,"\","\\")		
					s_MenuName = replace(s_MenuName,"'","\'")


				if CInt(b_Subs) = 1 then  
					strJavaArray = strJavaArray &"{code:"""&s_MenuName&""",sub:[{},"&vbcrlf 	
					GetSubMenus i_MenuID,(session("Counter")-1), intLevel + 1, counterx, rsSubMenu.EOF
					strJavaArray = strJavaArray &"]},"&vbcrlf 					
				else
					strJavaArray = strJavaArray &"{code:"""&s_MenuName&""",url:""content.asp?pageID="&i_PageID&""",sub:[{},]},"&vbcrlf 
					
				end if
				
				session("Counter") = session("Counter") + 1 
				i_SubLoopCounter = i_SubLoopCounter + 1
		
				rsSubMenu.MoveNext
				loop
		
		
		End Sub	
	
	strJavaArray = strJavaArray &"BLANK_IMAGE = 'images/spacer.gif'; " &vbcrlf
	strJavaArray = strJavaArray &"var STYLE = { " &vbcrlf
	strJavaArray = strJavaArray &"	border:0,			// item's border width, pixels; zero means ""none""  " &vbcrlf
	strJavaArray = strJavaArray &"	shadow:0,			// item's shadow size, pixels; zero means ""none""  " &vbcrlf
	strJavaArray = strJavaArray &"	color:{ " &vbcrlf
	strJavaArray = strJavaArray &"		border:""#666666"",	// color of the item border, if any  " &vbcrlf
	strJavaArray = strJavaArray &"		shadow:""#DBD8D1"",	// color of the item shadow, if any  " &vbcrlf
	strJavaArray = strJavaArray &"		bgON:""#FFFFFF"",		// background color for the items  " &vbcrlf
	strJavaArray = strJavaArray &"		bgOVER:""#FFFFFF""	// background color for the item which is under mouse right now  " &vbcrlf
	strJavaArray = strJavaArray &"	}, " &vbcrlf
	strJavaArray = strJavaArray &"	css:{ " &vbcrlf
	strJavaArray = strJavaArray &"		ON:""clsCMOn"",		// CSS class for items " &vbcrlf
	strJavaArray = strJavaArray &"		OVER:""clsCMOver""	// CSS class  for item which is under mouse " &vbcrlf
	strJavaArray = strJavaArray &"	} " &vbcrlf
	strJavaArray = strJavaArray &"}; " &vbcrlf
	strJavaArray = strJavaArray &" " &vbcrlf
	strJavaArray = strJavaArray &"var STYLE2 = { " &vbcrlf
	strJavaArray = strJavaArray &"	border:1,			// item's border width, pixels; zero means ""none""  " &vbcrlf
	strJavaArray = strJavaArray &"	shadow:0,			// item's shadow size, pixels; zero means ""none""  " &vbcrlf
	strJavaArray = strJavaArray &"	color:{ " &vbcrlf
	strJavaArray = strJavaArray &"		border:""#BBBBBB"",	// color of the item border, if any  " &vbcrlf
	strJavaArray = strJavaArray &"		shadow:""#DBD8D1"",	// color of the item shadow, if any  " &vbcrlf
	strJavaArray = strJavaArray &"		bgON:""#FFFFFF"",		// background color for the items  " &vbcrlf
	strJavaArray = strJavaArray &"		bgOVER:""#FFFFFF""	// background color for the item which is under mouse right now  " &vbcrlf
	strJavaArray = strJavaArray &"	}, " &vbcrlf
	strJavaArray = strJavaArray &"	css:{ " &vbcrlf
	strJavaArray = strJavaArray &"		ON:""cls2CMOn"",		// CSS class for items " &vbcrlf
	strJavaArray = strJavaArray &"		OVER:""cls2CMOver""	// CSS class  for item which is under mouse " &vbcrlf
	strJavaArray = strJavaArray &"	} " &vbcrlf
	strJavaArray = strJavaArray &"}; " &vbcrlf
	
	strJavaArray = strJavaArray &"var MENU_ITEMS = [" &vbcrlf 
	strJavaArray = strJavaArray &"{pos:[10,10], itemoff:[20,0], leveloff:[0,149], style:STYLE, size:[20,150]}," &vbcrlf 	
	
	set con = server.createobject("ADODB.Connection")
	con.open Application("CString")
	
	
	strSQL = "(SELECT *, 1 AS 'Subs'  "&_ 
		"FROM CMS_Menu "&_ 
		"WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NULL AND "&_ 
		"MenuID IN (SELECT DISTINCT MainMenuID  "&_ 
		"	   FROM CMS_Menu "&_ 
		"	   WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NOT NULL)) "&_ 
		"UNION "&_ 
		"(SELECT *, 0 AS 'Subs'  "&_ 
		"FROM CMS_Menu "&_ 
		"WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NULL AND "&_ 
		"MenuID NOT IN (SELECT DISTINCT MainMenuID  "&_ 
		"	 FROM CMS_Menu "&_ 
		"	 WHERE MenuSectionID = "& i_MenuSectionID &" AND MainMenuID IS NOT NULL)) "&_ 
		"ORDER BY MenuOrder"

	set rsMenu = con.execute(strSQL)
	
 	if rsMenu.EOF then

	else

	intMaxCount = 0
	
	'MaxLevels 0, intMaxCount, 0
	
	do while not rsMenu.EOF
		
			i_MenuID 			= rsMenu("MenuID")
			i_MenuSectionID 	= rsMenu("MenuSectionID")
			s_MenuName 			= rsMenu("MenuName")
			i_MenuOrder 		= rsMenu("MenuOrder")
			i_MainMenuID 		= rsMenu("MainMenuID")
			i_PageID 			= rsMenu("PageID")
			s_Frame 			= rsMenu("Frame")
			b_Subs				= rsMenu("Subs")
			S_ArrSubs		 	= b_Subs
			
			b_ShowIcons    = true
			b_ShowIconsTop = true
			
			session("ArrMainMenuID") = i_MenuID
			
			S_ArrMenuName = s_MenuName
			
			S_ArrMenuName = replace(S_ArrMenuName,"""","'")
			S_ArrMenuName = replace(S_ArrMenuName,"\","\\")		
			S_ArrMenuName = replace(S_ArrMenuName,"'","\'")	
	
			strJavaArray = strJavaArray &" {code:"""&s_MenuName&""","
			if S_ArrSubs then 
				strJavaArray = strJavaArray & vbcrlf 
				strJavaArray = strJavaArray & " sub:[" & vbcrlf 
				strJavaArray = strJavaArray & " {itemoff:[19,0],style:STYLE2},"& vbcrlf			
								
				intMaxCount = 0
				
				MaxLevels 0, intMaxCount, 0
				
				if CInt(S_ArrSubs) = 1 then  GetSubMenus i_MenuID,session("Counter")-1, 0, counterx, rsMenu.EOF				
					
				strJavaArray = strJavaArray & "]},"& vbcrlf&vbcrlf 

				
			else
				strJavaArray = strJavaArray &"url:""content.asp?PageID="&i_PageID&""",	sub:[{},]}," &vbcrlf &vbcrlf 			
			end if
	
  i_MainLoopCounter = i_MainLoopCounter + 1
  rsMenu.movenext
  loop
  end if
  
 strJavaArray = strJavaArray &" ];"

	set rsMenu = nothing
	
	con.close
	set con = nothing
%>
<br><br><br><br><br><br>
<%
Dim myFSO, WriteStuff,ImageContent
ImageContent = "picturesinfo="

SET myFSO = Server.CreateObject("Scripting.FileSystemObject")
If NOT myFSO.FileExists(server.mappath("../../menu_items1.js")) Then
	myFSO.CreateTextFile(server.mappath("../../menu_items1.js"))
end if

Set WriteStuff = myFSO.OpenTextFile(server.mappath("../../menu_items1.js"), 2, True)

WriteStuff.WriteLine(strJavaArray)
WriteStuff.Close
set WriteStuff = nothing
set myFSO = nothing

Session("MenuSectionID") = 1

response.Redirect("menu.asp?Msg=Done&MenuSectionID=1")
%>