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(contact1.style.display)=0 then	contact1.style.display="none"	end if
	if len(contact2.style.display)=0 then	contact2.style.display="none"	end if
	if len(contact3.style.display)=0 then	contact3.style.display="none"	end if
	if len(contact4.style.display)=0 then	contact4.style.display="none"	end if
	if len(contact5.style.display)=0 then	contact5.style.display="none"	end if
	if len(contact6.style.display)=0 then	contact6.style.display="none"	end if
	if len(contact7.style.display)=0 then	contact7.style.display="none"	end if
	if len(contact8.style.display)=0 then	contact8.style.display="none"	end if
	if len(contact9.style.display)=0 then	contact9.style.display="none"	end if
	if len(contact10.style.display)=0 then	contact10.style.display="none"	end if
	if len(contact11.style.display)=0 then	contact11.style.display="none"	end if
	if len(contact12.style.display)=0 then	contact12.style.display="none"	end if
end if
end sub

function HideSpan2()
	thide=0
	if IsObject(contact1.style) then	contact1.style.display="none" end if
	if IsObject(contact2.style) then	contact2.style.display="none"	end if
	if IsObject(contact3.style) then	contact3.style.display="none"	end if
	if IsObject(contact4.style) then	contact4.style.display="none"	end if
	if IsObject(contact5.style) then	contact5.style.display="none"	end if
	if IsObject(contact6.style) then	contact6.style.display="none"	end if
	if IsObject(contact7.style) then	contact7.style.display="none"	end if
	if IsObject(contact8.style) then	contact8.style.display="none"	end if
	if IsObject(contact9.style) then	contact9.style.display="none"	end if
	if IsObject(contact10.style) then	contact10.style.display="none"	end if
	if IsObject(contact11.style) then	contact11.style.display="none"	end if
	if IsObject(contact12.style) then	contact12.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