'' При добавлении нового меню следует поменять индексы
'' в ХТМЛ коде, где происходит вызов TShow() и THide()
'' Для того, чтобы узнать индексы, можно воспользоваться
'' функцией MsgBox (), например:
'' m_0_3=NewMenu(...)
'' Call MsgBox(m_o_3) - выводит ID меню

Dim toFl, toFM

Const gcCaption=1
Const gcURL=2
Const gcTarget=3
Const gcActive=4
Const gcSubID=5
Const gcPointColor=6
Const gcSepColor=7

Const gpCount=7

Dim MItems()
ReDim Preserve MItems(gpCount,1)

Dim thv

Const gcItems=1
Const gcIsVisible=2
Const gcChildVisible=3
Const gcTop=4
Const gcLeft=5
Const gcHeight=6
Const gcWidth=7
Const gcOffsetX=8
Const gcOffsetY=9
Const gcStyle=10
Const gcStyleOver=11
Const gcStyleDefault=12
Const gcStyleBorder=13
Const gcSource=14
Const gcPlace=15
Const gcPTimeout=16
Const gcPOver=17
Const gcParent=18
Const gcPrevItem=19

Const gmCount=19

Dim Menus()
ReDim Preserve Menus(gmCount,1)

Function NewMenu(place,iStyle,iStyleDefault,iStyleOver)
	Dim szMenus
	szMenus=UBound(Menus,2)
	Menus(gcItems,szMenus)=MItems
	Menus(gcIsVisible,szMenus)=0
	Menus(gcChildVisible,szMenus)=0
	Menus(gcTop,szMenus)=0
	Menus(gcLeft,szMenus)=0
	Menus(gcHeight,szMenus)=0
	Menus(gcWidth,szMenus)=0
	If (szMenus=1) Then
		Menus(gcOffsetX,szMenus)=0
		Menus(gcOffsetY,szMenus)=0
	Else
		Menus(gcOffsetX,szMenus)=Menus(gcOffsetX,szMenus-1)
		Menus(gcOffsetY,szMenus)=Menus(gcOffsetY,szMenus-1)
	End If
	Menus(gcStyle,szMenus)=iStyle
	Menus(gcStyleOver,szMenus)=iStyleOver
	Menus(gcStyleDefault,szMenus)=iStyleDefault
	Menus(gcStyleBorder,szMenus)="border-width:1; border-style:solid; border-right-color:#666666; border-bottom-color:#666666; border-top-color:#e0e0e0; border-left-color:#e0e0e0;"
	Menus(gcSource,szMenus)=""
	Menus(gcPlace,szMenus)=place
	Menus(gcPTimeout,szMenus)=setTimeout("zxcvbnmasdfghj=1",1)
	Menus(gcPOver,szMenus)=-1
	Menus(gcParent,szMenus)=-1
	ReDim Preserve Menus(gmCount,szMenus+1)
	NewMenu=szMenus
End Function

Function AddItem(MID,Caption,URL,Target,SubID,PointColor,SepColor)
	If (URL="") Then URL="#" End If
	Dim ciMenu, szItems
	ciMenu=Menus(gcItems,MID)
	szItems=UBound(ciMenu,2)
	ciMenu(gcCaption,szItems)=Caption
	ciMenu(gcURL,szItems)=URL
	ciMenu(gcTarget,szItems)=Target
	ciMenu(gcActive,szItems)=0
	ciMenu(gcSubID,szItems)=SubID
	ciMenu(gcPointColor,szItems)=PointColor
	ciMenu(gcSepColor,szItems)=SepColor
	If (SubID<>0) Then
		Menus(gcParent,SubID)=MID
	End If
	ReDim Preserve ciMenu(gpCount,szItems+1)
	Menus(gcItems,MID)=ciMenu
	AddItem=szItems
End Function

Function GenSrc(MID)
	Dim i
	Dim stmp
	stmp=""
	stmp=stmp & "<table border=0 cellspacing=0 cellpadding=1 id=m" & MID & " style=" & Chr(34) & "position:absolute; top:" & Menus(gcTop,MID) & "; left:" & Menus(gcLeft,MID) & "; z-index:" & CStr(300+MID*5) & "; cursor:default; display:none; background-color:" & Menus(gcStyleDefault,MID) & "; " & Menus(gcStyle,MID) & "; " & Menus(gcStyleBorder,MID) & Chr(34) & ">"
	Dim aItems, track
	aItems=Menus(gcItems,MID)
	For i=1 To UBound(aItems,2)-1
		track=" OnMouseOver=" & chr(34) & "IOver(" & MID & "," & i & ")" & chr(34) & " OnMouseOut=" & chr(34) & "IOut(" & MID & "," & i & ")" & chr(34)
		If (Left(aItems(gcURL,i),1)<>"$") Then
			track=track & " OnClick=" & chr(34) & "IClick(" & MID & "," & i & ")" & chr(34)
		Else
			track=track & " OnClick=" & chr(34) & Right(aItems(gcURL,i),Len(aItems(gcURL,i))-1) & chr(34)
		End If
		stmp=stmp & "<tr id=mi" & i & " style=" & Chr(34) & "background-color: "
		If (aItems(gcSepColor,i)="") Then
			stmp=stmp & Menus(gcStyleDefault,MID)
		Else
			stmp=stmp & aItems(gcSepColor,i)
		End If
		stmp=stmp & Chr(34) & track & "><td width=5>&nbsp;</td>"
		If (aItems(gcCaption,i)<>"") Then
			stmp=stmp & "<td nowrap>" 
			If (aItems(gcPointColor,i)<>"") Then
				stmp=stmp & "<b style=" & Chr(34) & "color:" & aItems(gcPointColor,i) & Chr(34) & "><li>&nbsp;</b>"
			End If
			stmp=stmp & aItems(gcCaption,i) & "</td><td width=3></td><td>"
			If (aItems(gcSubID,i)<>0) Then stmp=stmp & "<b>&gt;</b>" Else stmp=stmp & "&nbsp;" End If
			stmp=stmp & "</td>"
		Else
			stmp=stmp & "<td colspan=3><hr noshade width=100% size=1</td>"
		End If
		stmp=stmp & "<td width=3></td></tr>"
	Next
	stmp=stmp & "</table>"
	Menus(gcSource,MID)="ok"
	GenSrc=stmp
