Sub makeMenu()
strsql = "SELECT SITE_ID, SITE_NAME FROM W_SITE ORDER BY SITE_NAME ASC"
set rs = Server.CreateObject("ADODB.RecordSet")
set rs1 = Server.CreateObject("ADODB.RecordSet")
set rs2 = Server.CreateObject("ADODB.RecordSet")
topI = 0
rs.Open strsql, kConn
  do while not(rs.eof)
    response.write("oCMenu.makeMenu('top" & topI & "','','" & rs("SITE_NAME") & "','site.asp?type=site&id=" & rs("SITE_ID") & "','')" & vbNewline)
    subI = 0
    strsql = "SELECT CAT_ID, CAT_TITLE FROM W_CAT WHERE SITE_ID=" & rs("SITE_ID") & " ORDER BY CAT_TITLE ASC"
    rs1.Open strsql, kConn
      if not(rs1.eof) then
        do while not(rs1.eof)
          response.write(" oCMenu.makeMenu('sub" & topI & subI & "','top" & topI & "','" & rs1("CAT_TITLE") & "','site.asp?type=category&id=" & rs1("CAT_ID") & "')" & vbNewline)
            strsql = "SELECT PAGE_ID, PAGE_TITLE FROM W_PAGE WHERE CAT_ID=" & rs1("CAT_ID") & " ORDER BY PAGE_TITLE ASC"
            rs2.Open strsql, kConn
              subSubI = 0
              if not(rs2.eof) then
                do while not(rs2.eof)
                  response.write("    oCMenu.makeMenu('sub" & topI & subI & subSubI & "','sub" & topI & subI & "','" & rs2("PAGE_TITLE") & "','site.asp?type=page&id=" & rs2("PAGE_ID") & "')" & vbNewline)
                subSubI = subSubI + 1
                rs2.movenext
                loop
              end if
            rs2.Close
          subI = subI + 1
        rs1.movenext
        loop
      end if
    rs1.close
  topI = topI + 1  
  rs.movenext
  loop
rs.Close
set rs = nothing
set rs1 = nothing
set rs2 = nothing
End Sub

Sub NewmakeMenu()
	' dim local variables...
	dim site_id, site_name, cat_id, cat_title, page_id, page_title
	dim hold_site_id, hold_cat_id
	dim topI, subI, subSubI

	strSQL = "SELECT N.site_id, N.site_name, C.cat_id, C.cat_title, page_id, page_title" & _
		 "  FROM SITE_NAME N LEFT JOIN W_CAT C ON C.site_id = P.site_id LEFT JOIN W_PAGE P ON C.cat_id = P.cat_id" & _
		 " ORDER BY n.site_name ASC, c.cat_title, p.page_title"
	set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open strsql, kConn

	if rs.EOF and rs.BOF then
		' no records found.
		recCount = -1
	else
		arrRecSet = rs.getrows(-1)	:	recCount = UBound(arrRecSet, 2)
	end if
	rs.Close	:	set rs = nothing

	topI = 0
	for i = 0 to recCount
		' move to local for readability....
		site_id = arrRecSet(0, i)		:	site_name = arrRecSet(1, i)
		cat_id = arrRecSet(2, i)		:	cat_title = arrRecSet(3, i)
		page_id = arrRecSet(4, i)	:	page_title = arrRecSet(5, i)
		if site_id <> hold_site_id then
			response.write("oCMenu.makeMenu('top" & topI & "','','" & site_name & "','site.asp?type=site&id=" & site_id & "','')" & vbNewline)
			hold_site_id = site_id	:	topI = topI + 1	:	hold_cat_id = ""	:	subI = 0
		end if
		if len(cat_id) > 0 then
			if cat_id <> hold_cat_id then
				response.write(" oCMenu.makeMenu('sub" & topI & subI & "','top" & topI & "','" & cat_title & "','site.asp?type=category&id=" & cat_id & "')" & vbNewline)
				hold_cat_id = cat_id	:	subI = subI + 1	:	subSubI = 0
			end if
			if len(page_id) > 0 then
				response.write("    oCMenu.makeMenu('sub" & topI & subI & subSubI & "','sub" & topI & subI & "','" & page_title & "','site.asp?type=page&id=" & page_id & "')" & vbNewline)
				subSub = subSub + 1
			end if
		end if		
	next
End Sub

quote:

---

Originally posted by dayve

this looks very familiar. I believe based on the snippet of code you're using that it is
Cool Menus from DHTMLCentral (another forum I moderate at). Although I haven't touched
Cool Menus in a long time, I do recall using it in a database and Thomas Brattli over at
DHTML Central posted some tutorials using the menus with a database. Here is a demo link:

http://www.dhtmlcentral.com/projects/coolmenus/examples/asp-example/vbscript.asp

If you have more questions concerning this menu, I strongly suggest asking the crew over
at DHTML Forums. We have a category specifically for Cool Menus here:

http://www.dhtmlcentral.com/forums/default.asp?CAT_ID=3

---

quote:

---

Stim, Stim, Stim

Didn't we teach you anything? At the very least, use getrows and process the stuff as an array.

A better choice would be to put all the code in one SQL statement and process it all at once (with getrows of course ). This code isn't tested, but it should work...

---