歷史訂單明細

<% Dim total Response.Write "

您的歷史訂單查詢明細如下：

" SQL_Statement="Select * from Orders where mid="& Session("mid") RS1.Open SQL_Statement,DBC if DBError =0 then While not RS1.Eof Response.Write "

訂單號碼："& RS1(0) &"訂貨日期：" & RS1(1)&"付款日期：" & RS1(3) & "

" Response.Write "

" Response.Write "
項次 | 供應農會 | 水果 | 單價 | 數量 | 小計
" SQL_Statement="Select I.item_num,S.supp_name,P.description,P.unit_price,I.quantity,I.total_price " SQL_Statement=SQL_Statement & "from items I,Products P,Suppliers S where I.prod_num=P.prod_num " SQL_Statement=SQL_Statement & " and I.supp_code=P.supp_code and S.supp_code=P.Supp_code and I.order_num=" & RS1(0) RS.Open SQL_Statement,DBC DBError Total=0 While not RS.Eof Row="" For j=0 to RS.Fields.Count-1 Row = Row & "
" & Rs(j) & " " Next Total=Total+RS(5) Response.Write Row & "" RS.MoveNext Wend RS.Close Response.Write "
總計： | " & Total & " " Response.Write "

" RS1.MoveNext Wend end if %>