Demonstration: http://asp2004.net/temp/treemenu/Menu.asp Source Code Download: http://asp2004.net/temp/treeMenu.rar
<
!
-
#include file
=
"
Conn.asp
"
->
<
%
DIM
Str
FUNCTION
Menu (ID)
Set
RS
=
Server.
CreateObject
(
"
AdoDb.recordset
"
SQL
=
"
Select * from menu where id1 =
"
&
id
&
"
ORDER BY URL, ID "
RS.Open SQL, CONN,
1
,
1
Str
=
Str
"
" & OnMouseup & " > " & Menuname & " td> tr> "
CHR ( 13 ) IF Childcount > 0 THEN Str = Str
" " & RS ( " id " ) & " 'Style =' Display: None '> " f1.write " " f1.write " " f1.write " " f1.write " " f1.write " " f1.write " " f1.write " " f1.write " |