Hej!
Jag har en Meny som genereras med ASP från en databas. Det finns huvudkategorier och sen lägger den till underkategorier!
Mitt problem är nu att jag inte vill att undermenyerna ska synas förrän man trycker på huvudkategorin!
Koden ser ut som följer...
<%
Session("databas1") = "filedsn=" & Server.MapPath("osterang.dsn") & ";DBQ=" & Server.MapPath("osterang.mdb")&";"
set databas1=server.createobject("adodb.connection")
databas1.open session("databas1")
set RS1 = server.createobject("adodb.recordset")
set RS3 = server.createobject("adodb.recordset")
SQLStmt = "SELECT * FROM base"
RS1.open SQLStmt, databas1,1
Do until RS1.EOF
if RS1("undersida") = 0 then
----> Huvudrubriker
Response.write "<a href='index.asp?id=" & Rs1("id") & "&meny=" & Rs1("id") & " '>" & Rs1("meny") & "</a><br>"
----> Underrubriker
SQLStmt = "SELECT * FROM base where tillhorighet =" & RS1("id")
RS3.open SQLStmt, databas1,1
Do until RS3.EOF
Response.write "- <a href='index.asp?id=" & Rs3("id") & "'>" & Rs3("meny") & "</a><br>"
RS3.movenext
Loop
RS3.close
----> Slut på underubriker
end if
Rs1.MoveNext
Loop
RS1.close
databas1.close
%>
Nån som har ett förslag?
/Anders