三级联动菜单的一个问题...

我现在想做一个三级菜单 已经做出来 但是想加代码 却不行了.
我查询数据库把一级分类显示在一级菜单上.显示出来后点击一级分类出现相对应的二级分类.点击二级分类显示相对应的三级分类..大概就这个意思.所有分类都是能从后台添加. 并非简单的把所有分类打上就可以.关键在于从数据库读取数据然后显示在菜单上 比较麻烦 下边是我写的代码 但不能用. 希望各位帮忙看看!

这事js
// JavaScript Document
function showtable(tableid)
{
whichtable=eval("table"+tableid);
if(whichtable.style.display=="none")
{eval("table"+tableid+".style.display=\"\";");}
else
{eval("table"+tableid+".style.display=\"none\";");}
}


<%
dim lmid,lmid2
set rs=server.CreateObject("adodb.recordset")
set rs0=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
%>
<table width="190" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="190" height="25" bgcolor="#6699CC"><table width="198" border="0" align="center" cellpadding="0" cellspacing="2" style="cursor:hand;" onClick="showtable(1)">
<%

rs.open "select * from oshow_lm ",conn,1,1
if not rs.eof then
while not rs.eof
%>

<tr>
<td width="14" height="25" align="center" valign="middle"><img src="images/collapsed.gif" width="11" height="11"></td>
<td width="178" valign="middle"><a href="show.asp?lmid=<%=rs("id")%>"><font color="#FFFFFF"><%=rs("lm")%></font></a></td>
</tr> <%
rs.MoveNext
wend
end if
rs.close
set rs=Nothing
%>
</table></td>
</tr>
<tr>
<td>

<table style="display:none;" id="table1" width="150" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#EFEFEF">


<%

lmid=request.querystring("lmid")
set rs0=server.CreateObject("adodb.recordset")
rs0.open "select * from oshow_lm where lmid='"&lmid&"'",conn,1,1
if not rs0.eof then
while not rs0.eof
%> <tr>
<td width="15" height="20" align="center">
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" bgcolor="#6699CC">


<table width="150" border="0" align="center" cellpadding="0" cellspacing="2" style="cursor:hand;" onClick="showtable(2)">
<tr>
<td width="15" align="center" valign="middle"><img src="images/collapsed.gif" width="11" height="11"></td>
<td valign="middle"><a href="show.asp?lmid2=<%=rs0("id")%>"><font color="#FFFFFF"><%=rs0("lm2")%></font></a></td>
</tr>
</table>



</td>
</tr>
<tr>
<td><table style="display:none;" id="table2" width="150" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#EFEFEF">
<%
lmid2=request.querystring("lmid2")
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from oshow_lm where lmid='"&lmid2&"'",conn,1,1
if not rs1.eof then
while not rs1.eof
%>
<tr>

<td><%=rs1("lm3")%></td>
</tr> <%
rs1.MoveNext
wend
end if
rs1.close
set rs1=Nothing
%>
</table>


</td>
</tr> <%
rs0.MoveNext
wend
end if
rs0.close
set rs0=Nothing
%>

</table>
</td>
</tr>

</table></td>
</tr>
</table>