Dim SubOpen, PrevLayer, PrevSubLayer
Dim z, y


Sub showlayer(z)
lname = "Layer" & z
document.all(lname).style.visibility = "visible"
PrevLayer = lname
End sub

Sub hidelayer(z)
if subopen = false then
lname = "Layer" & z
document.all(lname).style.visibility = "hidden"
end if
End sub

Sub ShowSubLayer(y)
SubLName = "SubLayer" & y
document.all(SubLName).style.visibility = "visible"
subOpen = true
PrevSubLayer = SubLName
end sub

Sub HideSubLayer(y)
SubLName = "SubLayer" & y
document.all(SubLName).style.visibility = "hidden"
SubOpen = false
end sub

Sub StartLayer(z)
if PrevLayer <> "" then
Document.all(PrevLayer).Style.Visibility = "hidden"
end if
if PrevSubLayer <> "" then
Document.all(PrevSubLayer).Style.Visibility = "hidden"
End if
lname = "Layer" & z
Document.all(lname).Style.Visibility = "visible"
PrevLayer = lname
End sub