// Copyright 2001 Stephen Hayes (steve@obtsolutions.co.uk) 
// OBT Solutions UK (http://www.obtsolutions.co.uk)
// Courtesy of SimplytheBest.net - http://simplythebest.net/scripts/
<!--
Option Explicit
DIM menuID,menuObj,cellBk
SUB ShowHide(menuID)
menuObj = "Link" & menuID
cellbk = "Head" & menuID
// CHECK IF OPEN
if document.all.item(menuObj).className = "LINKSON" then    'IF MENU OPEN THEN CLOSE
document.all.item(menuObj).className = "LINKSOFF"
document.all.item(cellBk).style.backgroundColor = "#FEFEFE"   ' SET CELL BACKGROUND COLOUR          
ELSE
document.all.item(menuObj).className = "LINKSON"               ' OPEN MENU   
document.all.item(cellBk).style.backgroundColor = "#F7F7F7"  ' SET CELL BACKGROUND COLOUR        
END IF
END SUB
-->