Dim oldColor
Dim thisColor
dim y
dim i

Sub Window_OnLoad()
on error resume next
	y=window.location.href

	i=instrrev(y,"/")
	y=mid(y,i+1)
	i=instrrev(y,".")
	y=left(y,i-1)
		'document.all(y).style.backgroundColor="#888888"
	document.all(y).style.backgroundImage="url(blue.jpg)"
	document.all(y).style.cursor="micursor.cur"

	if content.offsetHeight-1100<200 then
		linksblock2.style.posHeight=200
	else
		linksblock2.style.posHeight=content.offsetHeight-1100
	end if
	linksbottom.style.posTop=linksblock2.style.posTop+linksblock2.style.posHeight
End Sub

Sub changeColor1(x)
on error resume next
	if x.id=y then exit sub
	oldColor=x.style.backgroundColor
		'x.style.backgroundColor="#a87028"
	x.style.backgroundColor="#990000"
		'x.style.backgroundImage="url(pixelatedlogo.jpg)"
End Sub

Sub changeColor2(x)
on error resume next
	if x.id=y then exit sub
	x.style.backgroundColor=oldColor
		'x.style.Color="#fffff0"
		'x.style.backgroundColor="#000099"
End Sub

Sub scrolling()
on error resume next
	linkspanel.style.Top=document.body.scrollTop+80
End Sub