Mas esta tudo numa tabela só.
Veja como estou fazendo agora.
Já carrega o Submenu1 falta só o Submenu2 porem ele ta dando erro de javascript quando clico no menu raiz denovo depois que carrega o submenu1. Enão consigo trazer a id do submenu1.
Sabe pq?
Veja só
---------------------------------------------
<!--#include file="conexao.asp"-->
<%id = request.querystring("id")%>
<html>
<head>
<title>Untitled Document</title>
<script type="text/javascript">
function abre(){
window.open('teste2.asp?id='+document.getElementById("seleciona").value,'_self');
}
window.open
</script>
<script type="text/javascript">
function abre2(){
window.open('teste2.asp?id='+document.getElementById("seleciona").value,'&id2='+document.getElementById("seleciona2").value,'_self');
}
window.open
</script>
</head>
<body>
<form name="form1" method="post" action="">
<%if request.querystring("id") = "" Then
MN2 = "select * from Menus where pos=0 and pos2=0"
Set TMN2 = BC.Execute(MN2)
%>
<select onChange="abre()" name="select" size="4" id="seleciona">
<%While Not TMN2.EOF%>
<option value="<%=TMN2("id")%>"><%=TMN2("nome")%></option>
<%TMN2.MoveNext%>
<%Wend%>
</select>
<br><br>
<select size="4" id="seleciona2">
<option value=""></option>
</select>
<%end if%>
<%
if request.querystring("id") <> "" Then
MN2 = "select * from Menus where pos=0 and pos2=0"
Set TMN2 = BC.Execute(MN2)
%>
<select onChange="abre()" name="select" size="4" id="seleciona">
<%While Not TMN2.EOF%>
<option value="<%=TMN2("id")%>"><%=TMN2("nome")%></option>
<%TMN2.MoveNext%>
<%Wend%>
</select>
<br><br>
<%
MN3 = "select * from Menus where pos="&id&" and pos2=0"
Set TMN3 = BC.Execute(MN3)
%>
<select onChange="abre2()" size="4" id="seleciona2">
<%While Not TMN3.EOF%>
<option value="<%=TMN3("id")%>"><%=TMN3("nome")%></option>
<%TMN3.MoveNext%>
<%Wend%>
</select>
<%
end if
%>
</form>
</body>
</html>
