loopa genom meny, hämta från annan tabell

laidbackMedlem sedan maj 2001797 inlägg

Trådstart24 sep. 2008 09:53#1

Har inte hållt på med asp på länge och körde fast lite, vore tacksam för hjälp.

Hämtar ur en tabell som heter menu, det skrivs ut en meny ungefär så här:
Ettan
Tvåan
Trean
..osv...

För varje rad skulle jag dessutom vilja kolla i en annan tabell, om det finns poster där som i ett fält (headID) motsvarar ursprungs-ID så ska dessa skrivas ut, ungefär så här:

Ettan
Tvåan
Två-A
Två-B
Trean

Jag får det bara att bli:
Ettan
Två-A
Två-B
Tvåan
Två-A
Två-B
Trean
Två-A
Två-B

Grunden är nåt sånt här:

SQL = "SELECT * From menu ORDER BY menuOrder ASC"
Databas.Execute( SQL )
set RecSet=Databas.execute(SQL)
Do Until RecSet.EOF

response.write "<img src=""bilder/blipp.gif"" border=""0"" /> <a href=""default.asp?id=" & RecSet("menuURL") & """ class=""Menu"">" & RecSet("menuName") & "</a><br /><br />"

RecSet.MoveNext
Loop
RecSet.Close
set RecSet = nothing

LarsGMedlem sedan dec. 200012 464 inlägg

24 sep. 2008 19:04#2

SQL = "SELECT * From menu left join submenu on menu.pk = submenu.fk ORDER BY menuOrder ASC"
set RecSet=Databas.execute(SQL)
pmenu = ""
Do Until RecSet.EOF
   if  recset("menuName") <> pmenu then
       response.write "<img src=""bilder/blipp.gif"" border=""0"" /> <a href=""default.asp?id=" & RecSet("menuURL") & """ class=""Menu"">" & RecSet("menuName") & "</a><br /><br />"
       pmenu = recset("menuname")
   end if
   if  recset("submenuname") & "" <> "" then
'
'skriv ut undermeny
'
   end if
   RecSet.MoveNext
Loop
RecSet.Close
set RecSet = nothing

Du får ordna till namnen så att de stämmer. Frågor?