<% sql = "select distinct menunavn, menu from menu" Set rs = Conn.Execute(sql) do while not rs.EOF%> <tr> <td><a href="default.asp?id=<%=rs("menu")%>"><%=rs("menunavn")%></a></td> <% sql2 = "select distinct subnavn from menu where menu = '" & request.querystring("id") & "'" set rs2 = Conn.Execute(sql2) do while not rs2.EOF%> <tr> <td><%=rs2("subnavn")%></td> </tr> <% rs2.movenext loop %> </tr> <% rs.movenext loop %> </table>
<table border="0" width="193"> <% sql = "SELECT DISTINCT menunavn, menu FROM menu" Set rs = Conn.Execute(sql)
Do While Not rs.EOF %> <tr><td><a href="default.asp?id=<% =rs("menu") %>"><% =rs("menunavn") %></a></td></tr> <% If rs("menu") = request.querystring("id") Then sql2 = "SELECT DISTINCT subnavn FROM menu WHERE menu = '" & request.querystring("id") & "'" set rs2 = Conn.Execute(sql2)
Do While Not rs2.EOF %> <tr><td><% =rs2("subnavn") %></td></tr> <% rs2.MoveNext Loop End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.