Loop skal væk!

Jeg har her en kode, hvor jeg skal have fjernet loopet. Hvilket kode skal fjernes for at det stadig virker, men uden loop??

Koden:
<%

Do While Not rs.EOF   
   
    Set rs2 = db.Execute("SELECT * FROM Underkategori WHERE KategoriID=" & rs("KategoriID") & " ORDER BY Titel")
Do While Not rs2.EOF
    Set rs3 = db.Execute("SELECT Count(*) AS Ant FROM Debat WHERE UnderkategoriID=" & rs2("UnderkategoriID"))
   
        rs2.MoveNext()
    Loop
   

    rs.MoveNext()
   
    antNr = antNr + 1
    If antNr = ant \ 3 Then

        antNr = 0
    End if
Loop


%>