Threads henter ikke ut alle poster under ID hva er feil

Her er koden er det noen som kan se hva som er feil? Er det jeg som er blind?



'Legger alle spørsmål i array
Sub ForumSubjects(inputRID)
        set adoCn = Server.CreateObject("ADODB.Connection")
        adoCn.Open strConn
        set adoRs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT InnleggID,InnleggSvarID,InnleggOverskrift,InnleggInnhold,Innlegg_E_UserID,InnleggOpprettet FROM Forum_Innlegg ORDER BY InnleggID ASC"
        set adoRs = adoCn.Execute(strSQL)
       
        If not adoRs.eof AND not adoRs.bof then
            Do until adoRs.eof
               
                arrID = arrID & "," & adoRs("InnleggID")
                arrReplyID = arrReplyID & "," & adoRs("InnleggSvarID")
                arrSubject = arrSubject & "," & adoRs("InnleggOverskrift")
                arrQuestion = arrQuestion & "," & adoRs("InnleggInnhold")
                arrCreator = arrCreator & "," & adoRs("Innlegg_E_UserID")
                arrDate = arrDate & "," & adoRs("InnleggOpprettet")
               
                strSQL = "select count(InnleggID) from Forum_Innlegg WHERE InnleggSvarID=" & adoRs("InnleggID")
                set adoRsCount = adoCn.Execute(strSQL)
                    arrNoAnswers    = arrNoAnswers & "," & adoRsCount(0)
                adoRsCount.Close
                Set adoRsCount = Nothing             
                       
            adoRs.moveNext
            Loop           
        End if
       
    arrID = Split(arrID,",")
    arrReplyID = Split(arrReplyID,",")
    arrSubject = Split(arrSubject,",")
    arrQuestion = Split(arrQuestion,",")
    arrCreator = Split(arrCreator,",")
    arrDate = Split(arrDate,",")
    arrNoAnswers = Split(arrNoAnswers,",")
       
    adoRs.Close
    Set adoRs = Nothing
                                           
    adoCn.Close
    Set adoCn = Nothing

    Response.Write "<tr class=""downloadbg1"">" & vbCrlf & "<td colspan=""3"">"
    Call GetForumNameSubject(intInnleggID)
    Response.Write "</td>" & vbCrlf & "</tr></table><br>" & vbCrlf
    Response.Write strTableTop & "<tr class=""downloadslist"">" & vbCrlf & "<td><b>SVAR</b></td><td align=""middle""><b>SKREVET AV</b></td><td align=""middle""><b>OPPRETTET</b></td>" & vbCrlf
    Response.Write TreadsList(inputRID,level+1)   
End Sub

'Henter ut svar fra array
Function TreadsList(inputRID,level)
    For m = 1 to Ubound(arrID)
    cssStyle = 1
        ' Hvis svar til det indlæg som funktionen er kaldt med
        If Cint(arrReplyID(m)) = Cint(inputRID) Then
            str=""
            For l=1 To level
                str = str & " &nbsp; &nbsp; "
            Next
            ' Tilføj til liste og kald funktionen for at undeadoRsøge for svar
            TreadsList = TreadsList & "<tr class='downloadbg" & cssStyle & "'>" & vbCrlf & "<td class=""xptext"">" & str & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?ForumID=" & arrID(m) & """ class=""rap"">" & arrSubject(m) & "</a>( " & arrNoAnswers(m) & " )</td><td class=""xptext"">&nbsp;" & arrCreator(m) & "</td><td class=""xptext"" align=""middle"">" & arrDate(m) & "</td>" & vbCrlf & "</tr>" & vbCrlf
            TreadsList = TreadsList & "<tr class='downloadbg" & cssStyle & "'>" & vbCrlf & "<td colspan=""3"" class=""xptext"">" & arrQuestion(m) & "</td>" & vbCrlf & "</tr>" & vbCrlf   
        End If
                   
    Next   
    CheckCSSStyle(cssStyle)
End function