End Function

Function Show(MID)
	If (Menus(gcIsVisible,MID)=1) Then
		Exit Function
	End If
	Dim pl
	Set pl=document.all(Menus(gcPlace,MID))
	If (Menus(gcSource,MID)="") Then
		pl.innerHTML=pl.innerHTML & GenSrc(MID)
		pl.all("m" & MID).style.display=""
		Dim myTmp
		myTmp=pl.all("m" & MID).offsetWidth
		If (Menus(gcParent,MID)>-1) Then
			pl.all("m" & MID).style.pixelLeft=-myTmp
		End If
	Else
		pl.all("m" & MID).style.display=""
		pl.all("m" & MID).setAttribute "width",Menus(gcWidth,MID),1
	End If
	Menus(gcChildVisible,MID)=-1
	Menus(gcIsVisible,MID)=1
	Menus(gcPOver,MID)=-1
	Set pl=Nothing
End Function

Function IClick(MID,ItemID)
	Dim atmp
	atmp=Menus(gcItems,MID)
	If (atmp(gcURL,ItemID)<>"#" AND atmp(gcSepColor,ItemID)="" AND Left(atmp(gcURL,ItemID),1)<>"$") Then
		If (atmp(gcTarget,ItemID)="") Then location.href=atmp(gcURL,ItemID) Else window.open atmp(gcURL,ItemID), atmp(gcTarget,ItemID) End If
	End If
End Function

Function IOver(MID,ItemID)
	Dim tmi, Items, SubID
	Items=Menus(gcItems,MID)
	If (Menus(gcPrevItem,MID)=ItemID) Then
		If (Menus(gcChildVisible,MID)=Items(gcSubID,ItemID)) Then
			If (Menus(gcChildVisible,MID)<>-1) Then
				Call clearTimeout(Menus(gcPTimeout,Menus(gcChildVisible,MID)))
			End If
		End If
	End If
	clearTimeout(Menus(gcPTimeout,MID))
	If (Menus(gcPOver,MID)<>-1) Then
		If (Items(gcSepColor,ItemID)="") Then
			document.all(Menus(gcPlace,MID)).all("m" & MID).all("mi" & Menus(gcPOver,MID)).style.backgroundColor=Menus(gcStyleDefault,MID)
		End If
	End If
	Menus(gcPOver,MID)=ItemID
	Set tmi=document.all(Menus(gcPlace,MID)).all("m" & MID).all("mi" & ItemID)
	If (Items(gcCaption,ItemID)<>"" AND Items(gcSepColor,ItemID)="") Then
		tmi.style.backgroundColor=Menus(gcStyleOver,MID)
	End If
	SubID=Items(gcSubID,ItemID)
	If (SubID<>0) Then
		If (Menus(gcSource,SubID)="") Then
			If ((Menus(gcOffsetX,MID)=0) AND (Menus(gcOffsetY,MID)=0)) Then
				Menus(gcTop,SubID)=Menus(gcTop,MID) + tmi.offsetTop - 1
				Menus(gcLeft,SubID)=Menus(gcLeft,MID) + tmi.offsetLeft + document.all(Menus(gcPlace,MID)).all("m" & MID).offsetWidth - 1
			Else
				Menus(gcTop,SubID)=Menus(gcTop,MID) + tmi.offsetTop + Menus(gcOffsetY,MID)
				Menus(gcLeft,SubID)=Menus(gcLeft,MID) + tmi.offsetLeft + Menus(gcOffsetX,MID)
			End If
		End If
		Menus(gcPTimeout,MID)=setTimeout("ShowChild(" & MID & "," & SubID & ")",200)
	End If
	Set tmi=Nothing
End Function

Function ShowChild(MID,SubID) 
	Menus(gcChildVisible,MID)=SubID
	Show SubID
End Function

Function IOut(MID,ItemID)
	clearTimeout(Menus(gcPTimeout,MID))
	Menus(gcPrevItem,MID)=ItemID
	If (Menus(gcChildVisible,MID)<>-1) Then
		Menus(gcPTimeout,Menus(gcChildVisible,MID))=setTimeout("HideSub(" & Menus(gcChildVisible,MID) & ")",100)
	End If
	Dim Items
	Items=Menus(gcItems,MID)
	If (Menus(gcPOver,MID)<>-1) Then
		If (Items(gcSepColor,ItemID)="") Then
			document.all(Menus(gcPlace,MID)).all("m" & MID).all("mi" & Menus(gcPOver,MID)).style.backgroundColor=Menus(gcStyleDefault,MID)
		End If
	End If
	Menus(gcPOver,MID)=-1
	Menus(gcPTimeout,MID)=setTimeout("Hide(" & MID & ")",400)
