Public Sub getChildren(parent, level)
set rs1 = server.CreateObject("ADODB.RecordSet")
rs1.cursorlocation = 3
rs1.Open "select a.* from _pages a left join _pagemenu b on a.page_name = b.child_page where b.base_page = '" & rs("page_name") & "' order by page_name asc", dsn, 2, 3
for j = 0 to rs1.RecordCount - 1
response.write space(v + 1) & rs1("page_name") & "
"
getChildren rs1("page_name"), level
rs1.movenext
next
rs1.close
end Sub
My brain must be off today. I can't figure out why this isn't working for me...
It's basically a home-grown CMS, with nested menus. I'm trying to use recursion to get a tree of the menu structure, but it's biffing on me.
What am I doing wrong?
EDIT: Figured it out . It was in the SQL statement. rs("page_name") should have been “level”
Print | posted on Wednesday, March 29, 2006 9:20 AM