counter i database

Når jeg bestiller nogle varer fra min DB, bliver de lagt ned i min indkøbskurv, og jeg vil gerne have talt hvor mange varer jeg har i kurven, men jeg kan ikke få den til at lave en countVare til EOF.

Her er koderne, og jeg vil gerne have at fx. countVare er lig med hele antallet. intQuant= fx 3 par sko!!


set rsReview = Conn.Execute(sqlText)
while not rsReview.EOF 
      intProdID = rsReview("productID")
      strProdName = rsReview("productName")
      intProdPrice = rsReview("productPrice")
      intQuant = rsReview("quantity")
      intTotal = intTotal + (intQuant * intProdPrice)
      countVare = intQuant
%>
                            <tr>
                              <td width="15%" valign="center" align="left"><font face="Verdana" size="2">
                                <input name="quant<%= intProdID %>" size="3" value=" <%=intQuant%>" onChange="HandleError(this)">
                                </font></td>
                              <td width="44%" align="left"><font face="Verdana" size="2">&nbsp;<%= strProdName %>
                                </font></td>
                              <td width="16%" align="right"><font face="Verdana" size="2">
                                kr<%= formatNumber(intProdPrice, 2) %> </font></td>
                              <td width="25%" align="right"><font face="Verdana" size="2">
                                kr<%= formatNumber((intQuant * intProdPrice), 2) %>
                                </font></td>
                            </tr>
                            <%             
rsReview.MoveNext
wend

rsReview.Close
set rsReview = Nothing
%>