Lille problem med tree menu
Jeg oprettede et spørgsmål tidligere som jeg har fundet et svar på og er næsten færdig med menuen, men når jeg når til tredje "gren" i menuen, så vil den ikke vise undermenuerne.Menuen kan ses her: http://www.cichlide-net.dk/shop/
Klik på harddiske så, er det meningen at man skulle kunne klikke på IBM også skulle der komme nogle flere undermenuer.
Jeg er gået helt i stå, så jeg håber at jeg kan få noget hjælp herinde.
Her er min kode:
strMenuId = Request.Querystring("MenuId")
strParentId = Request.Querystring("ParentId")
strSubId = Request.Querystring("SubId")
if strMenuId = "" or not isNumeric(strMenuId) then strMenuId = -1
if strParentId = "" or not isNumeric(strParentId) then strParentId = -1
' if strSubId = "" or not isNumeric(strSubId) then strSub = -1
set conntemp = Server.CreateObject("ADoDB.Connection")
conntemp.open DSN
set rsMenu = conntemp.execute("select menu_id, got_sub, parent_id, name from menu")
if not rsMenu.eof then
arrRecords = rsMenu.getrows()
Response.Write BuildParent(arrRecords) & vbCrLf
end if
rsMenu.Close
Set rsMenu = Nothing
function BuildParent(arrRecords)
strDisplayParent = ""
for i = 0 to Ubound(arrRecords, 2)
if cInt(arrRecords(2, i)) = 0 then
if cInt(arrRecords(1, i)) = 1 then
if cInt(strMenuId) = arrRecords(0, i) then
strDisplayParent = strDisplayParent & "> <a href="""& Request.ServerVariables("HTTP_REFERER") &""">"& arrRecords(3, i) &"</a><br>"& vbCrLf
strDisplayParent = strDisplayParent & BuildChild(arrRecords, arrRecords(0, i), 0) & vbCrLf
else
strDisplayParent = strDisplayParent & "> <a href=""?MenuId="& arrRecords(0, i) &""">"& arrRecords(3, i) &"</a><br>"& vbCrLf
end if
end if
end if
next
BuildParent = strDisplayParent
end function
function BuildChild(arrRecords, intParentId, intLevel)
strDisplayChild = ""
strLevel = ""
for x = 0 to intLevel
strLevel = strLevel &" "
next
for j = 0 to Ubound(arrRecords, 2)
if cInt(arrRecords(2, j)) = intParentId then
if cInt(arrRecords(1, j)) = 1 then
if cInt(strMenuId) = arrRecords(0, j) then
strDisplayChild = strDisplayChild & strLevel &"> <a href=""?MenuId="& arrRecords(2, j) &""">"& arrRecords(3, j) &"</a><br>"& vbCrLf
strDisplayChild = strDisplayChild & BuildChild(arrRecords, arrRecords(0, j), intLevel + 1) & vbCrLf
else
strDisplayChild = strDisplayChild & strLevel &"> <a href=""?MenuId="& arrRecords(0, j) &"&ParentId="& arrRecords(2, j) &""">"& arrRecords(3, j) &"</a><br>"& vbCrLf
end if
else
strDisplayChild = strDisplayChild & strLevel &"- <a href=""?MenuId="& strMenuId &"&ChildId="& arrRecords(0, j) &"&ShowKat=1"">"& arrRecords(3, j) &"</a><br>"& vbCrLf
end if
end if
next
BuildChild = strDisplayChild
end function
På forhånd tak!