Menu i asp
HejDen skal hente menu navne fra en database.
Jeg har brugt denne kode før og den virker.
Jeg vil gerne have at denne kode kunne udvides så at den kan vise flere undermenuer end den kan nu.
Nu viser den følgene.
eks.
Rød vin
fransk
tysk
spansk
Hvid vin
fransk
tysk
spansk
Den skulle vise følgende.
eks.
Rød vin
-Fransk
-Tysk
-Wien
-Hamburg
-Spansk
Hvid vin
-Fransk
-Tysk
-Wien
-Hamburg
-Spansk
*****
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Menu</title>
<meta HTTP-EQUIV="Refresh" CONTENT="60 ;URL=menu.asp">
<style type="text/css">
<!--
A { text-decoration: none }
A { color: #666666; font-family: Arial, Helvetica, sans-serif; font-size: 11px; }
A:hover { text-decoration: nounderline }
A:hover { color: #666666 }-->
</style>
<body text="#666666" link="#666666" vlink="#666666" alink="#666666" bgcolor="#Fcfcf2">
<div align="left"><font size="4">Hovedmenu</font> <BR>
<BR>
<%
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\site\db\min_db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQLstmt = "SELECT * FROM menu ;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
DO WHILE NOT rs.EOF
id = rs("Menuid")
kategoriNavn = rs("kategoriNavn")
%>
</div>
<tr height="20"><a href="menu.asp?kat=<%=id%>"><%=kategoriNavn%></a>
<td> <BR>
<%
kat =Request("kat")
%>
<%
if Clng(kat) = Clng(id) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\site\db\min_db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQL = "SELECT * FROM submenu WHERE KategoriID = " & Request("kat")
Conn.Execute (SQL)
Set rs2 = conn.Execute(SQL)
DO WHILE NOT rs2.EOF
navn= rs2("SubNavn")
Subid = rs2("Subid")
Response.Write " "
%>
<a href="vodka.asp?smenunavn=<%=Subid%>" target="mainFrame"'><%=Navn%></a> <BR>
<%
smenunavn =Request("smenunavn")
%>
<%
rs2.MoveNext
LOOP
end if
kat = ""
rs.MoveNext
LOOP
RS.Close
Response.Write "</TABLE>"
%>
<BR>
<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
***********
Db ser således ud:
Tabeller:
Menu
MenuID (autonum)
kategoriNavn (txt)
Submenu
Subid (autonum)
SubNavn (txt)
kategoriId (tal)