dim subbuttons(3)
subbuttons(0)="<a href='index.htm' class='submenu'>Retreat Houses</a>"
subbuttons(1)="<a href='index.htm' class='submenu'>Youth Centre</a>"
subbuttons(2)="<a href='index.htm' class='submenu'>Pastoral Centre</a>"

dim showitem
showitem=0

function changeit(number)
uu6.style.display="none"


if showitem=number then
showitem=0
else
i=0
s="<table align='center' width='110' cellspacing='0' cellpadding='0'>"
select case number

case 1:
uu6.style.display="block"
showitem=1
while i<3
s=s&"<tr><td>"
s=s&subbuttons(i)
s=s&"</td></tr><tr><td height='3' background='images/dot2.gif'></td></tr>"
i=i+1
wend
uu6.innerhtml=s&"</table>"

case 2:
uu6.style.display="none"
showitem=2

end select
end if
end function