End Function

Function HideSub(MID)
	If (Menus(gcWidth,MID)=0 and Menus(gcSource,MID)<>"") Then
		Menus(gcWidth,MID)=document.all(Menus(gcPlace,MID)).all("m" & MID).offsetWidth
	End If
	If (Menus(gcIsVisible,MID)=0) Then
		HideSub=1
		Exit Function
	End If
	If (Menus(gcPOver,MID)<>-1) Then
		HideSub=1
		Exit Function
	End If
	Dim t
	Menus(gcIsVisible,MID)=0
	Menus(gcChildVisible,MID)=-1
	Menus(gcPOver,MID)=-1
	document.all(Menus(gcPlace,MID)).all("m" & MID).style.display="none"
	HideSub=0
	Menus(gcChildVisible,Menus(gcParent,MID))=-1
End Function

Function Hide(MID)
	If (Menus(gcWidth,MID)=0 and Menus(gcSource,MID)<>"") Then
		Menus(gcWidth,MID)=document.all(Menus(gcPlace,MID)).all("m" & MID).offsetWidth
	End If
	If (Menus(gcIsVisible,MID)=0) Then
		Hide=1
		Exit Function
	End If
	If (Menus(gcPOver,MID)<>-1) Then
		Hide=1
		Exit Function
	End If
	Dim t
	If (Menus(gcChildVisible,MID)<>-1) Then
		t=HideSub(Menus(gcChildVisible,MID))
		If (t=1) Then
			Hide=1
			Exit Function
		End If
	End If
	Menus(gcIsVisible,MID)=0
	Menus(gcChildVisible,MID)=-1
	Menus(gcPOver,MID)=-1
	document.all(Menus(gcPlace,MID)).all("m" & MID).style.display="none"
	Hide=0
	If (Menus(gcParent,MID)<>-1) Then
		Menus(gcChildVisible,Menus(gcParent,MID))=-1
		Call Hide(Menus(gcParent,MID))
	End If
End Function

Function THide(MID)
	If (bMenuLoaded) Then
		Call clearTimeout(toFM)
		Menus(gcPTimeout,MID)=setTimeout("Hide(" & MID & ")",100)
	End If
End Function

Function TShow(MID)
	Dim lCnt, bRes
	If (bMenuLoaded) Then
		bRes=False
		For lCnt=0 To UBound(Menus,2)-1
			If (Menus(gcIsVisible,lCnt)=1) Then
				bRes=True
				Exit For
			End If
		Next
		If (bRes) Then
			Call TShowCont(MID)
		Else
			toFM=setTimeout("TShowCont(" & MID & ")", 200)
		End If
	End If
End Function

Function TShowCont(MID)
	clearTimeout(toFl)
	Call SetFlRcl("hidden")
	clearTimeout(Menus(gcPTimeout,MID))
	Show(MID)
End Function

Function SetFlRcl(sVal)
	Dim lCnt, oFlBan
	For lCnt=0 To UBound(arrFlBans)
		Set oFlBan=document.getElementById("Fl" & arrFlBans(lCnt))
		If (Typename(oFlBan)<>"Nothing") Then
			oFlBan.style.visibility=sVal
		End If
	Next
End Function

Sub IsMenuOpen()
	Dim lCnt
	For lCnt=0 To UBound(Menus,2)-1
		If (Menus(gcIsVisible,lCnt)=1) Then
			Exit Sub
		End If
	Next
	Call SetFlRcl("visible")
End Sub


Dim bMenuLoaded, arrFlBans()
ReDim arrFlBans(-1)
bMenuLoaded=False
Function StartMenu()
If (bMenuLoaded) Then
	Exit Function
End If
Dim m, p, st, stdef, sto
st="color: black"
stdef="#cccccc"
sto="#eeeeee"
rem st="color: white"
rem stdef="#6699cc"
rem sto="#97B8DE"
p="paint0"
m0=NewMenu(p,st,stdef,sto)

AddItem m0, "Главная страница раздела", "/mnws.asp", "", 0,"#009900",""
AddItem m0,"&nbsp;<i style=color:#ffffff>новости</i>","#","",0,"","#b9b9b9"
AddItem m0, "Главные новости дня", "/z/nws/hotnewsind.asp", "", 0,"#009900",""
AddItem m0, "Новости в свободном доступе", "/z/nws/default.asp", "", 0,"#009900",""
AddItem m0, "Горячие новости", "/z/nws/hnind.asp", "", 0,"#009900",""
AddItem m0, "Биржевые новости", "/z/nws/stnwsind.asp", "", 0,"#009900",""
AddItem m0, "Интервью", "/z/nws/interviewind.asp", "", 0,"#009900",""
AddItem m0, "Динамика по отраслям", "/z/nws/orgnewsrating.asp?rt=6", "", 0,"#009900",""
AddItem m0, "Рейтинги компаний по новостям", "/z/nws/orgnewsrating.asp", "", 0,"#009900",""
AddItem m0, "Новости IFX-News", "/x/nws/default.asp", "", 0,"#990000",""
AddItem m0, "Архив новостей IFX-News", "/x/nws/arhiv.asp", "", 0,"#990000",""
AddItem m0, "Архив биржевых новостей", "/x/nws/stnwsind.asp", "", 0,"#990000",""
AddItem m0,"&nbsp;<i style=color:#ffffff>аналитика</i>","","",0,"","#b9b9b9"
AddItem m0, "Технический анализ&nbsp;<span style=color:#ff0000>new!</span>", "/z/anl/techanl.asp", "", 0,"#009900",""
AddItem m0, "Аналитическая лента", "/z/anl/default.asp", "", 0,"#009900",""
AddItem m0, "Мнения экспертов", "/z/anl/comm.asp", "", 0,"#009900",""
AddItem m0, "Архив аналитики", "/z/anl/arhiv.asp", "", 0,"#009900",""
AddItem m0,"&nbsp;<i style=color:#ffffff>Личные деньги</i>","#","",0,"","#b9b9b9"
AddItem m0, "Последние материалы", "http://www.pmoney.ru", "_blank", 0,"#009900",""
AddItem m0,"&nbsp;<i style=color:#ffffff>динамика (графики)</i>","#","",0,"","#b9b9b9"
AddItem m0, "Динамика (графики)", "/z/anl/graph.asp", "", 0,"#009900",""

