Dim oldId, oldBgColor, busyElem
Dim oldMenu, oldMenuBgColor
Dim colorMenuOn
Dim colorMenuOff
Dim CR

function setmenu() 

Dim aMenu(5,25)
Dim iIndex
Dim cHtml
Dim iMenu

iIndex=1: aMenu(0,iIndex) = "1":  aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "ГЛАВНАЯ": aMenu(3,iIndex) = "index.htm": aMenu(4,iIndex) = "135px": aMenu(5,iIndex) = "empty"
iIndex=2: aMenu(0,iIndex) = "1-1": aMenu(1,iIndex) = "1": aMenu(2,iIndex) = "Пункт 1-1": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=3: aMenu(0,iIndex) = "1-2": aMenu(1,iIndex) = "1": aMenu(2,iIndex) = "Пункт 1-2": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=4: aMenu(0,iIndex) = "1-3": aMenu(1,iIndex) = "1": aMenu(2,iIndex) = "Пункт 1-3": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"

iIndex=5: aMenu(0,iIndex) = "2": aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "СТРУКТУРА": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px": aMenu(5,iIndex) = "empty"
iIndex=6: aMenu(0,iIndex) = "2-1": aMenu(1,iIndex) = "2": aMenu(2,iIndex) = "Пункт 2-1": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=7: aMenu(0,iIndex) = "2-2": aMenu(1,iIndex) = "2": aMenu(2,iIndex) = "Пункт 2-2": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=8: aMenu(0,iIndex) = "2-3": aMenu(1,iIndex) = "2": aMenu(2,iIndex) = "Пункт 2-3": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"

iIndex=9: aMenu(0,iIndex) = "3": aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "ИСТОРИЯ": aMenu(3,iIndex) = "History_main.htm": aMenu(4,iIndex) = "135px": aMenu(5,iIndex) = ""
iIndex=10: aMenu(0,iIndex) = "3-1": aMenu(1,iIndex) = "3": aMenu(2,iIndex) = "Размыв": aMenu(3,iIndex) = "History_razm.htm": aMenu(4,iIndex) = "200px"
iIndex=11: aMenu(0,iIndex) = "3-2": aMenu(1,iIndex) = "3": aMenu(2,iIndex) = "Достижения и награды": aMenu(3,iIndex) = "History_priznanie.htm": aMenu(4,iIndex) = "200px"
iIndex=12: aMenu(0,iIndex) = "3-3": aMenu(1,iIndex) = "3": aMenu(2,iIndex) = "Ветераны": aMenu(3,iIndex) = "History_veterans.htm": aMenu(4,iIndex) = "200px"
iIndex=13: aMenu(0,iIndex) = "3-4": aMenu(1,iIndex) = "3": aMenu(2,iIndex) = "Архив": aMenu(3,iIndex) = "History_arhiv.htm": aMenu(4,iIndex) = "200px"

iIndex=14: aMenu(0,iIndex) = "4": aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "СТРОИТЕЛЬСТВО": aMenu(3,iIndex) = "Const_main.htm": aMenu(4,iIndex) = "155px": aMenu(5,iIndex) = ""					
iIndex=15: aMenu(0,iIndex) = "4-1": aMenu(1,iIndex) = "4": aMenu(2,iIndex) = "Конструкции станций": aMenu(3,iIndex) = "Const_01.htm": aMenu(4,iIndex) = "200px"
iIndex=16: aMenu(0,iIndex) = "4-2": aMenu(1,iIndex) = "4": aMenu(2,iIndex) = "Строящиеся объекты": aMenu(3,iIndex) = "Const_objects.htm": aMenu(4,iIndex) = "200px"
iIndex=17: aMenu(0,iIndex) = "4-3": aMenu(1,iIndex) = "4": aMenu(2,iIndex) = "Технологии": aMenu(3,iIndex) = "Const_main.htm": aMenu(4,iIndex) = "200px"

iIndex=18: aMenu(0,iIndex) = "5": aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "ЗАКАЗЧИКИ": aMenu(3,iIndex) = "Clients_main.htm": aMenu(4,iIndex) = "135px": aMenu(5,iIndex) = "empty"	
iIndex=19: aMenu(0,iIndex) = "5-1": aMenu(1,iIndex) = "5": aMenu(2,iIndex) = "Пункт 5-1": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=20: aMenu(0,iIndex) = "5-2": aMenu(1,iIndex) = "5": aMenu(2,iIndex) = "Пункт 5-2": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=21: aMenu(0,iIndex) = "5-3": aMenu(1,iIndex) = "5": aMenu(2,iIndex) = "Пункт 5-3": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"

