' ---------------------------------
'	Modified by  Апарышев Валерий
' ---------------------------------

' Элементы меню Оглавление сайта 
Dim MainPaper
MainPaper=array(1,"index.htm","Главная страница",_
0,"!",LongTire3,_
4,"index_resh.htm","Принятие решения",_
1,"for_press.htm","Документы",_
1,"for_press_2.htm","WEB Дизайнерам",_
1,"people.htm","Регистрация",_
1,"weekly.htm","Ежедневник",_
0,"!",LongTire3,_
1,"for_press_1.htm","Реальные итоги опроса",_
2,"index_duma.htm","- Выберем свою Государственную Думу",_
0,"!",LongTire3,_
1,"kto.htm","Кто он(а) лучший или худший",_
6,"index_good.htm","- Лучший из лучших",_
5,"index_bad.htm","- Худший из худших",_
0,"!",LongTire3,_
3,"index_pr.htm","Выберем президента - Главная страница",_
0,"!",LongTire3,_
1,"golos_prezident.htm","Бюллетень голосования",_
3,"vibory.htm","Итоги выборов президента",_
0,"!",LongTire2,_
nUrlAbsl,"http:/narod.ru/guestbook/?owner=12553855","Гостевая книга !!!!!!",_
" ")

'---------------------
Dim Ind(70),r(70) ' Массив Индексов и результата

Dim Kandidat
Kandidat=array("Кандидат",_
"Глазьев Сергей",_
"Малышкин Олег",_
"Миронов Сергей",_
"Путин Владимир",_
"Рыбкин Иван",_
"Хакамада Ирина",_
"Харитонов Николай")

nAr=UBound(Kandidat)
Dim UrlLider
UrlLider=array("Url","glazev.htm","malyshkin.htm","mironov.htm","putin.htm","rybkin.htm","hakamada.htm","haritonov.htm")

' Общий модуль для нескольких страниц

Sub WrTable(rows,Coll,Stroka)
	MyTabl.rows(rows+1).cells(Coll).innerHTML = Stroka
End Sub

Sub WrRowsColl(rows,Coll,Stroka)
	MyTabl.rows(rows).cells(Coll).innerHTML = Stroka
End Sub

Sub NewRows(nRow,nColls)
	myNewRow = document.all.MyTabl.insertRow(nRow)
	with document.all.MyTabl.rows(nRow)
		For ii=0 to nColls
			myNewCell = .insertCell() 
		Next
	end with
End Sub

'-----------
' Расчёт места
Sub NullMesto()
	for i=1 to nAr:Ind(i)=0:next
End Sub

Sub ActiveMesto()
	NullMesto
	For jj=1 to nAr
		tempMax=0:tInd=0
		For ii=1 to nAr
			if Ind(ii)=0 then
				if r(ii) > tempMax then
					tInd=ii
					tempMax=r(ii)
				end if
			End if
		Next
		Ind(tInd)=jj
	Next
End Sub

Function Mesto(par)
	if Ind(par)<>0 then
		Mesto=Cstr(Ind(par))
	else
		Mesto="&nbsp;"
	end if
End Function

Function SFF2(par)' Дополнить до двух цифр пример - 08
	if par<10 then 
		SFF2="0"+CStr(par)
	else
		SFF2=CStr(par)
	end if
End Function 

Sub AddPageFavorit()	' добавление в Избранное
	on error resume next	' для старых версий IE
	window.external.AddFavorite location.href, document.title
End Sub

Sub WhatRus()
	if MyForm.RusYes.checked then 
		MyForm.Region.disabled=false
	else
		MyForm.Region.disabled=true
	end if
End Sub

Sub  MainHref(pp)
	sUrl="lider/"+UrlLider(pp)
	OpenMainWin=window.open(sUrl,"WinLider", "scrollbars=1,status=1,resizable=1,width=450,height=500,top=100,left=100")
	'window.event.returnValue = false
End Sub

Function aHref(par1)
	aHref="<a href='JavaScript:MainHref("+Cstr(par1)+")' >"
End Function

nMyFormat=2 ' Отображение числа, Количество знаков после запятой
Function MyFormatNum(Chislo)
	MyFormatNum=FormatNumber(Chislo,nMyFormat)
End Function

Sub fGenMainStroka()
	sTemp=" <font face='Wingdings' color='#FF0000'> ««« </font> "
	Dim MainImformStr
	MainImformStr=array("Эта страница посвящена выборам Президента Российской Федерации",_
			"Предварительные данные опроса общественного мнения и реальные результаты выборов показали идентичные результаты",_
			"Владимир Владимирович Путин - как и ожидалось остался президентом РФ",_
			"Второе место за лидером Коммунистической Партии Российской Федерации - Харитоновым Николаем",_
			"Упрочение роли Владимира Путина как общенационального лидера, пользующегося поддержкой во всех сегментах политического спектра",_
			"Подтверждение Компартией своей роли второй по значимости политической силы в стране и лидирующей партии на левом фланге политического спектра",_
			"Кризис Сергея Глазьева как перспективного политика и потенциально успешного&nbsp; кандидата на президентских выборах 2008 г.",_
			"Неудача его расчетов на лидерство в левоцентристском политическом блоке",_
			"неуверенная заявка Ирины Хакамада на лидерство в праволиберальном лагере")

	document.write "<marquee style='color: #008000; font-weight: bold; font-family: Arial; font-size: 8pt'>"+sTemp
	for iii3=0 to UBound(MainImformStr)-1
		document.write MainImformStr(iii3)+sTemp
	next
	document.write "</marquee><hr color='#800000' size='4'>"
End Sub