Få ut räkna ut antal inlägg i underkategorin?

3 svar · 249 visningar · startad av Bosse168 2 juli 2004

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan2 juli 2004 19:37#1

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.

<table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
					  
                      <tr> 
                        <td colspan="4">

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="rubrik">
  <tr>
    <td width="42%">Forum</td>
                              <td width="18%">Inl&auml;gg</td>
                              <td width="16%">Tr&aring;dar</td>
                              <td width="24%">Senaste inl&auml;gg</td>
  </tr>
</table>

						</td>
                      </tr>					  
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
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
%>

                      <tr> 
                        <td colspan="4" class="rubrik2" bgcolor="#EFEFEF">

<%=Rs("namn")%>

						</td>
                      </tr>
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%

strNamn = rs("namn")
Do
  If rs.EOF Then Exit Do
  If rs("namn") <> strNamn Then Exit Do

%>					  
                      <tr> 
                        <td width="43%"><%=Rs("namn2")%></td>
                        <td width="16%">

<%'----- Antal inlägg %>

						</td>
                        <td width="12%">&nbsp;</td>
                        <td width="29%">&nbsp;</td>
                      </tr>
					  
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
  rs.MoveNext
Loop

%>					  

<%
Loop

Rs.Close : Set Rs = Nothing
%>
                    </table>

Bosse168Medlem sedan nov. 20031 018 inlägg

3 juli 2004 13:43#2

Ingen?
Någons som vet hur jag får fram underkatekorins id nummer? Kolumnen har namnet id och är primär nycklen.

Bosse168Medlem sedan nov. 20031 018 inlägg

3 juli 2004 14:49#3

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
%>

  <tr> 
  <td colspan="4" class="rubrik2" bgcolor="#EFEFEF">

<%=Rs("namn")%>

                        </td>
  </tr>
  <tr> 
  <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
  </tr>
<%

strNamn = rs("namn")
Do
  If rs.EOF Then Exit Do
  If rs("namn") <> strNamn Then Exit Do

%>                      
  <tr> 
  <td width="53%">
<a href="visa.asp?catid=<%=Rs("id")%>subid=<%=Rs("subid")%>"><%=Rs("namn2")%></a><br>
<%'=Rs("beskriv2")%>
</td>
  <td width="11%">

<%
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
%>
                        </td>
  <td width="6%">
<%
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
%>
                        </td>
  <td width="30%">

                        </td>
  </tr>
                      
  <tr> 
  <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
  </tr>
<%
  rs.MoveNext
Loop

Loop

Rs.Close : Set Rs = Nothing
%>

Bosse168Medlem sedan nov. 20031 018 inlägg

3 juli 2004 18:47#4

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?