iIndex=22: aMenu(0,iIndex) = "6": aMenu(1,iIndex) = "0": aMenu(2,iIndex) = "КОНТАКТЫ": aMenu(3,iIndex) = "Kontakts_main.htm": aMenu(4,iIndex) = "135px": aMenu(5,iIndex) = "empty"	
iIndex=23: aMenu(0,iIndex) = "6-1": aMenu(1,iIndex) = "6": aMenu(2,iIndex) = "Пункт 6-1": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=24: aMenu(0,iIndex) = "6-2": aMenu(1,iIndex) = "6": aMenu(2,iIndex) = "Пункт 6-2": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
iIndex=25: aMenu(0,iIndex) = "6-3": aMenu(1,iIndex) = "6": aMenu(2,iIndex) = "Пункт 6-3": aMenu(3,iIndex) = "Holding_main.htm": aMenu(4,iIndex) = "135px"
				
iMenu=0
cHtml=cHtml+"<!-- меню -->"+CR
cHtml=cHtml+"<table cellspacing=0>"+CR
cHtml=cHtml+"<tr>"+CR
for iIndex = 1 to 25
	
  if (aMenu(1,iIndex) = "0") Then
  	iMenu = iMenu+1
  	cHtml=cHtml+"<!--  " & iMenu & " пункт меню -->"+CR
    cHtml=cHtml+"<td class='menu'  width='"+ aMenu(4,iIndex)+"' id='menu" & iMenu & "' onMouseOver='showMenu(""menu" & iMenu &"#"& aMenu(5,iIndex)+""")' onMouseOut='busy_elem(""""):hidden_Menu(""menu" & iMenu & """)' onClick=""document.location = '"+aMenu(3,iIndex)+"'"">"+CR
  	cHtml=cHtml+"&nbsp<b><a href="""+aMenu(3,iIndex)+""" onMouseOver='busy_elem(""menu" & iMenu & """)' ><font size='2'>"+aMenu(2,iIndex)+"</font></a></b></td>"+CR
  end if
Next

cHtml=cHtml+"</tr>"+CR

iMenu=0
cHtml=cHtml+"<tr>"+CR

for iIndex = 1 to 25

  if (aMenu(1,iIndex)= "0") Then
	if (iMenu <>"0") Then
		cHtml=cHtml+"</table>"+CR
	end if
	iMenu =aMenu(0,iIndex)
	cHtml=cHtml+"<!-- Подменю "+ aMenu(0,iIndex)  +" пункта меню -->"+CR
	cHtml=cHtml+"<td valign='top'>"+CR
	cHtml=cHtml+"<table id='menu" & iMenu & "_Items' class='submenu' onMouseOver='busy_elem(""menu" & iMenu & """)' onMouseOut='busy_elem(""""): hidden_Menu(""menu" & iMenu &""")' width='"+ aMenu(4,iIndex+1)+"'>"+CR
	

  else 
	cHtml=cHtml+"<tr>"+CR
  	cHtml=cHtml+"<td id=""menu"+aMenu(0,iIndex)+""" onMouseOver='busy_elem(""menu"+aMenu(1,iIndex)+"""):lightOn(""menu"+aMenu(0,iIndex)+""")' onMouseOut=""lightOff()"" onClick=""document.location = '"+aMenu(3,iIndex)+"'""><a href="""+aMenu(3,iIndex)+"""><img border=""0"" src=""images/strela_grey.gif"" width=""15"" height=""15"">"+aMenu(2,iIndex)+"</a></td>"
	cHtml=cHtml+"</tr>"+CR
  end if
Next

cHtml=cHtml+"</table>"+CR

menu_container.innerHtml=cHtml
'menu_text.innerText=cHtml

end function


function setval()
oldId = ""
busyElem =""
colorMenuOn = "#FAB074"
colorMenuOff = "#CCCCCC"
CR= Chr(13)

'msgbox "setval()"

end function

function showMenu(elem)

  dim iMenu
  dim type_elem
  type_elem = mid(elem,7)
  elem=left(elem,5)

  document.getElementById(elem).style.background = colorMenuOn
  if type_elem <> "empty" Then
	  document.getElementById(elem+"_items").style.visibility = "visible"
  end if 
  'info.innerText="showMenu("+elem+")"+"<<<"+info.innerText

  for iMenu=1 to 6
	   if (("menu" & iMenu) <> elem) then
 	     document.getElementById("menu" & iMenu).style.background = colorMenuOff
	     document.getElementById("menu" & iMenu & "_items").style.visibility = "hidden"
	   end if
  Next
end function

function hidden_Menu(elem)
  'info.innerText="hidden_Menu("+elem+")"+"<<<"+info.innerText 
  setTimeout ("hiddenMenu('"+elem+"')"),100
end function

function busy_elem(elem)
  'info.innerText="busy_elem("+elem+")"+"<<<"+info.innerText
  busyElem = elem
end function

function hiddenMenu(elem)
  'info.innerText="hiddenMenu("+elem+")" +"<<<"+info.innerText
  if (elem <> busyElem) Then
    document.getElementById(elem).style.background = colorMenuOff
    document.getElementById(elem+"_items").style.visibility = "hidden"
  end if
end function

function lightOn(elem)
  oldId = elem
  oldBgColor = document.getElementById(elem).style.background
  document.getElementById(elem).style.background = "#F88F3A"
end function

function lightOff()
  if (oldId <> "") Then
   document.getElementById(oldId).style.background = oldBgColor
   oldId = ""
  end if 
end function