Asp med javascript - MENY

Skall lägga ihop asp med javascriptmeny men vet inte hur jag skall göra. Får fel hela tiden.. Vet ej riktigt var jag ska lägga diverse kod.. Skall ej ha med så att <li> samt <ul> är med i meny. Skall vara oändligt med undermenyer. Det fetstilta är själva menyn som syns.

Menyn är härifrån:
http://www.softcomplex.com/products/tigra_menu_tree_pro/

Har denna kod i javascript:

var TREE_ITEMS = [
	['', null, null,
		[b]['Level 1 Item 1', 0, null,
			['Level 2 Item 1', 0],
			['Level 2 Item 2', 0, null,
				['Level 3 Item 1', 0],
				['Level 3 Item 2', 0],
				['Level 3 Item 3', 0],
			],
			['Level 2 Item 3', 0],
		],
		['Level 1 Item 2', 0, null,
			['Level 2 Item 1', 0],
			['Level 2 Item 2', 0],
			['Level 2 Item 3', 0],
		],
		['Level 1 Item 3', 0, null,
			['Level 2 Item 1', 0],
			['Level 2 Item 2', 0],
			['Level 2 Item 3', 0],
		],[/b]
	]
];

Och denna i asp:

<%Function Meny(Conn, HuvudId)
  Set RS = Conn.Execute("SELECT * FROM meny WHERE umeny = " & HuvudId)
  If Not RS.EOF Then
    Response.Write "<ul>"
    Do Until RS.EOF
      strID   = RS("id")
      strNamn = RS("meny") 
      Response.Write "<li>"& strID &" - "&strNamn &"</li>"
      Meny Conn, strID
    RS.MoveNext
    Loop
    Response.Write "</ul>"
  End If
  RS.Close:Set RS=Nothing
End Function

Meny Conn, 0%>

Ingen som kan/vill hjälpa mig?

Fick till det. Dock annan asploop oxå men nästan likadant.. Så här blev det:

var TREE_ITEMS = [
	['', null, null,
		<%Sub DoTree(HuvudID, intLevel)
			Set RS = Conn.Execute("SELECT menyID,namn,umeny FROM meny WHERE umeny = " & HuvudId)
				If Not RS.EOF Then
					x=1
					Do Until RS.EOF
						strAntal = Conn.Execute("SELECT Count(*) FROM meny WHERE umeny = " & HuvudId).Fields(0)
						If HuvudId <> 0 then Response.Write ","
						Response.Write "['" & RS("namn") & "','main.asp?kat=" & RS("menyID") & "',null"
						DoTree rs("menyID"), intLevel + 1
						Response.Write "]"
						if strAntal = x or HuvudID=0 then Response.Write ","
					x=x+1
       					RS.MoveNext
       					Loop
				End If
			RS.Close:Set RS=Nothing
		End Sub

 		DoTree 0,0%>
	]
];