'Dim a2, a4, a5

'// About
'ReDim a1(1)
'a1(0) = "О Нас" & vbCrLf & "About.asp"
'a1(1) = "Контакты" & vbCrLf & "Contacts.asp"


'// News
ReDim a3(1)
a3(0) = "Новости" & vbCrLf & "News.asp"
a3(1) = "Архив новостей" & vbCrLf & "News.asp?mode=1"

'// Publishing
ReDim a5(3)
a5(0) = "Наши проекты" & vbCrLf & "pub_Projects.asp"
a5(1) = "Новые поступления" & vbCrLf & "pub_News.asp"
a5(2) = "Книги в печати" & vbCrLf & "pub_CatPrint.asp"
a5(3) = "Наш архив" & vbCrLf & "pub_CatArchive.asp"

'// Trading
ReDim a6(5)
a6(0) = "Условия работы" & vbCrLf & "trade_job.asp"
a6(1) = "Типовой договор" & vbCrLf & "trade_contract.asp"
a6(2) = "Прайс-листы" & vbCrLf & "trade_PriceLists.asp"
a6(3) = "Подписка" & vbCrLf & "trade_SubEntrance.asp"
a6(4) = "Где купить  в розницу" & vbCrLf & "trade_WhereToBuy.asp"
a6(5) = "Интернет-магазин" & vbCrLf & "ShopIntro.asp"

'// Trading
ReDim a7(0)
a7(0) = "Обратная связь" & vbCrLf & "Feedback.asp"

Sub HideMenu()
	HideIt()
End Sub

Sub HideIt()
	idSubMenu.innerHTML = " "
	' window.setTimeout "HideMenu", 10000, "vbscript"
End Sub

Sub ShowMenu(Index)
	Dim HTML
	Dim j, i
	Dim a, b
	Execute "a = a" & Index
	If Not IsArray(a) Then
		idSubMenu.innerHTML = ""
		Exit Sub
	End If
	HTML = ""
	HTML = HTML & "<table cellpadding='0' cellspacing='0' border='0'>"
	HTML = HTML & "<tr>"
	i = UBound(a)
	For j = 0 To i
		b = Split(a(j), vbCrLf)
		HTML = HTML & "<td>"
		HTML = HTML & "<a class='menu2' href='" & b(1) & "'>" & b(0) & "</a>"
		If j <> i Then
			HTML = HTML & "<td><img src='Images/Menu_Spacer.gif' hspace='5' vspace='0'></td>"
		End If
		HTML = HTML & "</td>"
	Next
	HTML = HTML & "</tr>"
	HTML = HTML & "</table>"
	idSubMenu.innerHTML = HTML
End Sub