dim herstelkleur
dim tmpkleur


dim kleur	

tmpkleur="#ffff99"
kleur="#e5e5e5"


Function menuin(b)		
	b.style.visibility="visible"
	b.bgcolor=tmpkleur
	b.parentNode.ParentElement.style.backgroundcolor=tmpkleur
End function

Function menuuit(b)	
	b.style.visibility="hidden"	
	b.bgcolor=kleur
	b.parentNode.ParentElement.style.backgroundcolor=kleur	
End function


Function kleurswitch(a)	
	if a.bgcolor = kleur or a.bgcolor="" then
		a.bgcolor = tmpkleur	 
	else
		a.bgcolor = kleur	 
	end if	
end function

Sub go
	if select1.options(select1.selectedIndex).value <> "" then
		location = select1.options(select1.selectedIndex).value
	end if
End Sub
Sub go2
	if select2.options(select2.selectedIndex).value <> "" then
		location = select2.options(select2.selectedIndex).value
	end if
End Sub
Sub go3
	if select3.options(select3.selectedIndex).value <> "" then
		location = select3.options(select3.selectedIndex).value
	end if
End Sub

Sub loopOnce
		clip.loop=1
		clip.dynsrc = clip.dynsrc
End Sub