dynamisk asp menu
HejJeg har en asp menu som jeg skal have udvidet med en eller flere under menupunkter.
iøjeblikket kan man kun få vist et underpunkt.
Hvordan får jeg udvidet den?
Menuen finder i her www.vvsworld.dk
Her er koden til menuen
*************************************************
<%
Session.LCID = 1030
'SQLstmt = "SELECT * FROM groups where groupid=0 order by name;"
SQLstmt = "SELECT id, name, groupID FROM groups where groupid=0 and active=1 order by name;"
'Response.Write SQLstmt
Set rs = mconn.Execute(SQLstmt)
DO WHILE NOT rs.EOF
id = rs("id")
kategoriNavn = rs("name")
groupID=rs("groupID")
Kid =Request.QueryString("Kid")
kat =Request("kat")
T =Request.QueryString("T")
%>
<table width="145"border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#A6BCD3" ><img src="/grafik/1.gif" width="1" height="1"></td>
</tr>
<tr>
<%if trim(kat)=trim(id) then %>
<td height="20" valign="middle"><A name=<%=id%>></A><a href="Menu_ny.asp" target="leftFrame" class="menu1"><%=kategoriNavn%></a></td>
<%else%>
<td height="20" valign="middle"><A name=<%=id%>></A><a href="Menu_ny.asp?kat=<%=id%>&Kid=<%=id%>#<%=id%>" onClick="parent.indhold.location='/sids/slist1/show_kat.asp?id=<%= id %>'"target="leftFrame" class="menu1"> <%=kategoriNavn%></a></td>
<%end if%>
</tr>
</table>
<%
kat =Request("kat")
%>
<%
if Clng(kat) = Clng(id) then
SQL = "SELECT ID, GROUPID, NAME FROM groups WHERE (((groups.groupID)= "& Request("kat")& ")) and active=1 order by name"
'Response.Write sql
Set rs2 = mconn.Execute(SQL)
DO WHILE NOT rs2.EOF
navn= rs2("name")
'url=rs2("url")
KategoriID=rs2("groupID")
listid= rs2("ID")
list =Request.QueryString("list")
%>
<table height="16" width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<%if trim(listid)=trim(list) then %>
<td><span class="menu4"><a href="/sids/slist1/show.asp?id=<%= listid %>&list=<%= listid %>" target="indhold" class="submitButton7" onClick="parent.leftFrame.location='Menu_ny.asp?kat=<%=id%>&list=<%= listid %>#<%=id%>'" >- <%=Navn%></a></span><br>
<%else%>
<td><span class="menu2"><a href="/sids/slist1/show.asp?id=<%= listid %>&list=<%= listid %>" onClick="parent.leftFrame.location='Menu_ny.asp?kat=<%=id%>&list=<%= listid %>#<%=id%>'" target="indhold" class="menu2">- <%=Navn%></a></span><br>
<%end if%>
</a> </td>
</tr>
</table>
<%
rs2.MoveNext
LOOP
end if
kat = ""
rs.MoveNext
LOOP
RS.Close
'
%>
<%
mconn.Close
Set mconn = nothing
Set SQLstmt = nothing
Set SQL = nothing
Set SQL3 = nothing
%>
*******************************
