Blir galen!

Jag får inte mitt forum att funka...
Om det finns några inlägg i en kategori så loopas underkategorin om igen alltså bara namnet. Har stirrat blind och försökt med alla konstens medel att få det att funka men jag fattar noll när det kommer till inner/left join i SQL-satser.
Så om det finns någon vänlig själ som vet hur jag på bästa sätt kan loopa ut forumet?

                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
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, " & _
       "c2.inlagg as inlagg,c2.tradar as tradar , " & _
       "slaf,datum " & _
"FROM forum_cat c1 left join forum_cat c2  " & _
"on c2.sub=c1.id left join forum_inlagg " & _
"on catID = c1.id and subId = c2.id " & _
"where c1.sub=0  " & _
"order by datum, c1.namn,c2.namn"

'SQL="SELECT c1.id,c1.namn,c1.beskriv,c2.id as subid,c2.namn as namn2,c2.beskriv as beskriv2,c2.inlagg as inlagg,c2.tradar as tradar 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("id")
Do
  If Rs.EOF Then Exit Do
  If rs("id") <> clng(strNamn) Then Exit Do

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

<%=Rs("tradar")%>
						</td>
                        <td width="6%">
<%=Rs("inlagg")%>
						</td>

                        <td width="30%" align="center">
<%
If isNull(Rs("datum")) Then
Response.Write("-")
Else
Response.Write Day(Rs("datum")) & " " & MonthName(Month(Rs("datum")),True) &" kl "& FormatDateTime(Rs("datum"), 4) &"<br>"& Rs("slaf") &""
End If
%>
						</td>
                      </tr>
					  
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
  rs.MoveNext
Loop

Loop

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

/red looparna ;)