p="paint1"
m1=NewMenu(p,st,stdef,sto)

AddItem m1, "Главная страница раздела", "/mval.asp", "", 0,"#009900",""
AddItem m1, "Java-трансляция","$OpenAC(2)","_blank",0,"#990000",""
AddItem m1, "Биржи - свободный доступ", "/Z/Fmrt/All/default.asp", "", 0,"#009900",""

AddItem m1,"&nbsp;<i style=color:#ffffff>основные валюты</i>","#","",0,"","#b9b9b9"
AddItem m1, "USD - ЦБ РФ, СЭЛТ, наличная валюта", "/z/vlk/valdetails.asp", "", 0,"#009900",""
AddItem m1, "EUR - ЦБ РФ, СЭЛТ, наличная валюта", "/z/vlk/valdetails.asp?val=978", "", 0,"#009900",""
AddItem m1,"&nbsp;<i style=color:#ffffff>цб рф</i>","#","",0,"","#b9b9b9"
AddItem m1, "Курсы валют ЦБ РФ, конвертор валют", "/z/vlk/cbrf.asp", "", 0,"#009900",""
AddItem m1, "Прогнозы курсов валют ЦБ РФ", "/z/vlk/cbrfpr.asp", "", 0,"#009900",""
AddItem m1, "Показатели стабильности валют", "/z/vlk/stabrate.asp", "", 0,"#009900",""
AddItem m1, "Архив курсов валют ЦБ РФ", "/z/vlk/cbrfhist.asp", "", 0,"#009900",""
AddItem m1,"&nbsp;<i style=color:#ffffff>наличная валюта, кросс курсы</i>","#","",0,"","#b9b9b9"
AddItem m1, "Наличная валюта on-line", "/z/vlk/nalval.asp", "", 0,"#009900",""
AddItem m1, "Кросс-курсы валют", "/z/vlk/cross.asp", "", 0,"#009900",""
AddItem m1, "Соотношения курсов валют по ЦБ РФ", "/z/vlk/cbrfratios.asp", "", 0,"#009900",""
AddItem m1, "Курсы валют нац. банков стран СНГ и Балтии", "/z/vlk/sngrates.asp", "", 0,"#009900",""
AddItem m1,"&nbsp;<i style=color:#ffffff>биржи</i>","#","",0,"","#b9b9b9"
AddItem m1,"ММВБ СЭЛТ свободный доступ","/z/fmrt/mcxslt/default.asp","",0,"#009900",""
AddItem m1,"ММВБ СЭЛТ","/x/fmrt/mcxslt/default.asp","",0,"#990000",""
AddItem m1,"FOREX","/x/fmrt/forex/default.asp","",0,"#990000",""
AddItem m1,"ТС DELTA","/x/fmrt/delta/default.asp","",0,"#990000",""
AddItem m1,"СПВБ валюта (15 мин. задержка)","/z/fmrt/spcurex/default.asp","",0,"#009900",""
AddItem m1,"СПВБ валюта","/x/fmrt/spcurex/default.asp?rid=2","",0,"#990000",""
AddItem m1,"НП МРС МБК-online","/z/fmrt/mpc/default.asp","",0,"#009900",""
AddItem m1,"&nbsp;<i style=color:#ffffff>прогнозы, аналитика</i>","#","",0,"","#b9b9b9"
AddItem m1, "Биржевые новости", "/z/nws/stnwsind.asp?rid=2&sec=236", "", 0,"#009900",""
AddItem m1, "Прогнозы валютного рынка", "/z/anl/progvm.asp?rid=2", "", 0,"#009900",""
AddItem m1, "Аналитическая лента", "/z/anl/default.asp?rid=2&lr=53", "", 0,"#009900",""
AddItem m1, "Мнения экспертов", "/z/anl/comm.asp?rid=2", "", 0,"#009900",""
AddItem m1,"&nbsp;<i style=color:#ffffff>файлы</i>","#","",0,"","#b9b9b9"
AddItem m1, "Валютный рынок", "/x/fin/default.asp?rid=2&sid=39", "", 0,"#990000",""
AddItem m1, "Денежный рынок", "/x/fin/default.asp?rid=2&sid=38", "", 0,"#990000",""

