Jeg lavede engang dette script, du er velkommen til at bruge det:
<html>
<head>
<title>Bransholm IT Group</title>
</head>
<body>
<script language="JavaScript">
function showMnu(id) {
var styleCheck = document.getElementById("mnu" + id).style.display;
//alert(styleCheck);
if (styleCheck == "inline") {
document.getElementById("mnu" + id).style.display = "none";
}
if (styleCheck == "none") {
document.getElementById("mnu" + id).style.display = "inline";
}
}
function showLink(url) {
alert(url);
}
</script>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
SQL = "SELECT * FROM menu"
Set rs = Conn.Execute(SQL)
While NOT rs.EOF
Response.Write("<div style=""Cursor:Hand; Font-Family:Verdana; Font-Size: 13px;"" OnClick=""showMnu(" & rs("mnuID") & ");"">" & rs("mnuNavn") & "</div>" & vbCrLf)
SQL = "SELECT * FROM mnuChilds WHERE mnuID=" & rs("mnuID")
Set rsMnu = Conn.Execute(SQL)
Response.Write(vbTab & "<div style=""Cursor:Hand; Font-Family:Verdana; Font-Size: 11px;display:none;"" id=""mnu" & rs("mnuID") & """>" & vbCrLf)
While NOT rsMnu.EOF
Response.Write(vbTab & " -<span onClick=""showLink('" & rsMnu("UmnuURL") & "')"">" & rsMnu("UmnuNavn") & "</span><br>" & vbCrLf)
rsMnu.MoveNext
Wend
Response.Write("</div>" & vbCrLf)
rs.MoveNext
Wend
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
//>Rune
