Bare lige for at vise jer teksten:
<HTML>
<HEAD>
<TITLE>Menu</TITLE>
</HEAD>
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#000000" alink="#000000">
<table border=0 cellpadding=0>
<tr>
<td><div style="width:170; left:30; border:1px solid green;">
<span style="width:170; height:20; background:#009933; color:ffffff; font:bold 15px verdana; text-align:center;">MENU </span>
<LINK REL=stylesheet HREF="/css/menu.css" >
<SCRIPT LANGUAGE="JavaScript">
<!--
var op2, ob_tb, ob_url, selected_node_id;
function ob_wk(os, url) {
var ot = os.parentNode.nextSibling.firstChild.nextSibling;
var lensrc = (os.src.length - 8);
var s = os.src.substr(lensrc, 8);
if (s == "inus.gif") {
ot.style.display = "none";
os.src = "/tree/TreeStyle_Menu_Blue2/plusik.gif";
}
if (s == "usik.gif") {
ot.style.display = "block";
os.src = "/tree/TreeStyle_Menu_Blue2/minus.gif";
if (url != "") {
var s = os.parentNode.nextSibling.firstChild.nextSibling.innerText;
if (s != "Loading ...") {
return;
}
ob_url = url;
ob_tb = os;
window.setTimeout("ob_tm()", 100);
}
}
}
function ob_tm() {
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("GET", ob_url, false);
xmlhttp.send("");
ob_tb.parentNode.nextSibling.firstChild.nextSibling.outerHTML = xmlhttp.responseText;
}
function ob_ft(e) {
if (e.tagName == "TABLE" && e.className == "ob_zz") {
if (typeof op2 != "undefined") {
op2.style.backgroundColor = "transparent";
}
e.style.backgroundColor = "FFFF33";
op2 = e;
selected_node_id = e.firstChild.firstChild.childNodes[0].id;
}
else {
ob_ft(e.parentNode);
}
}
function ob_os(e){
var os = e.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode.firstChild.firstChild;
if (os != null) {
if ((typeof os != "undefined") && (os.tagName == "IMG")) {
var lensrc = (os.src.length - 8);
var s = os.src.substr(lensrc, 8);
if ((s == "inus.gif") || (s == "usik.gif")) {
e.parentNode.parentNode.parentNode.parentNode.parentNode.parentNode.firstChild.firstChild.click();
}
}
else {
ob_os(e.parentNode);
}
}}
//-->
</SCRIPT>
<div id="divTree" name="divTree" style="width:170; overflow-X:auto; overflow-Y:auto;">
<div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/data/menu.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM Menu WHERE NodeSubID <> 'menu' ORDER BY NodeID, NodeSubID"
Set menurs = Conn.Execute(strSQL)
strSQL1 = "SELECT * FROM Menu WHERE NodeSubID like 'menu' ORDER BY NodeID, NodeSubID"
Set menurs1 = Conn.Execute(strSQL1)
On Error Resume Next
menurs1.MoveFirst
do while Not menurs1.eof
On Error Resume Next
menurs.MoveFirst
do while Not menurs.eof
dim vartype1
vartype1 = menurs("NodeID")
%>
<table cellspacing=0 cellpadding=0 border=0 style="display:block;">
<tr>
<td class=ob_ic><img class=ob_ic src='/tree/TreeStyle_Menu_Blue2/plusik.gif' onclick="ob_wk(this, '')"></td>
<td>
<table cellspacing=0 cellpadding=0 border=0 class=ob_zz>
<tr>
<td id=<%=Server.HTMLEncode(menurs1.Fields("NodeID").Value)%> onclick='ob_ft(this)' class=ob_td>
<span onclick='ob_os(this)' style='cursor:hand;'><b> <%=Server.HTMLEncode(menurs1.Fields("MenuName").Value)%></b></span></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=0 style="display:none;">
<%
do while vartype1 = menurs("NodeID")
%>
<tr>
<td class=ob_ic><img class=ob_ic src='/images/n.gif'></td>
<td>
<table cellspacing=0 cellpadding=0 border=0 class=ob_zz>
<tr>
<td id=<%=Server.HTMLEncode(menurs.Fields("NodeID").Value)%>_<%=Server.HTMLEncode(menurs.Fields("NodeSubID").Value)%> onclick='ob_ft(this)' class=ob_td>
<a class=ob_a href="<%=Server.HTMLEncode(menurs.Fields("MenuLink").Value)%>" target="content"><%=Server.HTMLEncode(menurs.Fields("MenuName").Value)%></a></td>
</tr>
</table>
</td>
</tr>
<%
menurs.MoveNext
if menurs.eof then exit do
if vartype1 <> menurs("NodeID") then exit do
loop
if not menurs.eof then vartype1 = menurs("NodeID")
%>
</table>
</td>
</tr>
</table>
<%
menurs1.MoveNext
if menurs1.eof then exit do
loop
%>
<%
loop
Conn.Close
%>
</div>
</div>
</BODY>
</HTML>
