Jeg er ved at lave en menu i asp, men har lige lidt problemer med at
gennemskue hvordan strukturen skal sættes sammen
Data til menu fåes fra to tabeller
1) tblMenuContent
2) tblArticle
1) indeholder menupunkterne. Der kan ændres i antal dynamisk.
2) indeholder div data til artiklen, bl a. et id der viser hvilket menupunkt
den tilhører
Det jeg gerne vil have listet er en menu der ser således ud
MenuPunkt1
MenuPunkt2
MenuPunkt3
MenuPunkt4
osv.
hvilket jeg nok kan lave. Når der så trykkes på feks. MenuPunkt2, skal den
åbne sig som nedenstående.
MenuPunkt1
MenuPunkt2
....underside1 til MenuPunkt2
....underside2 til MenuPunkt2
....underside3 til MenuPunkt2
....underside4 til MenuPunkt2
MenuPunkt3
MenuPunkt4
osv.
Jeg har lidt problem med at få kontrolleret i mit loop, om jeg er kommet til
MenuPunkt2
en kort skitse af hvad jeg havde tænkt mig
do while not Menu.eof
'undersøg om men er kommet til et menupunkt
'hvis ja, udskriv MenuPunkt
do while not SubMenu.eof
' list undersiderne op
loop ' looper igennem undersider
loop ' looper igennem resten af MenuPunkterne
Jeg har nedenstående kode (renset for div ekstra kode)
<%
dim strSQLMenu, oRsMenu
strSQLMenu = "Select * from tblMenuContent order by MenuName ;"
set oRsMenu= openRecordset(strSQLMenu)
dim strMenuID
strMenuID = Request.Querystring("menuheader")
if strMenuID = "" then
strMenuID = 0
end if
dim strSQLSubMenu, oRsSubMenu
strSQLSubMenu = "SELECT * FROM tblArticle WHERE ArticleMenuHeaderID =
"&strMenuID&" ORDER BY ArticleHeader;"
set oRsSubMenu= openRecordset(strSQLSubMenu)
Do while not oRsMenu.eof
if strMenuID = ????? then 'Hvad skal der stå her for at den kontrollerer om
man er kommet til det menupunkt der skal have listet undersiderne %>
<a
href="listarticle.asp?menuheader=<%=oRsMenu("ID")%>"><%=oRsMenu("MenuName_dk
")%></a> <!-- udskriver menupunkt-->
<% Do while not oRsSubMenu.eof%>
<a
href="listarticle.asp?menuheader=<%=oRsMenu("ID")%>&kategori=<%=oRsMenu("ID"
)%>"><%=oRsMenu("MenuName")%></a><br><!-- udskriver menupunktets
underside -->
<%
oRsSubMenu.Movenext
Loop
%>
<% end if%>
<a
href="listarticle.asp?menuheader=<%=oRsMenu("ID")%>"><%=oRsMenu("MenuName")%
></a><!-- fortsætter udskrift af menupunkter -->
<%
oRsMenu.Movenext
Loop
%>
--
Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"