---
title: "Få ut räkna ut antal inlägg i underkategorin?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106651-få-ut-räkna-ut-antal-inlägg-i-underkategorin"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-07-02T19:37:43.000Z"
updated: "2004-07-03T18:47:40.000Z"
replies: 3
views: 253
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/106651-få-ut-räkna-ut-antal-inlägg-i-underkategorin"
---
# Få ut räkna ut antal inlägg i underkategorin?
## #1 — Bosse168, 2004-07-02T19:37Z
Använder denna kod för att loopa ut huvudkategorierna och alla underkategorier men skulle också behöva räkna ut hur många inlägg det finns i underkategorin.
```
|
| Forum |
Inlägg |
Trådar |
Senaste inlägg |
|
|
<%
Dim SQL,Rs,strNamn
SQL="SELECT c1.id,c1.namn,c1.beskriv,c2.namn as namn2,c2.beskriv as beskriv2 FROM forum_cat c1 left join forum_cat c2 on c2.sub=c1.id where c1.sub=0 order by c1.namn,c2.namn"
Set Rs = Connect.Execute(SQL)
Do until Rs.eof
%>
|
<%=Rs("namn")%>
|
|
<%
strNamn = rs("namn")
Do
If rs.EOF Then Exit Do
If rs("namn") <> strNamn Then Exit Do
%>
| <%=Rs("namn2")%> |
<%'----- Antal inlägg %>
|
|
|
|
<%
rs.MoveNext
Loop
%>
<%
Loop
Rs.Close : Set Rs = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/106651
## #2 — Bosse168, 2004-07-03T13:43Z
Ingen?
Någons som vet hur jag får fram underkatekorins id nummer? Kolumnen har namnet id och är primär nycklen.
Permalänk: https://www.webforum.nu/p/1378745
## #3 — Bosse168, 2004-07-03T14:49Z
Löste det men nu blir jag tvungen att sätta 2 RecSet för att hämta ut antalet inlägg och detta segar ju upp looparna något grymmt mycket.
```
<%
Dim SQL,Rs,strNamn,Rs2
SQL="SELECT c1.id,c1.namn,c1.beskriv,c2.id as subid,c2.namn as namn2,c2.beskriv as beskriv2 FROM forum_cat c1 left join forum_cat c2 on c2.sub=c1.id where c1.sub=0 order by c1.namn,c2.namn"
Set Rs = Connect.Execute(SQL)
Do until Rs.eof
%>
|
<%=Rs("namn")%>
|
|
<%
strNamn = rs("namn")
Do
If rs.EOF Then Exit Do
If rs("namn") <> strNamn Then Exit Do
%>
subid=<%=Rs("subid")%>"><%=Rs("namn2")%>
<%'=Rs("beskriv2")%>
|
<%
Set Rs2 = Connect.Execute("Select COUNT(id) From forum_inlagg WHERE catID = "& Rs(0) &" AND subid = "& Rs("subid") &" AND svar=0")
Response.write Rs2(0)
Rs2.Close : Set Rs2=nothing
%>
|
<%
Set Rs2 = Connect.Execute("Select COUNT(id) From forum_inlagg WHERE catID = "& Rs(0) &" AND subid = "& Rs("subid") &" AND svar=1")
Response.write Rs2(0)
Rs2.Close : Set Rs2=nothing
%>
|
|
|
<%
rs.MoveNext
Loop
Loop
Rs.Close : Set Rs = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1378760
## #4 — Bosse168, 2004-07-03T18:47Z
Ingen som man vet hur man räknar ut antalet poster på bästa sätt, eller ska man plusa på 1 varje gång det skrivs ett nytt inlägg?
Permalänk: https://www.webforum.nu/p/1378826
---
Tråden på webben: https://www.webforum.nu/amne/asp/106651-få-ut-räkna-ut-antal-inlägg-i-underkategorin