Submenu - HJÆLP - jeg kan ikke gennemskue det!
Hej jeg har lavet dette - men det virker ikke helt som jeg ønsker. Lige nu får man selvfølgelig menuen vist når man logger på sitet og når man klikker på et menupunkt åbner den main.aspHvis der er submenu knyttet til fremtræder denne så nedenunder alle menupunkter...således:
TEST 1
TEST 2
TEST 3
Undermenu 1
Undermenu 1.1
Jeg vil gerne have det til at gøre således:
TEST 1
Undermenu 1
Undermenu 1.1
TEST 2
TEST 3
Her er koden:
<!------- MENU -------->
<% response.buffer = true
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("dataentry/menu.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
on error resume next
set rstest=server.CreateObject("ADODB.Recordset")
rstest.open "SELECT * FROM tblTOPMENU ",conn
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM tblTOPMENU WHERE submenu= 'y' ",conn1
test = 0
do while not rstest.eof
test = test + 1
rstest.movenext
loop
if test < 1 then msg ="<TD VALIGN='top' COLSPAN='7'><FONT FACE='arial, helvetica, verdana' COLOR='#000000' SIZE='2'>Der er ingen produkter oprettet endnu</FONT></TD>" end if
%>
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM tblTOPMENU where aktiv='Y' and sprog='DK' order by raekkefoelge ASC ",conn
%> <%
f = 0
farve = "#ffffff"
do while not rs.eof %>
</td>
</tr>
<tr>
<td height="20" align="left"> <% if rs("ELx") = "Y" Then %> <A HREF="http://<%=rs("EL")%>" target="_blank"><br>
<%=rs("menu")%></A>
<% else if rs("MAILx") = "Y" Then %>
<A HREF="mailto:<%=rs("MAIL")%>"> <%=rs("menu")%></A>
<% else if rs("MENUx") = "Y" Then %>
<A HREF="main.asp?id=<%=rs("Id")%>">
<% =rs("menu") %>
</A>
<% end if
end if
end if %>
</td>
</tr>
<% rs.MoveNext()
loop
%>
<!------- SUBMENU -------->
<% response.buffer = true
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("dataentry/menu.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
on error resume next
set rstest=server.CreateObject("ADODB.Recordset")
rstest.open "SELECT * FROM tblTOPMENU WHERE submenu= 'y' ",conn
test = 0
do while not rstest.eof
test = test + 1
rstest.movenext
loop
if test < 1 then msg ="<TD VALIGN='top' COLSPAN='7'><FONT FACE='arial, helvetica, verdana' COLOR='#000000' SIZE='2'>Der er ingen produkter oprettet endnu</FONT></TD>" end if
%>
<%
SQL = "SELECT * FROM submenu WHERE id= '" & request.querystring("id") & "' and sprog ='DK' order by raekkefolge ASC"
Set rs = Conn.execute(SQL)
%> <%
f = 0
farve = "#ffffff"
do while not rs.eof %> </td>
</tr>
<tr>
<td height="20" align="left"> <% if rs("ELx1") = "Y" Then %> <A HREF="http://<%=rs("EL1")%>" target="_blank"><font color="ff9900"><%=rs("submenu")%></font></A><br> <% else if rs("MAILx1") = "Y" Then %> <A HREF="mailto:<%=rs("MAIL1")%>">
<font color="ff9900"><%=rs("submenu")%></font></A> <% else if rs("MENUx1") = "Y" Then %> <A HREF="submain.asp?id=<%=rs("Id")%>&Id2=<%=rs("submenu")%>"><font color="ff9900">
<% =rs("submenu") %>
</font> </A> <% end if
end if
end if %> </td>
</tr>
<%
rs.MoveNext()
loop
%>
