the following will create a simple menu just edit the code for your needs
<script>
function rollover(obj, color)
{
obj.style.color = color
}
function statesCriteria(MenuOption) {
if(MenuOption == 1)
{
parent.window.frames.mainFrame.StatesCriteriaType.innerText= ("All"

;
}
if(MenuOption == 2)
{
parent.window.frames.mainFrame.StatesCriteriaType.innerText= ("Select Individual"

;
}
if(MenuOption == 3)
{
parent.window.frames.mainFrame.StatesCriteriaType.innerText= ("Leave Unspecified"

;
}
}
function sitesCriteria(MenuOption) {
if(MenuOption == 1)
{
parent.window.frames.mainFrame.SitesCriteriaType.innerText= ("All"

;
}
if(MenuOption == 2)
{
parent.window.frames.mainFrame.SitesCriteriaType.innerText= ("Select Individual"

;
}
if(MenuOption == 3)
{
parent.window.frames.mainFrame.SitesCriteriaType.innerText= ("Leave Unspecified"

;
}
}
function EquipmentCriteria(MenuOption) {
if(MenuOption == 1)
{
parent.window.frames.mainFrame.EquipmentCriteriaType.innerText= ("All"

;
}
if(MenuOption == 2)
{
parent.window.frames.mainFrame.EquipmentCriteriaType.innerText= ("Select Make"

;
}
if(MenuOption == 3)
{
parent.window.frames.mainFrame.EquipmentCriteriaType.innerText= ("Select Individual"

;
}
if(MenuOption == 4)
{
parent.window.frames.mainFrame.StatesCriteriaType.innerText= ("Leave unspecified"

;
}
}
</script>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- // Collapsible Menu 1.0-->
<elsberndmenu id="elsbernd" name="elsbernd">
<style type="text/css">
<!--Body
P {margin-top : 0px; }
A {text-decoration: none;
font-family: Verdana, Arial, Helvetica, sans-serif;
line-height: 9pt;
} .mainsection {
font-size: 9pt;
font-weight: bold;
}.subsection {
font-size: 7pt;
font-weight: normal;
margin-left: 15px;
}.folding {
cursor: hand
}
-->
</style>
<script language="javascript">
<!--
//Expands and contracts the menu (if in Internet Explorer 4.0 or higher)
function change() {
if(!document.all)
return
if (event.srcElement.className=="expandable"

{
var x=event.srcElement.parentElement
if (x.all[2].style.display=="none"

{
x.all[2].style.display='';
}
else {
x.all[2].style.display="none"
}
}
if (event.srcElement.className=="expandable2"

{
var x=event.srcElement.parentElement
if (x.all[2].style.display=="none"

{
x.all[2].style.display='';
}
else {
x.all[2].style.display="none"
}
}
}
document.onclick=change
//-->
</SCRIPT>
</head>
<body bgcolor="#000000" text="#0000FF" link="#0000FF" vlink="#0000FF" alink="#0000FF">
<table width="100%" border="0" cellspacing="0" cellpadding="1" rules="rows">
<tr>
<td class="mainsection"> <a class="expandable" href="#" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >States</a><br>
<p class="subsection" style="display:none"> <a onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = statesCriteria(1)>All</a>
<br>
<a onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = statesCriteria(2)>Select Individual</a> <br>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = statesCriteria(3)>leave unspecified</a> </p>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" rules="rows">
<tr>
<td class="mainsection" height="51"> <a class="expandable" href="#" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >Sites</a><br>
<p class="subsection" style="display:none"> <a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = sitesCriteria(1)>All</a>
<br>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = sitesCriteria(2)>Select Individual</a> <br>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = sitesCriteria(3)>leave unspecified</a> </p>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" rules="rows">
<tr>
<td class="mainsection"> <a class="expandable" href="#" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >Equipment</a><br>
<p class="subsection" style="display:none"> <a target="mainFrame" onclick = EquipmentCriteria(1)>All</a>
<br>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = EquipmentCriteria(2)>Specify Make</a> <br>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = EquipmentCriteria(3)>Select Individual</a>
<a target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') onclick = EquipmentCriteria(4)>Leave Unspecified</a> </p>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" rules="rows">
<tr>
<td class="mainsection" height="51"> <a class="expandable" href="#" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >Reports</a><br>
<p class="subsection" style="display:none"> <a href="#" target="mainFrame">Summary
Reoprt </a><br>
<a href="#" target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >Detailed Report</a><br>
<a href="#" target="mainFrame" onMouseOver = rollover(this,'red') onMouseOut = rollover(this,'blue') onmousedown = rollover(this,'#00FF00') onMouseUp = rollover(this,'red') >Saved Reports</a> </p>
</td>
</tr>
</table>
<p> </p>
<p> </p><p> </p>
<p> </p>
<p> </p>
<p> </p></body>
</html>