hvad går galt her - Wend probs
Så er menusystemet næsten færdigt, men jeg kan ikke se hvorfor den her går galt - mon her er et par friske øjne der kan fortælle mig hvorfor dewn kommer med fejlen nede ved (rs2.movenext) WEND ?<!--#include file="db.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<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 menu where hovedmenu = 1 "
Set rs1 = myConn.Execute(strSQL)
While Not rs1.EOF
h_menu=rs1("menuen")
bredde = rs1("bredde")
MenuID = rs1("menuID") %>
<li ><a href="<%=rs1("link")%>" onfocus="blur()" style="width:<%=bredde%>px;"><%=h_menu%></a>
<ul>
<%
strSQL = "Select Max(bredde) AS maxbredde FROM menu where overmenu = '"& MenuID &"' "
Set rs2 = myConn.Execute(strSQL)
if not rs2.eof then
bredde = rs2("maxbredde")
xbredde = bredde + 1 * 1
rs2.close
'response.write bredde
end if
strSQL = "SELECT * FROM menu where overmenu = '"& MenuID &"' "
Set rs2 = myConn.Execute(strSQL)
While Not rs2.EOF
s_menu=rs2("menuen")
menuID2 = rs2("menuID") %>
<li><a href="<%=rs2("link")%>" onfocus="blur()" style="width:<%=bredde%>px; text-align:left;"> <%=s_menu%></a>
<ul>
<%
strSQL = "Select Max(bredde) AS maxbredde FROM menu where undermenu = '"& menuID2 &"' "
Set rs3 = myConn.Execute(strSQL)
if not rs3.eof then
subbredde = rs3("maxbredde")
rs3.close
strSQL = "SELECT * FROM menu where undermenu = '"& menuID2 &"' "
Set rs3 = myConn.Execute(strSQL)
While Not rs3.EOF
ss_menu=rs3("menuen") %>
<style type="text/css">
.menu ul li:hover ul li:hover ul {display:block; position:absolute; left:<%=xbredde%>px; top:0;}
</style>
<li class="menu"><a href="<%=rs3("link")%>" onfocus="blur()" style="width:<%=subbredde%>px; text-align:left;"> <%=ss_menu%></a></li>
<% rs3.MoveNext
Wend %>
</ul>
</li>
<%
rs2.MoveNext
Wend %>
</ul>
</li>
<% rs1.MoveNext
Wend
rs1.close
rs2.close
rs3.close
myconn.close
%>
</ul>
</div>
</BODY>
</HTML>