p="paint2"
m2=NewMenu(p,st,stdef,sto)
AddItem m2, "Главная страница раздела", "/mfnd.asp", "", 0,"#009900",""
AddItem m2, "Java-трансляция","$OpenAC(2)","_blank",0,"#990000",""
AddItem m2, "Биржи - свободный доступ", "/Z/Fmrt/All/default.asp", "", 0,"#009900",""

AddItem m2,"&nbsp;<i style=color:#ffffff>биржи</i>","#","",0,"","#b9b9b9"
AddItem m2,"ММВБ КЦБ - Blue Chips","/x/fmrt/mcxeq/default.asp","",0,"#990000",""
AddItem m2,"ММВБ КЦБ - Blue chips (15мин.задержка)","/z/fmrt/d_mcxeq/default.asp","",0,"#009900",""
AddItem m2,"ММВБ КЦБ - Акции остальные","/x/fmrt/mcxeq_ost/default.asp","",0,"#990000",""
AddItem m2,"ММВБ КЦБ - Акции остальные (15мин. задержка)","/z/fmrt/mcxeq_ost/default.asp","",0,"#009900",""
AddItem m2,"ММВБ КЦБ - Акции РЕПО","/x/fmrt/mcxeq_repo/default.asp","",0,"#990000",""
AddItem m2,"ММВБ КЦБ РПС","/x/fmrt/mcxeqrps/default.asp","",0,"#990000",""
AddItem m2,"ММВБ КЦБ РПС (15 мин. задержка)","/z/fmrt/mcxeqrps/default.asp","",0,"#009900",""
AddItem m2,"РТС Классический рынок акций","/x/fmrt/rts/default.asp","",0,"#990000",""
AddItem m2,"РТС Классический рынок акций (15 мин. задержка)","/z/fmrt/d_rts/default.asp","",0,"#009900",""
AddItem m2,"РТС Газпром","/x/fmrt/rtssgkg/default.asp","",0,"#990000",""
AddItem m2,"РТС Газпром (15 мин. задержка)","/z/fmrt/rtssgkg/default.asp","",0,"#009900",""
AddItem m2,"РТС FORTS","/x/fmrt/forts/default.asp","",0,"#990000",""
AddItem m2,"РТС FORTS (15 мин. задержка)","/z/fmrt/forts/default.asp","",0,"#009900",""
AddItem m2,"РТС Биржевой рынок акций ","/x/fmrt/rtsg/default.asp","",0,"#990000",""
AddItem m2,"РТС Биржевой рынок акций (15мин. задержка)","/z/fmrt/rtsg/default.asp","",0,"#009900",""
AddItem m2,"РТС Стандарт ","/x/fmrt/rtsstd/default.asp","",0,"#990000",""
AddItem m2,"РТС Стандарт (15мин. задержка)","/z/fmrt/rtsstd/default.asp","",0,"#009900",""
AddItem m2,"Московская фондовая биржа","/x/fmrt/mse/default.asp","",0,"#990000",""
AddItem m2,"ФБ Санкт-Петербург","/x/fmrt/spbex/default.asp","",0,"#990000",""
AddItem m2,"Российские фондовые индексы","/z/fmrt/rstind/default.asp","",0,"#009900",""
AddItem m2,"&nbsp;<i style=color:#ffffff>аналитика</i>","#","",0,"","#b9b9b9"
AddItem m2, "Технический анализ&nbsp;<span style=color:#ff0000>new!</span>", "/z/anl/techanl.asp", "", 0,"#009900",""
AddItem m2, "Биржевые новости", "/z/nws/stnwsind.asp?rid=3&sec=237", "", 0,"#009900",""
AddItem m2, "Аналитическая лента", "/z/anl/default.asp?rid=3&lr=54", "", 0,"#009900",""
AddItem m2, "Мнения экспертов", "/z/anl/comm.asp?rid=3", "", 0,"#009900",""
AddItem m2,"&nbsp;<i style=color:#ffffff>файлы</i>","#","",0,"","#b9b9b9"
AddItem m2, "Рынок корпоративных бумаг", "/x/fin/default.asp?rid=3&sid=42", "", 0,"#990000",""

p="paint3"
m3=NewMenu(p,st,stdef,sto)
AddItem m3, "Главная страница раздела", "/mobv.asp", "", 0,"#009900",""
AddItem m3, "Java-трансляция","$OpenAC(2)","_blank",0,"#990000",""
AddItem m3, "Биржи - свободный доступ", "/Z/Fmrt/All/default.asp", "", 0,"#009900",""

