udskrivning fra tabel

Hej

Når jeg udskrive dette:

    sqlString = "SELECT * FROM cart " &_
      "WHERE cart_userID=" & userID
    SET RS = Conn.Execute( sqlString )
    productname = RS( "cart_productname" )
      productvhsdvd = RS( "cart_productvhsdvd" )
      quantity = RS( "cart_quantity" )
   
    Do While Not RS.EOF
    %>
<tr>
  <td>
  <input type="text" name="product_name" size=20 maxlength=50
  value="<%=productname%>">
  </td>
  <td>
  <input type="text" name="product_vhsdvd" size=20 maxlength=50
  value="<%=productvhsdvd%>">
  </td>
  <td>
  <input type="text" name="product_price" size=20 maxlength=50
  value="<%=quantity%>">
  </td>
</tr>
<tr>
    <%
    RS.MoveNext
    Loop
    %>

udskriver den 1 post og ikke dem alle.
Jeg vil gerne have den til at udskrive dem alle...Hvordan ???