recordcount

Hejsa!

Jeg har to tabeller hvor tabellen "forum1" er hovedpunter! og i tabellen "forum2" ligger alle besvarelserne til "forum2"

Det nedenstående skal gøre er, at tælle alle de poster i "forum2" som har Det unikke ForumID1

F.eks.

Indslag 1    (2)
Indslag 2    (4)

hvor (4) er lig med besvarelser til forum1!

Håber ovenstående giver mening! koden er forneden!

----------------------------------------------------

<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
                        <tr bgcolor="<%
If (Repeat1__numRows Mod 2) Then
    Response.Write("#FFFFFF")
Else
    Response.Write("#CCCCCC")
End IF
%>">
                          <td width="83%">
                          <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
                          <A HREF="forum_besvar.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ForumID1=" & Recordset1.Fields.Item("ForumID1").Value %>">
                          <%=(Recordset1.Fields.Item("FOverskrift").Value)%></A></font></td>
                          <td width="5%">
                            <div align="center"><font size="1">
                            <a href="forum_besvar.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ForumID1=" & Recordset1.Fields.Item("ForumID1").Value %>">
                            <%
                                    set Recordset2 = Server.CreateObject("ADODB.Recordset")
                                    Recordset2.ActiveConnection = MM_intra_STRING
                                    Recordset2.Source = "SELECT ForumID1 FROM forum2 WHERE ForumID1=" & Recordset1.Fields.Item("ForumID1").Value
                                    Recordset2.CursorType = 0
                                    'Recordset2.CursorLocation = 2
                                    'Recordset2.LockType = 3
                                    'Recordset2.Open()
                                    Recordset2_numRows = 0
                            %>
                            (       
                              <%
                                'do while Not recordset2.eof
                                'if recordset2.eof = true then
                                '    response.write "hej"
                                'else
                                'response.write Recordset2.Fields.Item("ForumID1").Value
                           
                                    response.write Recordset2.recordcount
                                'end if
                                'recordset2.movenext
                                'loop
                        Recordset2.Close()
                            %>
                              )
                            </a>
                            </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></div>
                          </td>
                          <td width="7%">
                            <div align="center"><a href="forum_nyt_indslag.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ForumID1=" & Recordset1.Fields.Item("ForumID1").Value %>">
                            <img src="billeder/mail.gif" width="18" height="19" border="0"></a></div>
                          </td>
                        </tr>
                        <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>