function mmLoadMenus() {
		 	  
			window.mm_menu_0722163334_2 = new Menu("root",165,25,"Arial, Helvetica, sans-serif",11,"#333333","#333366","#cdddee","#a1bedb","left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
			
			<%@ Page %>
<%
			Dim cnnConnection As New System.Data.SqlClient.SqlConnection(ConfigurationSettings.AppSettings("ConnectionString-1"))
			Dim SQL As String
			Dim dtaAdapter As System.Data.SqlClient.SqlDataAdapter
			Dim dttData As New System.Data.DataTable
			Dim dttData1 As New System.Data.DataTable
			Dim dttData2 As New System.Data.DataTable
			Dim dttData3 As New System.Data.DataTable
			Dim dttData4 As New System.Data.DataTable
			Dim x as integer
			
			SQL =	"SELECT id_menu, sNOM, sLien FROM mmMenu WHERE idlangue = 1 and idParent = 2 AND bVisible=1 order by iorder"
			
			dtaAdapter = New System.Data.SqlClient.SqlDataAdapter(Toolbox.SqlInjectionBlocker.ValidateQuery(SQL), cnnConnection)
			dtaAdapter.Fill(dttData)

			'Si nous avons des élément de menu lvl3
			If dttData.Rows.Count > 0 Then

		        
				for x =0 to dttData.Rows.Count -1
					
					if cType(dttData.Rows(x)(2),String) <> "" then
						response.write ("mm_menu_0722163334_2.addMenuItem(""" & cType(dttData.Rows(x)(1),String) & """,""location='" &cType(dttData.Rows(x)(2),String) & "'"");")
					else
						response.write ("mm_menu_0722163334_2.addMenuItem(""" & cType(dttData.Rows(x)(1),String)& """,""location='../about/defaut.aspx?idmenu="& cType(dttData.Rows(x)(0),String) & "'"");")
					end if
					
				next
				
			end if
			
			dtaAdapter = nothing
			dttData =  nothing
			SQL = ""
			%>
			
			mm_menu_0722163334_2.hideOnMouseOut=true;
			mm_menu_0722163334_2.menuBorder=0;
			mm_menu_0722163334_2.menuLiteBgColor='#ffffff';
			mm_menu_0722163334_2.menuBorderBgColor='#ffffff';
			mm_menu_0722163334_2.bgColor='#ffffff';
						  
			window.mm_menu_0722163344_2 = new Menu("root",200,25,"Arial, Helvetica, sans-serif",11,"#333333","#333366","#cdddee","#a1bedb","left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
			
			<%
			SQL =	"SELECT id_menu, sNOM, sLien FROM mmMenu WHERE idlangue = 1 and idParent = 3 AND bVisible=1 order by iorder"
			
			dtaAdapter = New System.Data.SqlClient.SqlDataAdapter(Toolbox.SqlInjectionBlocker.ValidateQuery(SQL), cnnConnection)
			dtaAdapter.Fill(dttData1)

			'Si nous avons des élément de menu lvl3
			If dttData1.Rows.Count > 0 Then

		        
				for x =0 to dttData1.Rows.Count -1
					
					if cType(dttData1.Rows(x)(2),String) <> "" then
						response.write ("mm_menu_0722163344_2.addMenuItem(""" & cType(dttData1.Rows(x)(1),String) & """,""location='" &cType(dttData1.Rows(x)(2),String) & "'"");")
					else
						response.write ("mm_menu_0722163344_2.addMenuItem(""" & cType(dttData1.Rows(x)(1),String)& """,""location='../capabilities/defaut.aspx?idmenu="& cType(dttData1.Rows(x)(0),String) & "'"");")
					end if
					
				next
				
			end if
			
			dtaAdapter = nothing
			dttData1 =  nothing
			SQL = ""
			%>
			
			mm_menu_0722163344_2.hideOnMouseOut=true;
			mm_menu_0722163344_2.menuBorder=0;
			mm_menu_0722163344_2.menuLiteBgColor='#ffffff';
			mm_menu_0722163344_2.menuBorderBgColor='#ffffff';
			mm_menu_0722163344_2.bgColor='#ffffff';
			   		   
			window.mm_menu_0722163354_2 = new Menu("root",205,25,"Arial, Helvetica, sans-serif",11,"#333333","#333366","#cdddee","#a1bedb","left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
			<%
			SQL =	"SELECT id_menu, sNOM, sLien FROM mmMenu WHERE idlangue = 1 and idParent = 4 AND bVisible=1 order by iorder"
			
			dtaAdapter = New System.Data.SqlClient.SqlDataAdapter(Toolbox.SqlInjectionBlocker.ValidateQuery(SQL), cnnConnection)
			dtaAdapter.Fill(dttData2)

			'Si nous avons des élément de menu lvl3
			If dttData2.Rows.Count > 0 Then

		        
				for x =0 to dttData2.Rows.Count -1
					
					if cType(dttData2.Rows(x)(2),String) <> "" then
						response.write ("mm_menu_0722163354_2.addMenuItem(""" & cType(dttData2.Rows(x)(1),String) & """,""location='" &cType(dttData2.Rows(x)(2),String) & "'"");")
					else
						response.write ("mm_menu_0722163354_2.addMenuItem(""" & cType(dttData2.Rows(x)(1),String)& """,""location='../Services/defaut.aspx?idmenu="& cType(dttData2.Rows(x)(0),String) & "'"");")
					end if
					
				next
				
			end if
			
			dtaAdapter = nothing
			dttData2 =  nothing
			SQL = ""
			%>
			mm_menu_0722163354_2.hideOnMouseOut=true;
			mm_menu_0722163354_2.menuBorder=0;
			mm_menu_0722163354_2.menuLiteBgColor='#ffffff';
			mm_menu_0722163354_2.menuBorderBgColor='#ffffff';
			mm_menu_0722163354_2.bgColor='#ffffff';
			
			window.mm_menu_0722163364_2 = new Menu("root",190,25,"Arial, Helvetica, sans-serif",11,"#333333","#333366","#cdddee","#a1bedb","left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
			
			<%
			SQL =	"SELECT id_menu, sNOM, sLien FROM mmMenu WHERE idlangue = 1 and idParent = 5 AND bVisible=1 order by iorder"
			
			dtaAdapter = New System.Data.SqlClient.SqlDataAdapter(Toolbox.SqlInjectionBlocker.ValidateQuery(SQL), cnnConnection)
			dtaAdapter.Fill(dttData3)

			'Si nous avons des élément de menu lvl3
			If dttData3.Rows.Count > 0 Then

		        
				for x =0 to dttData3.Rows.Count -1
					
					if cType(dttData3.Rows(x)(2),String) <> "" then
						response.write ("mm_menu_0722163364_2.addMenuItem(""" & cType(dttData3.Rows(x)(1),String) & """,""location='" &cType(dttData3.Rows(x)(2),String) & "'"");")
					else
						response.write ("mm_menu_0722163364_2.addMenuItem(""" & cType(dttData3.Rows(x)(1),String)& """,""location='../channel/defaut.aspx?idmenu="& cType(dttData3.Rows(x)(0),String) & "'"");")
					end if
					
				next
				
			end if
			
			dtaAdapter = nothing
			dttData3 =  nothing
			SQL = ""
			%>
			
			
			mm_menu_0722163364_2.hideOnMouseOut=true;
			mm_menu_0722163364_2.menuBorder=0;
			mm_menu_0722163364_2.menuLiteBgColor='#ffffff';
			mm_menu_0722163364_2.menuBorderBgColor='#ffffff';
			mm_menu_0722163364_2.bgColor='#ffffff';
		
			window.mm_menu_0722163374_2 = new Menu("root",190,25,"Arial, Helvetica, sans-serif",11,"#333333","#333366","#cdddee","#a1bedb","left","middle",3,0,1000,-5,7,true,true,true,0,true,true);
			
			<%
			SQL =	"SELECT id_menu, sNOM, sLien FROM mmMenu WHERE idlangue = 1 and idParent = 6 AND bVisible=1 order by iorder"
			
			dtaAdapter = New System.Data.SqlClient.SqlDataAdapter(Toolbox.SqlInjectionBlocker.ValidateQuery(SQL), cnnConnection)
			dtaAdapter.Fill(dttData4)

			'Si nous avons des élément de menu lvl3
			If dttData4.Rows.Count > 0 Then

		        
				for x =0 to dttData4.Rows.Count -1
					
					if cType(dttData4.Rows(x)(2),String) <> "" then
						response.write ("mm_menu_0722163374_2.addMenuItem(""" & cType(dttData4.Rows(x)(1),String) & """,""location='" &cType(dttData4.Rows(x)(2),String) & "'"");")
					else
						response.write ("mm_menu_0722163374_2.addMenuItem(""" & cType(dttData4.Rows(x)(1),String)& """,""location='../tools/defaut.aspx?idmenu="& cType(dttData4.Rows(x)(0),String) & "'"");")
					end if
					
				next
				
			end if
			
			dtaAdapter = nothing
			dttData2 =  nothing
			SQL = ""
			%>
			
			
			mm_menu_0722163374_2.hideOnMouseOut=true;
			mm_menu_0722163374_2.menuBorder=0;
			mm_menu_0722163374_2.menuLiteBgColor='#ffffff';
			mm_menu_0722163374_2.menuBorderBgColor='#ffffff';
			mm_menu_0722163374_2.bgColor='#ffffff';
			
			mm_menu_0722163374_2.writeMenus();
		
			<%cnnConnection.Close()
			cnnConnection.Dispose()%>
			
		} // mmLoadMenus()