Her får du mit sidste bud på hvordan det kan laves. Jeg har brugt alt for meget tid på det her spørgsmål, og har selv nogle ting jeg skal nå i dag. Det håber jeg at du forstår :-(
Følgende eksempel viser 3 slags indhold (på samme side), som kaldes via querystring'en (adresselinjen). 1) Lister menukategorierne. 2) Lister menuunderpunkterne. og 3) Lister alt indhold. Det må næsten være noget du kan bruge:
<%
Dim titel2
Select Case LCase(request.querystring("id"))
case "pizza"
titel2 = "<b>Pizza</b>"
case "staerk_mexicansk_pizza"
titel2 = "<b>Stærk Mexicansk Pizza</b>"
case else
titel2 = "<b>Test</b>"
end select
%>
<html>
<head>
<title><%=titel2%></title>
</head>
<body>
<%
' Lister menukategorier
If Request.QueryString("id") = "" Then
set conn=server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/xxx.mdb")
sql = "SELECT * FROM menu ORDER by ASC"
set rs=Conn.Execute(sql)
Do While Not rs.EOF
%>
<a href="menu.asp?id=<%=rs("id")%>"><%=rs("id")%>
</a><%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set Conn = Nothing
End if
%>
<%
' Lister menupunkter for den enkelte kategori
If Request.QueryString("id") <> "" Then
set conn=server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/xxx.mdb")
sql = "SELECT * FROM menu WHERE (id LIKE '%" & Request.QueryString("id") & "%') ORDER by ASC"
set rs=Conn.Execute(sql)
%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
<tr>
<td></td>
<td colspan="2"><%=titel2%>
</td>
<td width="40"></td>
<td width="40"></td>
<td width="60"></td>
</tr>
<tr>
<td></td>
<td colspan="2"></td>
<td width="40">Alm.</td>
<td width="40">Fam.</td>
<td width="60">Fam XL</td>
</tr>
<%
Do While Not rs.EOF
%>
<tr>
<td width="30"><%=rs("nr")%>
</td>
<td><%= rs("navn")%>
</td>
<td></td>
<td width="40"><%= rs("pris1")%>
</td>
<td width="40"><%= rs("pris2")%>
</td>
<td width="60"><%= rs("pris3")%>
</td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set Conn = Nothing
%>
</table>
<%
End If
%>
<%
' Lister alt indhold i databasen
If Request.QueryString("list") = "all" Then
set conn=server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/xxx.mdb")
sql = "SELECT * FROM menu ORDER by ASC"
set rs=Conn.Execute(sql)
%>
<table width="520" border="0" cellspacing="0" cellpadding="0">
<tr>
<td></td>
<td colspan="2"><%=titel2%>
</td>
<td width="40"></td>
<td width="40"></td>
<td width="60"></td>
</tr>
<tr>
<td></td>
<td colspan="2"></td>
<td width="40">Alm.</td>
<td width="40">Fam.</td>
<td width="60">Fam XL</td>
</tr>
<%
Do While Not rs.EOF
%>
<tr>
<td width="30"><%=rs("nr")%>
</td>
<td><%= rs("navn")%>
</td>
<td></td>
<td width="40"><%= rs("pris1")%>
</td>
<td width="40"><%= rs("pris2")%>
</td>
<td width="60"><%= rs("pris3")%>
</td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set Conn = Nothing
%>
</table>
<%
End If
%>
</body>
</html>
Sådan hentes siderne:
Liste over menukategorierne (pizza, speciel pizza, o.s.v.) hentes via: menu.asp
Liste over menupunkter under den enkelte kategori hentes via: menu.asp?id=x (x = kategorinavn).
Alt indhold (alle pizzaer) hentes via: menu.asp?list=all
Jeg håber du kan bruge det :-)
Apo
