<ul id="menu_menu">
		<%
Set rslm = server.CreateObject("adodb.recordset")
sqllm = "select * from dk_nav where dk_nav_display = true order by dk_nav_order asc"
rslm.Open sqllm, conn, 1, 1
Do While Not rslm.EOF
  %>
<li><a href="<%=rslm("dk_nav_url")%>" target="<%=rslm("dk_nav_open")%>"><%=rslm("dk_nav_name")%></a></li>
  <%
   rslm.movenext
    Loop
	rslm.close
set rslm=nothing
  %>
	</ul>