<ul><li>
Har stirret mig blind på denne her - nogen der kan hjælpe mig med at få sat mine <ul> og <li> rigtigt ind på plads?<!--#include file="db.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>menutest</TITLE>
<link rel="stylesheet" media="all" type="text/css" href="dropdown.css" />
<style type="text/css">
body, html {
height: 100%;
margin: 0;
padding: 0;
}
</style>
<style type="text/css" media="screen"><!--
#layer1 { height: 0; width: 750px; z-index: 100; position: top; visibility: visible; }
--></style>
<!--[if lte IE 6]>
<link rel="stylesheet" media="all" type="text/css" href="dropdown_ie.css" />
<![endif]-->
</HEAD>
<body topmargin="0">
<div id="layer1" class="menu">
<ul>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open db
strSQL = "SELECT * FROM Hovedmenu"
Set rs1 = myConn.Execute(strSQL)
While Not rs1.EOF
h_menu=rs1("menu")
HID = rs1("HID")
%>
<li><a href="<%=rs1("link")%>"><%=h_menu%></a>
<ul>
<%
strSQL = "SELECT * FROM submenu where HID = '"& HID &"' "
Set rs2 = myConn.Execute(strSQL)
While Not rs2.EOF
s_menu=rs2("submenu")
SID = rs2("SID")
%>
<li><a href="<%=rs2("link")%>" title=""><%=s_menu%></a></li>
<%
strSQL = "SELECT * FROM ssubmenu where SID = '"& SID &"' "
Set rs3 = myConn.Execute(strSQL)
While Not rs3.EOF
ss_menu=rs3("ssubmenu")
%>
<ul>
<li><a href="<%=rs3("link")%>" ><%=ss_menu%></a></li>
<%
rs3.MoveNext
Wend
%>
</ul>
</li>
<%
rs2.MoveNext
Wend
%>
<%
rs1.MoveNext
Wend
%>
</ul>
</li>
</BODY>
</HTML>