AddItem m3,"&nbsp;<i style=color:#ffffff>биржи</i>","#","",0,"","#b9b9b9"
AddItem m3, "ММВБ ГосОблигации (15 мин. задержка)","/z/fmrt/mcxbn/default.asp","",0,"#009900",""
AddItem m3, "ММВБ ГосОблигации", "/x/fmrt/mcxbn/default.asp", "", 0,"#990000",""
AddItem m3, "ММВБ КЦБ - Облигации (15 мин. задержка)","/z/fmrt/mcxeqbn/default.asp","",0,"#009900",""
AddItem m3, "ММВБ КЦБ - Облигации", "/x/fmrt/mcxeqbn/default.asp", "", 0,"#990000",""
AddItem m3, "ММВБ КЦБ - Облигации РЕПО","/x/fmrt/mcxeq_repobnd/default.asp","",0,"#990000",""
AddItem m3, "СПВБ облигации (15 мин. задержка)","/z/fmrt/spcurexbnd/default.asp","",0,"#009900",""
AddItem m3, "СПВБ облигации","/x/fmrt/spcurexbnd/default.asp?rid=4","",0,"#990000",""
AddItem m3,"РТС облигации","/x/fmrt/rts_obl/default.asp","",0,"#990000",""
AddItem m3,"&nbsp;<i style=color:#ffffff>аналитика</i>","#","",0,"","#b9b9b9"
AddItem m3, "Биржевые новости", "/z/nws/stnwsind.asp?rid=4&sec=238", "", 0,"#009900",""
AddItem m3, "Аналитическая лента", "/z/anl/default.asp?rid=4&lr=55", "", 0,"#009900",""
AddItem m3, "Мнения экспертов", "/z/anl/comm.asp?rid=4", "", 0,"#009900",""
AddItem m3,"&nbsp;<i style=color:#ffffff>файлы</i>","#","",0,"","#b9b9b9"
AddItem m3, "Рынок госбумаг", "/x/fin/default.asp?rid=4&sid=40", "", 0,"#990000",""
AddItem m3, "Рынок корпоративных бумаг", "/x/fin/default.asp?rid=4&sid=42", "", 0,"#990000",""
AddItem m3, "Рынок ГКО-ОФЗ", "/x/fin/default.asp?rid=4&sid=44", "", 0,"#990000",""
AddItem m3,"&nbsp;<i style=color:#ffffff>RusBonds</i>","#","",0,"","#b9b9b9"
AddItem m3, "Рынок облигаций России", "http://www.rusbonds.ru", "_blank", 0,"#009900",""


p="paint4"
m4=NewMenu(p,st,stdef,sto)
AddItem m4, "Главная страница раздела", "/mwmr.asp", "", 0,"#009900",""
AddItem m4, "Java-трансляция","$OpenAC(2)","_blank",0,"#990000",""
AddItem m4, "Биржи - свободный доступ", "/Z/Fmrt/All/default.asp", "", 0,"#009900",""

AddItem m4,"&nbsp;<i style=color:#ffffff>мировые рынки</i>","#","",0,"","#b9b9b9"
AddItem m4,"Фонд.индексы-Европа","/x/fmrt/IndEu/default.asp","",0,"#990000",""
AddItem m4,"Фонд.индексы-Азия","/x/fmrt/IndAs/default.asp","",0,"#990000",""
AddItem m4,"Фонд.индексы-Америка","/x/fmrt/IndAm/default.asp","",0,"#990000",""
AddItem m4,"Мировые фьючерсы","/x/fmrt/Wfut/default.asp","",0,"#990000",""
AddItem m4,"Мировые цены на нефть","/x/fmrt/Woil/default.asp","",0,"#990000",""
AddItem m4,"FOREX","/x/fmrt/forex/default.asp?rid=5","",0,"#990000",""
AddItem m4,"ФБ СПб Товарные фьючерсы","/x/fmrt/SpbGoodFut/default.asp","",0,"#990000",""
AddItem m4,"&nbsp;<i style=color:#ffffff>аналитика</i>","#","",0,"","#b9b9b9"
AddItem m4, "Аналитическая лента", "/z/anl/default.asp?rid=5&lr=56", "", 0,"#009900",""
AddItem m4, "Мнения экспертов", "/z/anl/comm.asp?rid=5", "", 0,"#009900",""
AddItem m4,"&nbsp;<i style=color:#ffffff>файлы</i>","#","",0,"","#b9b9b9"
AddItem m4, "Международные фин. рынки", "/x/fin/default.asp?rid=5&sid=54", "", 0,"#990000",""
AddItem m4, "Товарный рынок", "/x/fin/default.asp?rid=5&sid=69", "", 0,"#990000",""

p="paint5"
m5=NewMenu(p,st,stdef,sto)
m5_1=NewMenu(p,st,stdef,sto)
m5_2=NewMenu(p,st,stdef,sto)

AddItem m5, "Главная страница раздела", "/mpro.asp", "", 0,"#009900",""
AddItem m5,"&nbsp;<i style=color:#ffffff>информационные</i>","#","",0,"","#b9b9b9"
AddItem m5, "RUSBonds - облигации в России", "http://www.rusbonds.ru", "_blank", 0,"#009900",""
AddItem m5, "Личные деньги - деловой журнал", "http://www.personalmoney.ru", "_blank", 0,"#009900",""
AddItem m5, "Val.ru - все о валюте&nbsp;<span style=color:#ff0000>new!</span>", "http://www.val.ru", "_blank", 0,"#009900",""
AddItem m5, "Информеры Финмаркет", "http://extds.finmarket.ru/informers.asp", "_blank", 0,"#009900",""
'' AddItem m5, "Каталог финансовых ресурсов", "http://www.fmcatalog.ru", "_blank", 0,"#009900",""
'' AddItem m5, "Каталог компаний", "http://company.finmarket.ru", "_blank", 0,"#009900",""
AddItem m5, "Финмаркет РеалТайм", "http://fmrt.finmarket.ru", "_blank", m5_1,"#FFFF66",""
AddItem m5, "Электронные бюллетени", "", "", m5_2,"#990000",""
AddItem m5, "Частный инвестор", "/mpi.asp", "_top", 0,"#FFFF66",""
'' AddItem m5,"&nbsp;<i style=color:#ffffff>сервисные</i>","#","",0,"","#b9b9b9"
'' AddItem m5, "Internet конференции", "http://cnf.finmarket.ru", "_blank", 0,"#009900",""
'' AddItem m5, "Internet конференции Interfax", "http://cnf.interfax.ru", "_blank", 0,"#009900",""
'' AddItem m5,"&nbsp;<i style=color:#ffffff>разработка</i>","#","",0,"","#b9b9b9"
'' AddItem m5, "Web-студия Web.Finmarket", "http://www.webfm.ru/", "_blank", 0,"#009900",""
'' AddItem m5,"&nbsp;<i style=color:#ffffff>Прочие</i>","#","",0,"","#b9b9b9"
'' AddItem m5, "VIP-Клуб ИА Финмаркет", "http://vip.finmarket.ru/", "_blank", 0,"#009900",""
'' AddItem m5, "Книжный магазин", "http://books.finmarket.ru/", "_blank", 0,"#009900",""

