<%@ LANGUAGE = "VBScript" %> <% verify stage=request.querystring("stage") %> <% =storename %> Administration <% header adminmenu "orders" %>

<% if stage="archive" then %> archive summary
· Below is a list of all archive orders in the system.
· Click on an order to view it in more detail.
<% else %> order summary
· Below is a list of all active orders in the system.
· Click on an order to view it in more detail.
<% end if %>

<% if stage="archive" then sql="SELECT orders.orderid, sum(priceperunit*qty) AS gtotal, orders.dfname, dlname, date FROM orders INNER JOIN orderitems ON orders.orderid=orderitems.orderid where orderstatus=null or orderstatus='b' GROUP BY orders.orderid, dfname, dlname, orders.date" else sql="SELECT orders.orderid, sum(priceperunit*qty) AS gtotal, orders.dfname, dlname, date FROM orders INNER JOIN orderitems ON orders.orderid=orderitems.orderid where orderstatus=null or orderstatus='a' GROUP BY orders.orderid, dfname, dlname, orders.date" end if set rsorders=db.execute(sql) if rsorders.eof then %> No active orders <% else %> <% while not rsorders.eof %> <% rsorders.movenext wend %>
Order # Date Placed Deliver to Total
"><%=rsorders("orderid") %> <%=rsorders("date") %> <%=rsorders("dfname") %>  <%=rsorders("dlname") %> <%= cursymbol & formatnumber(rsorders("gtotal")) %>
<% end if %>

<% footer %>