optælling af records!
Hejsa!Jeg sider og prøver at lave et forum! og har en udemærket kode som lister kategorier samt under kategorier!
databasen ser således ud:
forumcategory
---------------
FCID = ID
forumtopic
---------------
FTID = ID
FTcatkey = forumcategory nøgle
forumreply
---------------
FRID = ID
FRtopickey = topic nøgle
Jeg vil dog gerne have den til at tælle følgende:
category = (antal topics) under hver enkelt kategori
topic = (antal replies) under hvert topic
Jeg er totalt blank i hvordan det skal indsættes i koden! håber der er nogle der kan hjælpe???
--kode--------------------------------------
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open MM_multiforum_STRING
SQL = "SELECT forumcategory.FCID, forumcategory.FCheadline, forumtopic.FTcatkey, forumtopic.FTHEadline, forumtopic.FTID FROM forumcategory LEFT JOIN forumtopic ON forumcategory.FCID=forumtopic.FTcatkey ORDER BY forumcategory.FCID ASC"
Set rs = Conn.Execute(SQL)
lastID = ""
response.write "<table width=""100%"">"
colPrRow = 0
maxPrRow = 2
do while not rs.EOF
if colPrRow = 0 then Response.write "<tr>"
if lastID <> rs("FCID") then
Response.Write "<td valign=""top"">"
response.write "<table width=""100%"">"
response.write "<tr><td><b>" & "<img src='images/category.gif' align='absmiddle'><a href='showcategory.asp?FCID=" & rs("FCID") & "'>" & rs("FCheadline") & " - topics (215) </a>" & "</b></td></tr>"
lastID = rs("FCID")
colPrRow = colPrRow + 1
end if
response.write "<tr><td> " & "<img src='images/topic.gif' align='absmiddle'> <a href='showtopic.asp?FTID=" & rs("FTID") & "&FCID=" & rs("FTcatkey") & "'>" & rs("FTHEadline") & " - replies (25)</a>" & "</td></tr>"
rs.Movenext
if not rs.EOF then
if lastID <> rs("FCID") then
Response.Write "</table>"
Response.Write "</td>"
end if
else
Response.Write "</table>"
Response.Write "</td>"
end if
if colPrRow = maxPrRow then
colPrRow = 0
response.write "</tr>"
end if
loop
if colPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>
