各位好！
這是”查詢購物清單”，但是”總計”我寫了很久還是錯誤
這是我寫的總計，但出現的數字是不正確的
Total=0
Total=Total+rs("price")*rs("quantity")
請問”總計”該怎麼寫？

還有另一個問題，如果我的清單裡只要出現今天所買的東西，
以往的購物記錄不要出現在清單裡，我的 Select 該怎麼寫？
謝謝！！

<table border="1" cellspacing="0" cellpadding="5" bordercolor="#5FD36D">
<%
Set rs =GetMdbRecordset("..\db1.mdb","select * from 訂購清單 Where member_id='"& Session("id")&"'")

Set rs1 =GetMdbRecordset("..\db1.mdb","select * from 商品資料")
%>
<tr valign="middle"> 
 <td align="center" bgcolor="#FFFFE8"><font color="#6600FF">產品編號</font></td>
<td align="center" bgcolor="#FFFFE8"><font color="#6600FF">產品名稱</font></td>
<td align="center" bgcolor="#FFFFE8"><font color="#6600FF">單　價</font></td>
<td align="center" bgcolor="#FFFFE8"><font color="#6600FF">數量</font></td>
<td align="center" bgcolor="#FFFFE8"><font color="#6600FF">小　計</font></td>
<td align="center" bgcolor="#FFFFE8"><font color="#6600FF">購　買　日　期</font></td>
</tr>
<% While Not rs.EOF %>
<tr> 
<td align="center" bgcolor="#E8F3FF"><%=rs("goods_No")%></td>
<td bgcolor="#E8F3FF"> 
<% rs1.MoveFirst
While Not rs1.EOF
IF rs("goods_No")=rs1("goods_No") THEN
   Response.Write rs1("chines_denom")
END IF
rs1.MoveNext
Wend
%>
</td>
<td bgcolor="#E8F3FF">NT$ <%=rs("price")%></td>
<td align="center" bgcolor="#E8F3FF"> 
<input type="text" name="textfield" value="<%=rs("quantity")%>" size="3">
</td>
<td bgcolor="#E8F3FF">NT$ <%=rs("price")*rs("quantity")%></td>
<td align="center" bgcolor="#E8F3FF"><%=rs("order_date")%></td>
</tr>
<%
rs.MoveNext
Wend%>
<tr align="right" bgcolor="#F4FAFF"> 
<td colspan="6">總計：NT$ </td>
</tr>
</table>

---