El trozo de código vbscript solo es este:
<Script Language="VBscript">
Cita: <!--
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 = "#0080C1" ' SET CELL BACKGROUND COLOUR Azul claro
ELSE
document.all.item(menuObj).className = "LINKSON" ' OPEN MENU
document.all.item(cellBk).style.backgroundColor = "#004080" ' SET CELL BACKGROUND COLOUR Azul mas oscuro
END IF
END SUB
-->
</Script>
¿lo que pides es que alguien pase por ti ese código a js? o ¿cuál es el problema que tienes?
Saludos