Problem med utskiften av array

Hej,

Håller på med att forum. Koden nedan skriver ut först Forumkatgorin och sedan tillhörande forum. Så långt inga problem Utan problemet är när ett forum innehåller fler än en moderator, då skrivs forumet ut lika många gånger som det finns moderator. Jag vill att varje moderator ska separeas med ett komma.

Så här skrivs det ut nu
----------
Kategori1
----------
Forumnamn1 . ModeratorNisse
Forumnamn1 - ModeratorKalle
Forumnamn1 - ModeratorLasse
---------
Kategori2
Forumnamn2 - ModeratorLars
Forumnamn2 - ModeratorAnders

osv....

Jag vill att det ska bli
----------
Kategori1
----------
Forumnamn1 . ModeratorNisse,ModeratorKalle,ModeratorLasse
---------
Kategori2
---------
Forumnamn2 - ModeratorLars,ModeratorAnders

Usch.. vad dåligt jag förklarar, är det nån som förstår?
Koden ser ut så här:

Dim RS, arrRecs, i, j, TmpID

SQL = "SELECT fCategories.*, Forums.*, fModerator.*, Members.* FROM (((fCategories LEFT JOIN Forums ON fCategories.CategoryID = Forums.fCatID) LEFT JOIN fModerator ON (Forums.ForumID = fModerator.mForumID)) LEFT JOIN Members ON (fModerator.mMemberID = Members.MemberID)) ORDER BY fCategories.CatName, Forums.fName ASC"
Set RS = Conn.Execute(SQL) 

If RS.EOF Then 
RS.Close : Set RS = Nothing 
Conn.Close : Set Conn = Nothing
Response.Write "" 
 
Else 

arrRecs = RS.GetRows() 
RS.Close : Set RS = Nothing 
Conn.Close : Set Conn = Nothing 
TmpID = 0
xTmp = 0
  %>
  <table border="0" cellpadding="0" cellspacing="0" width="100%" height="79">
    <tr>
      <td width="100%" colspan="5" height="14"></td>
    </tr>
    <tr>
      <td background="../img/bg_list.jpg" width="3%" height="21"><span CLASS="WhiteSub">&nbsp;</span></td>
      <td background="../img/bg_list.jpg" width="60%" height="21"><span CLASS="WhiteSub">&nbsp;Forum</span></td>
      <td background="../img/bg_list.jpg" width="10%" height="21" align="center"><span CLASS="WhiteSub">&nbsp;Trådar</span></td>
      <td background="../img/bg_list.jpg" width="10%" height="21" align="center"><span CLASS="WhiteSub">&nbsp;Inlägg</span></td>
      <td background="../img/bg_list.jpg" width="17%" height="21" align="center"><span CLASS="WhiteSub">&nbsp;Moderator</span></td>
    </tr>
    <%
   for i = 0 to ubound(arrRecs,2)
       if TmpID <> clng(arrRecs(0,i)) then
    %>
    <tr>
      <td bgcolor="#E7E7E7" height="18"></td>
      <td colspan="4" bgcolor="#E7E7E7" height="18"><span CLASS="BlueSub"><%=arrRecs(1,i)%></span></td>
    </tr>
    <%
			TmpID = clng(arrRecs(0,i))
          for j = i to ubound(arrRecs,2)
              if TmpID <> clng(arrRecs(4,j)) then exit for
    %>
    <tr>
      <td align="center" valign="top"><b>»</b></td>
      <td><a CLASS="BlackSub" href="forum.asp?ForumID=<%=arrRecs(3,j)%>"><%=arrRecs(5,j)%></a><br><%=arrRecs(6,j)%></td>
      <td align="center" valign="top"><b><%=arrRecs(8,j)%></b></td>
      <td valign="top" align="center"><b><%=arrRecs(9,j)%></b></td>
      <td valign="top" align="center"><a href="../members/member.asp?memberID=<%=arrRecs(13,j)%>"><%=arrRecs(14,j)%></a></td>
    </tr>
    <%       	
          next
          end if
   next
End If
%>
  </table>