'HOTCODE : VB PROGRAMMING FOR HOT PAGE & ECOSNAPS

Sub HS1_onmouseover() 'HOTSPOT1 MOUSEOVER 5 2 02
'mnhide
'hs1.bgcolor = "#fff0cc"
'mn1.Style.display = ""
If mn1.Style.display = "none" Then
  mn1.Style.display = "" 
  else mn1.Style.display = "none"
end if
End Sub

Sub HS1_onclick() 'HOTSPOT1 click 5 2 02
'mnhide
'hs1.bgcolor = "#fff0cc"
mn1.Style.display = "none"
'If mn1.Style.display = "none" Then
'  mn1.Style.display = "" 
'  else mn1.Style.display = "none"
'end if
End Sub

'Sub HS2_onmouseover() 'HOTSPOT2 MOUSEOVER 25 10 01
'mnhide
'hs2.bgcolor = "#fff0cc"
'mn2.Style.display = ""
'End Sub

'Sub HS3_onmouseover() 'HOTSPOT3 MOUSEOVER 25 10 01
'mnhide
'hs3.bgcolor = "#fff0cc"
'mn3.Style.display = ""
'End Sub

'Sub HS4_onmouseover() 'HOTSPOT4 MOUSEOVER 25 10 01
'mnhide
'hs4.bgcolor = "#fff0cc"
'mn4.Style.display = ""
'End Sub


Sub mnhide() 'Hide all menus 25 10 01
mn1.Style.display = "none"
'mn2.Style.display = "none"
'mn3.Style.display = "none"
'mn4.Style.display = "none"
'hs1.bgcolor = "#ffcc66"
'hs2.bgcolor = "#ffcc66"
'hs3.bgcolor = "#ffcc66"
'hs4.bgcolor = "#ffcc66"
End Sub