Databaseudtræk i en løkke.

Hejsa.
Jeg har på min side en løkke der gennemløber et recordset. For hver post i recordset'et laver den et nyt databaseudtræk, baseret på det første sæt's id. Problemet er at i stedet for at lave et nyt udtræk hver gang, gentager den sig selv når der ikke er nogen poster der opfylder where clausen.
Koden ser således ud:

  Do
    strSQL = "Select * From warreports where warid = " & rs("id") & ";"
    Set ps = Conn.Execute(strSQL)

    If Not ps.EOF Then
      ccblinearr = split(ps("lineup"), ",")
      opplinearr = split(ps("opplineup"), ",")
      ccbline = ""
      oppline = ""
      For i = LBound(ccblinearr) to UBound(ccblinearr)
    ccbline = ccbline & ccblinearr(i) & "<br />"
      Next
      For i = LBound(opplinearr) to UBound(opplinearr)
    oppline = oppline & opplinearr(i) & "<br />"
      Next
      warrep =    "<div class=""warrep"" id=""warrep" & rs("id") & "fill"" style=""display:none;width:100%;""></div>" & _
        "<div id=""warrep" & rs("id") & """ style=""display:none;width:100%;""><table class=""tblwarrep"">" & _
        "<tr>" & _
        "  <td colspan=""4""><span class=""warrephead"">" & rs("opponent") & "</span></td>" & _
        "</tr>" & _
        "<tr>" & _
        "  <td>Date:</td><td>" & rs("spacedate") & "</td>" &_
        "  <td>Result:<td><td class=""" & rs("outcome") & """>" & rs("score") & "</td>" & _
        "</tr>" & _
        "<tr>" & _
        "  <td>Lineup:</td><td>" & ccbline & "</td>" & _
        "  <td>" & rs("opponent") & " Lineup:</td><td>" & oppline & "</td>" & _
        "</tr>" & _
        "<tr>" & _
        "  <td colspan=""4"">" & ps("comment") & "</td>" & _
        "</tr>" & _
        "</table></div>"
    End If

    Response.Write    "<tr>" & _
            "  <td>" & rs("spacedate") & "</td>" & _
            "  <td>" & rs("opponent") & "</td>" & _
            "  <td>" & rs("wartype") & "</td>" & _
            "  <td>" & rs("maps") & "</td>" & _
            "  <td>" & rs("mapscore") & "</td>" & _
            "  <td class=""" & rs("outcome") & """>" & rs("score") & "</td>" & _
            "  <td></td>" & _
            "</tr>" & _
            "<tr>" & _
            "  <td colspan=""7"">" & warrep & "</td>" & _
            "</tr>"
    rs.MoveNext
  Loop While Not rs.EOF

Nogen der kan spotte fejlen? Jeg har set mig blind på det. Håber i kan løse det.
Venlig hilsen
Peter.