Hittade en utmärkt meny under Tips & Tricks (Empa's enkla meny). Jag har försökt få den att hämta kategorier och underkategorier från en databas men lyckas inte få till det. Är det någon som kan hjälpa mig? Så här ser den ut med statisk data: Kan du visa koden du använder som gör att du inte får till det. Gärna info om ditt data också. Jag lyckas få till det så både huvudkategorier och underkategorier visas. Felet är att alla underkategorier visas under första huvudkategorin, dvs inte under rätt huvudkategori.Databasdriven meny
<code>
<% dropdown = Request.QueryString("drop") %>
<style>
TBODY
{
FONT-FAMILY: Verdana;
FONT-SIZE: 7pt;
COLOR: White;
}
A
{
TEXT-DECORATION: none;
COLOR: White;
}
A:hover
{
TEXT-DECORATION: none;
COLOR: Red;
}
</style>
<table bgcolor=MidnightBlue cellpadding=0 cellspacing=0>
<tr>
<td></td>
<td>
<table width=70>
<tr><td bgcolor=MidnightBlue align=center><b>MENY</b></td></tr>
<tr><td bgcolor=steelblue>
<% If dropdown<>"1" then %>
?drop=1">Frukt
<% Else %>
">Frukt
<% End If %>
</td></tr>
<% If dropdown = "1" then %>
<tr><td bgcolor=lightsteelblue> Banan <br></td></tr>
<tr><td bgcolor=lightsteelblue> Äpple <br></td></tr>
<tr><td bgcolor=lightsteelblue> Citron <br></td></tr>
<% End if %>
<tr><td bgcolor=steelblue>
<% If dropdown<>"2" then %>
?drop=2">Grönsaker
<% Else %>
">Grönsaker
<% End If %>
</td></tr>
<% If dropdown = "2" then %>
<tr><td bgcolor=lightsteelblue> Morot <br></td></tr>
<tr><td bgcolor=lightsteelblue> Ärtor <br></td></tr>
<tr><td bgcolor=lightsteelblue> Majs <br></td></tr>
<% End if %>
<tr><td bgcolor=MidnightBlue> </td></tr>
</table>
</td>
<td></td>
</tr>
</table>
</code>Sv: Databasdriven meny
Sv: Databasdriven meny
En tabell innehåller huvudkategorier och en annan underkategorier. Så här ser koden ut:
<HTML>
<HEAD>
<BODY>
<% dropdown = Request.QueryString("drop") %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
SET Connection = ShopIT_GetDatabaseConn()
SQLStmt = "SELECT * FROM tbl_HKat"
SET RS = Connection.Execute(SQLStmt)
%>
<%
SQL = "SELECT * From tbl_UKat Where PID = '" & dropdown &"'"
SET RS2 = Connection.Execute(SQL)
%>
<table bgcolor=MidnightBlue cellpadding=0 cellspacing=0>
<tr>
<td></td>
<td>
<table width=70>
<tr><td bgcolor=MidnightBlue align=center><b>MENY</b></td></tr>
<% Do until rs.Eof%>
<%If dropdown<>rs("Hkat") then %>
<tr><td bgcolor=steelblue>
?drop=<% =RS("PID")%>"><% =RS("HKat")%>
<% Else %>
"><% =RS("Hkat")%>
</td></tr>
<% End if %>
<% Do until rs2.Eof
If dropdown = rs2("PID") then %>
<tr><td bgcolor=lightsteelblue><% =RS2("Ukat")%><br></td></tr>
<% End if
RS2.MoveNext
Loop
%>
<%
RS.MoveNext
Loop
%>
<tr><td bgcolor=MidnightBlue> </td></tr>
</table>
</td>
<td></td>
</tr>
</table>
</BODY>
</HTML>