AddItem m5_1, "Официальный сайт", "http://fmrt.finmarket.ru", "_blank", 0,"#009900",""
AddItem m5_1, "Java-трансляция","$OpenAC(2)","_blank",0,"#990000",""

AddItem m5_2, "Валютный рынок", "/x/fin/default.asp?rid=6&sid=39", "", 0,"#990000",""
AddItem m5_2, "Рынок госбумаг", "/x/fin/default.asp?rid=6&sid=40", "", 0,"#990000",""
AddItem m5_2, "Новости", "/x/fin/default.asp?rid=6&sid=46", "", 0,"#990000",""
AddItem m5_2, "Денежный рынок", "/x/fin/default.asp?rid=6&sid=38", "", 0,"#990000",""
AddItem m5_2, "Индикаторы фин.рынка", "/x/fin/default.asp?rid=6&sid=37", "", 0,"#990000",""
AddItem m5_2, "Рынок корпоративных бумаг", "/x/fin/default.asp?rid=6&sid=42", "", 0,"#990000",""
AddItem m5_2, "Рынок ГКО-ОФЗ", "/x/fin/default.asp?rid=6&sid=44", "", 0,"#990000",""
AddItem m5_2, "Международные фин. рынки", "/x/fin/default.asp?rid=6&sid=54", "", 0,"#990000",""
AddItem m5_2, "Товарный рынок", "/x/fin/default.asp?rid=6&sid=69", "", 0,"#990000",""
AddItem m5_2, "Торговля акциями в РТС", "/x/fin/default.asp?rid=6&sid=53", "", 0,"#990000",""


p="paint6"
m6=NewMenu(p,st,stdef,sto)
AddItem m6, "&nbsp;<i style=color:#ffffff>ИА 'Финмаркет'</i>","#","",0,"","#b9b9b9"
AddItem m6, "Новости агентства", "/z/nws/agnewsind.asp", "", 0,"#009900",""
AddItem m6, "Новости сайта", "/z/nws/snewsind.asp", "", 0,"#009900",""
AddItem m6, "Главные события", "/z/nws/mevntsind.asp", "", 0,"#009900",""
AddItem m6, "Как к нам доехать?", "/z/abt/way.asp", "", 0,"#009900",""
AddItem m6, "Новости партнеров", "/z/nws/pressind.asp", "", 0,"#009900",""
AddItem m6, "Наши партнеры", "/z/abt/partners.asp", "", 0,"#009900",""
AddItem m6, "Вакансии", "/z/abt/vacancy.asp", "", 0,"#009900",""
AddItem m6, "&nbsp;<i style=color:#ffffff>Услуги агентства</i>","#","",0,"","#b9b9b9"
AddItem m6, "Информационные продукты", "/z/abt/info.asp", "", 0,"#009900",""
AddItem m6, "База данных по облигациям", "http://www.rusbonds.ru/products.asp", "", 0,"#009900",""
AddItem m6, "Поставка контента", "/z/els/content.asp", "", 0,"#009900",""
AddItem m6, "IFX-News", "/z/els/ifx.asp", "", 0,"#009900",""
AddItem m6, "&nbsp;<i style=color:#ffffff>Реклама и PR</i>","#","",0,"","#b9b9b9"
AddItem m6, "Реклама на сервере", "/z/abt/recserver.asp", "", 0,"#009900",""
AddItem m6, "Партнёрство и PR", "/z/abt/pr.asp", "", 0,"#009900",""
AddItem m6, "Календарь событий", "/z/els/info.asp", "", 0,"#009900",""
AddItem m6,"&nbsp;<i style=color:#ffffff>Сервисные проекты</i>","#","",0,"","#b9b9b9"
AddItem m6, "Internet конференции", "http://cnf.finmarket.ru", "_blank", 0,"#009900",""
AddItem m6, "Internet конференции Interfax", "http://cnf.interfax.ru", "_blank", 0,"#009900",""
AddItem m6,"&nbsp;<i style=color:#ffffff>Разработка</i>","#","",0,"","#b9b9b9"
AddItem m6, "Web-студия Web.Finmarket", "http://www.webfm.ru/", "_blank", 0,"#009900",""

