Forumprobs!

Någon här som förstår sig på koden?
Jag vill loopa alla svar till debatterna under respektive debatt-rubrik.
Men den visar bara den översta svars-rubriken under varje debatt-rubrik.
Nån som hängde med?
Tacksam för hjälp!

<% 
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT (select count(*) from debatt) As AntalDebatt, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt order by DID desc"
RecSet.Open SQL, Connection, adOpenStatic, adLockOptimistic

Set Number = Connection.Execute("Select Count(*) As Antal FROM debatt_svar")

response.write recset("AntalDebatt") & "<br>"
while not recset.eof 

   Set RecSet2 = Server.CreateObject("ADODB.Recordset")
   SQL = "SELECT (select count(*) from debatt_svar) As AntalSvar, *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM debatt_svar WHERE SID = " & recset("DID") & " order by datum desc"
   RecSet2.Open SQL, Connection, adOpenStatic, adLockOptimistic
   
  response.write ("<a href=""visa_debatt.asp?DID=" & recset("DID") & "&""SID=" & recset2("SID") & """>" & Recset("rubrik") & "</a>")

   
   response.write "Antal svar: " & recset2("AntalSvar") & "<br>"
   while not recset2.eof 
      response.write recset2("rubrik") & "<br><br>"
      recset2.movenext
   wend
   set recset2 = nothing

   recset.movenext
wend

set recset = nothing
%>