Udskrivning fra database , for mange linier

Med stor hjælp fra eagleeye (takker ærbødigst) kom jeg et skridt videre MEN jeg mangler lidt for at kunne overskue sagerne. Mit loop udskriver for mange linier, hvordan undgår jeg det ?  <%   

strSQL = "Insert into dreje_indv (best) values('" & Request.Form("order") & " ' )"
objConndrejebase.Execute(strSQL)
%><%
Set objRS=objConndrejebase.Execute("SELECT id, d_min, l, e, insert, price, drawing, image, best FROM dreje_indv")
Do while Not objRS.EOF
%>
<table>
    <%   
            IDList = Request.Form("id")    'Det giver nemlig en liste med alle vare
idArr = split(IDList,",")      'Laver et array med alle ID

for i = lbound(idArr) to ubound(idArr)
  antal = Request.Form("order" & Trim(idArr(i)))
  if antal <> "" then
    'Der er angivet et antal af denne vare
    vareID = idArr(i)
'Så har du vareID og antal du kan gemme i DBen elle

  Response.Write "<tr><td> " & vareID & "</td>"
  Response.Write "<td>"& antal & "</td></tr></table>"
  end if
next
%>
</tr></table>       
       
<%

objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing

objConndrejebase.Close
Set objConndrejebase = Nothing
%>
    </body>

</html>