p="paint7"
m7=NewMenu(p,st,stdef,sto)
m7_1=NewMenu(p,st,stdef,sto)
m7_2=NewMenu(p,st,stdef,sto)
AddItem m7, "Главная страница раздела", "/mbw.asp", "", 0,"#009900",""
AddItem m7, "&nbsp;<i style=color:#ffffff>компании и рынки</i>","#","",0,"","#b9b9b9"
AddItem m7, "Банки", "/z/bw/banks.asp", "", m7_2,"#009900",""
AddItem m7, "Страхование", "/z/bw/insur.asp", "", m7_1,"#009900",""
AddItem m7, "Архив - поиск", "/z/bw/archive.asp", "", 0,"#009900",""
AddItem m7, "Каталог компаний", "/z/bw/orgind.asp", "", 0,"#009900",""
AddItem m7, "&nbsp;<i style=color:#ffffff>аналитика</i>","#","",0,"","#b9b9b9"
AddItem m7, "Кредитные рейтинги", "/z/bw/credratings.asp", "", 0,"#009900",""
AddItem m7, "Рэнкинги ИФ100", "/z/bw/rankings.asp", "", 0,"#009900",""

AddItem m7_1, "Новости", "/z/bw/ins_newsind.asp", "", 0,"#009900",""
AddItem m7_1, "Актуальная тема", "/z/bw/ins_anlind.asp?sec=1434", "", 0,"#009900",""
AddItem m7_1, "Эксклюзив", "/z/bw/ins_anlind.asp?sec=1432", "", 0,"#009900",""
AddItem m7_1, "РСА автострахование", "/z/bw/ins_anlind.asp?sec=1431", "", 0,"#009900",""

AddItem m7_2, "Новости", "/z/bw/banks_newsind.asp", "", 0,"#009900",""
AddItem m7_2, "Актуальная тема", "/z/bw/banks_anlind.asp?sec=1442", "", 0,"#009900",""
AddItem m7_2, "Эксклюзив", "/z/bw/banks_anlind.asp?sec=1443", "", 0,"#009900",""
AddItem m7_2, "Мониторинг банковских продуктов", "/z/els/mmarcs.asp", "", 0,"#009900",""


p="paint8"
m8=NewMenu(p,st,stdef,sto)
AddItem m8, "Главная страница раздела", "/mpif.asp", "", 0,"#009900",""
AddItem m8, "&nbsp;<i style=color:#ffffff>фонды</i>","#","",0,"","#b9b9b9"
AddItem m8, "Котировки ПИФов", "/z/fmrt/dtg/default.asp?pr=0&ms=F&src=10021", "", 0,"#009900",""
AddItem m8, "Котировки ОФБУ", "/z/fmrt/dtg/default.asp?r=0&ms=F&src=10245", "", 0,"#009900",""
AddItem m8, "Индексы НРА", "/z/fmrt/dtg/default.asp?r=0&ms=F&src=10274", "", 0,"#009900",""
AddItem m8, "Новости", "/z/nws/pifnwsind.asp", "", 0,"#009900",""
AddItem m8, "&nbsp;<i style=color:#ffffff>аналитика</i>","#","",0,"","#b9b9b9"
AddItem m8, "Оценки качества управления ", "/z/am/cea.asp", "", 0,"#009900",""
AddItem m8, "Рейтинги УК", "/z/bw/credratings.asp?rt=0&id=40#rate", "", 0,"#009900",""


p="paint9"
m9=NewMenu(p,st,stdef,sto)
AddItem m9, "Информационные продукты", "/z/abt/info.asp", "", 0,"#009900",""
AddItem m9, "База данных по облигациям", "http://www.rusbonds.ru/products.asp", "", 0,"#009900",""
AddItem m9, "Поставка контента", "/z/els/content.asp", "", 0,"#009900",""
AddItem m9, "IFX-News", "/z/els/ifx.asp", "", 0,"#009900",""
AddItem m9, "&nbsp;<i style=color:#ffffff>Реклама и PR</i>","#","",0,"","#b9b9b9"
AddItem m9, "Реклама на сервере", "/z/abt/recserver.asp", "", 0,"#009900",""
AddItem m9, "Партнёрство и PR", "/z/abt/pr.asp", "", 0,"#009900",""
AddItem m9, "Календарь событий", "/z/els/info.asp", "", 0,"#009900",""
AddItem m9,"&nbsp;<i style=color:#ffffff>Сервисные проекты</i>","#","",0,"","#b9b9b9"
AddItem m9, "Internet конференции", "http://cnf.finmarket.ru", "_blank", 0,"#009900",""
AddItem m9, "Internet конференции Interfax", "http://cnf.interfax.ru", "_blank", 0,"#009900",""
AddItem m9,"&nbsp;<i style=color:#ffffff>Разработка</i>","#","",0,"","#b9b9b9"
AddItem m9, "Web-студия Web.Finmarket", "http://www.webfm.ru/", "_blank", 0,"#009900",""

bMenuLoaded=True
Call setInterval("IsMenuOpen()",500)
End Function

Sub OpenAC(iNum)
	Select Case iNum
		Case 1
			'call window.open("/ac/x/test/default.asp?act=1", "", "status=0; resizable=1; scrollbars=1; fullscreen=1; top=0; left=0; width=100%; height=100%")
			call window.open("/ac/x/test/default.asp", "", "status=1; resizable=1; scrollbars=1; fullscreen=0; top=0; left=0; width="&screen.availWidth-10&"; height="&screen.availHeight-50)
		Case 2
			call window.open("/x/mon/default.asp", "", "status=1; resizable=1; scrollbars=1; fullscreen=0; top=0; left=0; width="&screen.availWidth-10&"; height="&screen.availHeight-50)
	End Select
End Sub 

Call StartMenu()

<!-- This document saved from http://www.finmarket.ru/dmn.vbs -->