Dim thide
thide=0

function ShowSpan(obj)
	obj.style.display=""
end function

function HideSpan(obj)
	obj.style.display="none"
end function

function noHide()
thide=0
end function

function HideSpan1()
		thide=1
		id=setTimeOut("HideSpan3()",1000,"vbscript")
end function

sub HideSpan3()
if thide=1 then
	if len(list0.style.display)=0 then	list0.style.display="none"	end if
	if len(list1.style.display)=0 then	list1.style.display="none"	end if
	if len(list2.style.display)=0 then	list2.style.display="none"	end if
	if len(list3.style.display)=0 then	list3.style.display="none"	end if
	if len(list4.style.display)=0 then	list4.style.display="none"	end if
	if len(list5.style.display)=0 then	list5.style.display="none"	end if
end if
end sub

function HideSpan2()
	thide=0
	if IsObject(list0.style) then	list0.style.display="none"	end if
	if IsObject(list1.style) then	list1.style.display="none"	end if
	if IsObject(list2.style) then	list2.style.display="none"	end if
	if IsObject(list3.style) then	list3.style.display="none"	end if
	if IsObject(list4.style) then	list4.style.display="none"	end if
	if IsObject(list5.style) then	list5.style.display="none"	end if
end function

function HideSpan4()
	thide=0
	if IsObject(list0.style) then	list0.style.display="none"	end if
	if IsObject(list1.style) then	list1.style.display="none"	end if
	if IsObject(list2.style) then	list2.style.display="none"	end if
	if IsObject(list3.style) then	list3.style.display="none"	end if
	if IsObject(list4.style) then	list4.style.display="none"	end if
	if IsObject(list5.style) then	list5.style.display="none"	end if
end function

Dim tdBgColor
Dim tflag
tflag=0

function ChangeBg(td0,td1,tdimg)
tdBgColor=td0.bgcolor
td0.bgcolor="#F26522"
td1.bgcolor="#F26522"
if right(tdimg.src,6)="on.jpg" then
	tflag=1
else
	tflag=0
end if
tdimg.src=replace(tdimg.src,"off","on")
end function

function unChangeBg(td0,td1,tdImg)
td0.bgcolor=tdBgColor
td1.bgcolor=tdBgColor
if tflag=1 then
	tdimg.src=replace(tdimg.src,"off","on")
else
	tdimg.src=replace(tdimg.src,"on","off")
end if
end function