menu og submenu problem
Hej.Jeg er ved at lave et menu system med submenu´er, men kan ikke rigtig få det til at virke.
Først skulle den gerne liste sådan her:
menu1
menu2
menu3
menu4
menu5
osv.
Hvis man nu klikker på menu3 skulle det gerne vises sådan her:
menu1
menu2
menu3
submenu1
submenu2
osv.
menu4
menu5
osv.
Her er min kode:
<% if site = "Kompetencer" then %>
<%
sql="SELECT * From kat where b = 0 AND c = 1 ORDER BY navn"
set rs = conn.execute(sql)
Do While Not rs.EOF
if request.QueryString("menu") = rs("id") then
%>
<tr align="left">
<td height="22" colspan="2" valign="middle" bgcolor="#FFFFFF"> <a class="subsitevalgt" href="/Kompetencer/?menu=<%=rs("id")%>"><%=rs("navn")%></a></td>
</tr>
<% else %>
<tr align="left">
<td height="22" colspan="2" valign="middle" bgcolor="#FFFFFF"> <a class="subsite" href="/Kompetencer/?menu=<%=rs("id")%>"><%=rs("navn")%></a></td>
</tr>
<%
if request.QueryString("menu") = request.QueryString("menu") then
sql2="SELECT * From kat where a = "request.QueryString("menu")" AND c = 2 ORDER BY navn"
set rs2 = conn.execute(sql2)
Do While Not rs2.EOF
if request.QueryString("submenu") = rs2("id") then
%>
<tr align="left">
<td width="20" height="22" valign="middle" bgcolor="#FFFFFF"> </td>
<td width="108" valign="middle" bgcolor="#FFFFFF"> <a class="subsitevalgt" href="/Kompetencer/?menu=<%=rs("id")%>&submenu=<%=rs2("id")%>"><%=rs("navn")%></a></td>
</tr>
<% else %>
<tr align="left">
<td height="22" valign="middle" bgcolor="#FFFFFF"> </td>
<td height="22" valign="middle" bgcolor="#FFFFFF"> <a class="subsite" href="/Kompetencer/?menu=<%=rs("id")%>&submenu=<%=rs2("id")%>"><%=rs("navn")%></a></td>
</tr>
<% end if
rs2.MoveNext
Loop
end if
end if
rs.MoveNext
Loop %>
<% end if %>
Håber at I kan hjælpe.
På forhånd tak!
// Rene
