Document.Writeln "<TABLE CELLpADDING=0 CELLsPACING=0>" & _
"<TR>" & _
"<TD>" & _
"<A HREF=http://narod.yandex.ru TITLE=""narod.ru , бесплатное размещение сайтов в Интернете"">Создай<BR>твой<BR>сайт</A>" & _
"</TD>" & _
"</TD>" & _
"<TD WIDTH=7 BgColor=#77BBEE></TD>" & _
"<TD>" & _
"<TD>" & _
"<A HREF=http://narod.yandex.ru/userforum/?owner=ivanshmakov2 TITLE=""Форум настоящего сайта"">Форум</A><BR>" & _
"<!--begin of Top100-->" & _
"<a href=""http://top100.rambler.ru/top100/"">" & _
"<img src=""http://counter.rambler.ru/top100.cnt?843290"" alt=""Rambler's Top100"" width=81 height=63 border=0></a>" & _
"<!--end of Top100 code-->" & _
"</TD>" & _
"<TD WIDTH=7 BgColor=#FFFFFF></TD>" & _
"<TD>" & _
"<A HREF=http://top100.rambler.ru/cgi-bin/stats_top100.cgi?843290>Статистика посещений<BR>настоящего сайта</A>" & _
"</TD>" & _
"<TD WIDTH=12 BgColor=#77BBEE></TD>" & _
"<TD WIDTH=7 BgColor=#FFFFFF></TD>" & _
"<TD>" & _
"<A HREF=http://www.rambler.ru/srch?sort=0&oe=1251&words=%EE%EC%EE%EB%EE%E6%E5%ED%E8%E5+%F7%E5%EB%EE%E2%E5%EA%E0&filter=http://ivanshmakov2.narod.ru>Поиск по<BR>настоящему сайту</A>" & _
"</TD>" & _
"</TR>" & _
"</TABLE>"

gFontWeight="Normal"
gTextDecoration="none"

Sub Document_onMouseMove
	P "Yellow"
End Sub

Sub Document_onMouseOut
	P Missing
End Sub

Sub P(V)
	Set j=window.event.srcElement
	Set t=j.Style
	BG=V
	If V="Yellow" Then
			If gFontWeight="Normal" Then gFontWeight=t.fontWeight
			If gTextDecoration="none" Then gTextDecoration=t.textDecoration
		W="Bold"
		D="none"
		If t.color="violet" Then BG="Green"
	Else
		W=gFontWeight
		D=gTextDecoration
			gFontWeight="Normal"
			gTextDecoration="none"
	End If
	If j.tagName="A" Then t.BackGround=BG: t.fontWeight=W: t.textDecoration=D
End Sub

Sub Document_onClick
	Set j=window.event.srcElement
	If j.tagName="A" Then j.Style.Color="Violet"
End Sub