kategorier
Jeg har prøvet at lave et linksystem med kategorier, som er stillet op på følgende måde:Kategori1
-Link1
-Link2
Kategori2
-Link3
-Link4
osv. osv.
Jeg har prøvet at lave det med at INNER JOIN de 2 tabeller hvor kategorierne og links'ne ligger i. Det virker fint nok når den skal finde de links der har samme kategori ID, men den opretter en ny tabel, for hver gang der er et link i en kategori.
Her er koden:
<td style='border-right: 1 solid #000000' width="73%" valign="top" Align="center">
<%
Set conntemp = Server.CreateObject("ADoDB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database.mdb")
conntemp.open DSN
strSQL = "SELECT * FROM LinkCat AS Cat INNER JOIN Links AS UCat ON Cat.ID = UCat.CatID"
Set rstemp = conntemp.Execute(strSQL)
%>
</td>
</tr>
<td style='border-right: 1 solid #000000' width="73%" valign="top" Align="center">
<br>
<%
Do While NOT rstemp.EOF
If rstemp("LinkCat") <> OldCat Then
%>
<table width="355" style="border: 1 solid #000000">
<tr>
<td width="100%"><b><%=rstemp("LinkCat")%></b></td>
</tr>
</table>
<% End If %>
<table width="355" style="border-bottom: 1 solid #000000; border-right: 1 solid #000000; border-left: 1 solid #000000">
<tr>
<td width="100%">- <a href="<%=rstemp("URL")%>"><%=rstemp("LinkNavn")%></a></td>
</tr>
</table>
<br>
<%
OldCat = rstemp("LinkCat")
rstemp.MoveNext
Loop
conntemp.Close
Set conntemp = Nothing
%>
</td>
I kan se hvad der sker på linket nedenunder:
http://212.242.188.78/links.asp
