<% '================================================================ 'Application Info: ' Cartweaver© 2002 - 2005, All Rights Reserved. 'Developer Info: ' Application Dynamics Inc. ' 1560 NE 10th ' East Wenatchee, WA 98802 'Support Info: http://www.cartweaver.com/go/asphelp ' 'Cartweaver Version: 2.0 - Date: 11/20/2004 '================================================================ 'Name: AdminHome.asp 'Description: Admin home page and dispalys basics sales reports. '================================================================ Dim rsNewOrders, query_rsNewOrders query_rsNewOrders = "SELECT tbl_orders.order_Date, tbl_orders.order_ID, tbl_orders.order_Total " &_ "FROM tbl_orders " &_ "WHERE tbl_orders.order_Date BETWEEN " & cwMakeSQLDate(Session("LastLogin"),True) & " AND " & cwMakeSQLDate(Now(),True) & " " &_ "ORDER BY tbl_orders.order_Date" Set rsNewOrders = cwOpenQuery(query_rsNewOrders,datasource) cwDebugger cwQueryDump(rsNewOrders, "rsNewOrders") Dim rsToVerify, query_rsToVerify query_rsToVerify = "SELECT tbl_orders.order_Date, tbl_orders.order_ID, tbl_orders.order_Total " &_ "FROM tbl_orders " &_ "WHERE tbl_orders.order_Status = 1 " &_ "ORDER BY tbl_orders.order_Date" Set rsToVerify = cwOpenQuery(query_rsToVerify,datasource) Dim rsToShip, query_rsToShip query_rsToShip = "SELECT tbl_orders.order_ID, tbl_orders.order_Date, tbl_orders.order_Total, tbl_shipmethod.shipmeth_Name " &_ "FROM tbl_shipmethod INNER JOIN tbl_orders ON tbl_shipmethod.shipmeth_ID = tbl_orders.order_ShipMeth_ID " &_ "WHERE tbl_orders.order_Status = 2 ORDER BY tbl_orders.order_Date" Set rsToShip = cwOpenQuery(query_rsToShip,datasource) %> CW Admin: Home

Admin Home

Order Status

New Orders

<% If (rsNeworders.Recordcount) = (0) Then 'Start CCR %> No new orders <% Else 'CCR %> <%= rsNeworders.Recordcount %> new <% If (rsNeworders.Recordcount) > (1) Then 'Start CCR %> orders <% Else 'CCR %> order <% End If 'End CCR: (rsNeworders.Recordcount) > (1) %> <% End If 'End CCR: (rsNeworders.Recordcount) = (0) %> since <%= FormatDateTime(Session("LastLogin"),0) %>

<% If (rsNeworders.Recordcount) > (0) Then 'Start CCR %> <% i = 0 Do While NOT rsNewOrders.EOF i = i + 1 %> <% rsNewOrders.MoveNext() Loop %>
Order Date Total View
<%= FormatDateTime(rsNewOrders("order_Date")) %> <%= FormatCurrency(rsNewOrders("order_Total")) %> ">View Order
<% End If 'End CCR: (rsNeworders.Recordcount) > (0) %>

Unverified Orders

<%= rsToVerify.Recordcount %> <% If (rsToVerify.Recordcount > 1) OR (rsToVerify.Recordcount = 0) Then 'Start CCR %> orders <% Else 'CCR %> order <% End If 'End CCR: (rsToVerify.Recordcount > 1) OR (rsToVerify.Recordcoun) = 0) %> to verify

<% If (rsToVerify.Recordcount) > (0) Then 'Start CCR %> <% i = 0 Do While NOT rsToVerify.EOF i = i + 1 %> <% rsToVerify.MoveNext() Loop %>
Order Date Total View
<%= FormatDateTime(rsToVerify("order_Date")) %> <%= FormatCurrency(rsToVerify("order_Total")) %> ">View Order
<% End If 'End CCR: (rsToVerify.Recordcount) > (0) %>

Orders to ship

<%= rsToShip.Recordcount %> <% If (rsToShip.Recordcount > 1) OR (rsToShip.Recordcount = 0) Then 'Start CCR %> orders <% Else 'CCR %> order <% End If 'End CCR: (rsToShip.Recordcount > 1) OR (rsToShip.Recordcount = 0) %> to ship

<% If (rsToShip.Recordcount) > (0) Then 'Start CCR %> <% i = 0 Do While NOT rsToShip.EOF i = i + 1 %> <% rsToShip.MoveNext() Loop %>
Order Date Total Ship Method View
<%= FormatDateTime(rsToShip("order_Date")) %> <%= FormatCurrency(rsToShip("order_Total")) %> <%= rsToShip("shipmeth_Name") %> ">View Order
<% End If 'End CCR: (rsToShip.Recordcount) > (0) %> <%= cwDebugOutput %>
<% cwCloseRecordset(rsNewOrders) cwCloseRecordset(rsToVerify) cwCloseRecordset(rsToShip) %>