Tæl links i databasen!!

Du kan lave en GROUP BY katID

Denne kan du bruge til at tælle antal links i hver subkategori.

SQL = "SELECT Count(*) as antal, TblSubKat.SubKatID FROM TblSubKat LEFT JOIN TblLinks ON TblSubKat.SubKatID = TblLinks.SubKatID GROUP BY TblSubKat.SubKatID"


Hvis du laver GROUP BY TblSubKat.KatID så får du antal links pr kategori:

SQL = "SELECT Count(*) as antal, TblSubKat.KatID FROM TblSubKat LEFT JOIN TblLinks ON TblSubKat.SubKatID = TblLinks.SubKatID GROUP BY TblSubKat.KatID"

Er det noget som det du søger?

2 sek jeg prøver lige..

Bruger jeg den øverste viser den 1 link og den nederste viser den 5??
Jeg kan simpelthen ikke vende de pokkers JOIN udtryk..;)

Den øverste tæller i hver sub-kategori og den nederste tæller links i en kategori og includere så alle sub-kategorier.

Okay..
Jeg har min link side hvor jeg i øjeblikket viser de kategorier der er. Nedenunder står der hvor mange underkategorier der er i hver kategori. Hvordan viser jeg på den side hvor mange links der er i kategorien og underkategorierne.??
Den kode jeg har til siden er her:
<%
Set rsKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblKat Order by KatID"
    rsKat.Open strSQL, strCon
Set rsSubKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblSubKat"
    rsSubKat.Open strSQL, strCon
Response.Write vbCrLf & ("  <tr>")
Response.Write vbCrLf & ("    <td width='100%' colspan='2' style='padding:15;padding-left:25;padding-top:5'padding-bottom:5'><span class='mainheadtext'>Links:</span><br><br><span class='a'>Kategorier</span><br></td>")
Response.Write vbCrLf & ("  </tr>")
    If NOT rsKat.EOF Then
    Do Until rsKat.EOF
Response.Write vbCrLf & ("  <tr>")
Response.Write vbCrLf & ("    <td width='50%' height='24' style='padding-left:25;padding-right:25'><b>»&nbsp;<a href='links_sub.asp?KatID=" & rsKat("KatID") & "'><b>" & rsKat("Kategori") & "</a></b><br><span class='smtext'>&nbsp;&nbsp;")
    Set rsCount = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT COUNT (KatID) as Total From TblSubKat Where KatID=" & rsKat("KatID")
    rsCount.Open strSQL, strCon
Response.Write vbCrLf & ("    " & rsCount("Total") & " Underkategorier</span><br><br></td>")
rsCount.Close
Set rsCount = Nothing
If NOT rsKat.EOF Then
rsKat.Movenext
If NOT rsKat.EOF Then
Response.Write vbCrLf & ("    <td width='50%' height='24' style='padding-left:25;padding-right:25'><b>»&nbsp;<a href='links_sub.asp?KatID=" & rsKat("KatID") & "'><b>" & rsKat("Kategori") & "</a></b><br><span class='smtext'>&nbsp;&nbsp;")
    Set rsCount = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT COUNT (KatID) as Total From TblSubKat Where KatID=" & rsKat("KatID")
    rsCount.Open strSQL, strCon
Response.Write vbCrLf & ("    " & rsCount("Total") & " Underkategorier</span><br><br></td>")
rsCount.Close
Set rsCount = Nothing
Response.Write vbCrLf & ("  </tr>")
End If
End If
If NOT rsKat.EOF Then rsKat.Movenext
Loop
End If
rsSubKat.Close
Set rsSubKat = Nothing
rsKat.Close
Set rsKat = Nothing
%>
I den vil jeg gerne vise de links der er også..

Her er et billed af databasen.. http://www.web-town.dk/database.jpg

Ok..
Gik til det på en anden måde og nu virker det..:)
http://www.web-town.dk/test/links.asp