loop i loop
jeg har dette :<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"menu.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM kategorier\")
if not rs.EOF then
do until rs.EOF
response.write \"<a href=\"\"kategori.asp?linkid=\" & rs(\"id\") & \"\"\">\" & rs(\"id\") & \"-\" & rs(\"kategori\") & \"</a><br>\"
if Cint(Request.QueryString(\"linkid\")) = rs(\"id\") then
Set rs2 = Connect.Execute(\"SELECT * FROM links WHERE kategori = \'\" & request(\"linkid\") & \"\'\")
if not rs2.EOF then
do until rs2.EOF
Response.Write \" - <a href=\"\"\" & rs2(\"url\") & \"\"\">\" & rs2(\"navn\") & \"</a><br>\"
rs2.MoveNext
Loop
else
Response.Write \"Ingen Links i denne kategori!\"
end if
end if
rs.movenext
Loop
else
response.write \"Ingen felter\"
end if
%>
Det kræver at brugeren trykker på linket for at se under menuerne, hvordan kan jeg liste dem uden man skal trykke. Altså bare skrive først kategorinavn også alle underkategorier og loope det ?
