Meny - trädstruktur

Tänkte bidraga med en meny som jag gjorde till ett slutprojekt.
Jag lägger ut den relevanta koden här. Skulle något vara oklart är det bara att maila mig på anderssondick@hotmail.com

Jag använder mig av tre tabeller. Dom är Avdelningar, Grupper och Varavd.
Varavd kopplar samman en viss vara med en specific kombination av Avd/grupp...t.ex Herr/Byxor - Levis Jeans.
Samma grupp, t.ex byxor, kan ju ligga under flera avdelningar, t.ex Herr, Dam.

Ett klick på ngn avdelning öppnar dess undergrupper och stänger den avdelning som tidigare var öppen.
Databashämtningen:
Kod:

sql="Select * from avdelning Order by avdNamn;"
set rs=conn.execute(sql)

sql2="Select a.*, b.*, c.* FROM grupper as a, varavd as b, avdelning as c WHERE c.avdId="&avdId&" AND c.avdId=b.avdId AND b.gruppId=a.gruppId Order by a.gruppNamn;"
set rs2=conn.execute(sql2)

Menyn:

=================================================Visa avdelningar med undergrupper ================= -->
<table cellspacing=0 cellpadding=0 border=1 align="center" width="100%" height="200" bgcolor="white">
<tr height="20">
<td colspan=2>
<center><u><b>Avdelningar</b></u></center>
</td>
</tr>
<tr><td valign="top">
<table cellspacing=0 cellpadding=0 border=0 align="left" width="90%">
<!-- ========================== Börjar loopa ut avdelningarna ============================================ -->
<% Do until rs.EOF %>
<tr>

  \<td\>\_\_
  \</td\>
  \<td colspan=2\>
  		\<%If rs("avdId")=avdId Then%\>
  			\<a href="meny.asp?avdId=0"\>-\_\<%=rs("avdNamn")%\>\</a\>
  		\<%Else%\>
  			\<a href="meny.asp?avdId=\<%=rs("avdId")%\>"\>+\_\<%=rs("avdNamn")%\>\</a\>
  		\<%End if%\>
  \</td\>

</tr>
<!-- ================================= Kollar om avdelningen är vald och loopar i så fall ut undergrupperna ===== -->
<% If rs("avdId")=avdId Then %>
<%Do until rs2.EOF%>
<tr>
<td>__
</td>
<td>
____<a href="visagrupp.asp?grupp=<%=rs2("gruppId")%>&avd=<%=rs2("avdId")%>" Target="MAIN"><i><font size=1><%=rs2("gruppNamn")%></font></i></a>
</td>

  			\</tr\>
  		\<%rs2.movenext%\>
  		\<%Loop%\>

  	\<% End If%\>	

<%rs.movenext%>
<%Loop%>

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

Jag har säkert varit oklar på någon punkt, men då är det som sagt bara att höra av sig. :e

------------------
Oflexibilitet är varumärket för det instängda sinnet

[Redigerat av Bendro den 02 aug 2001]