skønheds operation
Kan det her ikke skrives om så det bliver lidt "kønnere" at se på?Response.Write "<script>"
Response.Write "if (document.getElementById)"
Response.Write "var tree = new myTree('www.minside.dk');"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From page WHERE subid = 0 ORDER BY orderid"
Set rs = Conn.Execute(strSQL)
intMcount = 0
Do While Not rs.EOF
intMcount = intMcount + 1
Response.Write "var root0" & intMcount & " = new myTreeItem('" & rs("pagename") & "');"
Response.Write "tree.add(root0" & intMcount & ");"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From page WHERE subid LIKE '" & rs("id") & "' ORDER BY orderid"
Set rs2 = Conn.Execute(strSQL)
Do While Not rs2.EOF
Response.Write "var sub" & intMcount & " = new myTreeItem('" & rs2("pagename") & "');"
Response.Write "root0" & intMcount & ".add(sub" & intMcount & ");"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From page WHERE subid LIKE '" & rs2("id") & "' ORDER BY orderid"
Set rs3 = Conn.Execute(strSQL)
Do While Not rs3.EOF
Response.Write "sub" & intMcount & ".add(new myTreeItem('" & rs3("pagename") & "'));"
rs3.MoveNext
Loop
rs2.MoveNext
Loop
rs.MoveNext
Loop
Response.Write "document.write(tree);"
Response.Write "</script>"
%>
weee...
