<% ' Get Form Variables showOrders = TRIM( Request( "showOrders" ) ) showPage = TRIM( Request( "showPage" ) ) allPages = TRIM( Request( "allpages" ) ) ' Assign Default Values IF showOrders = "" THEN showOrders = 3 END IF IF showPage = "" THEN showPage = 1 END IF ' Open Database Connection Server.MapPath(".") dbPath = "E:/hshome/webcaddy/database/storedbexchange.mdb" Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath %> Process Orders <%IF session( "iDebugLevel" ) > 0 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
<%for i=1 to Request.Form.Count%> Form Key #<%=i%> = <%=Request.Form.Key(i)%>
<%next%> orderstatus: <%=orderStatus%>
showPage: <%=showPage%>
allPages: <%=allPages%>
showOrders: <%=showOrders%>
<%END IF%> <% ' Retrieve Orders by Country sqlString = "SELECT user_country, Count(ship_shipID) AS count_ship_id "&_ " FROM users , ship " &_ " WHERE user_id = ship_userID AND ship_status = " & showOrders sqlString = sqlString & " GROUP BY user_country " sqlString = sqlString & " ORDER BY user_country DESC" IF session( "iDebugLevel" ) > 0 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
sqlString: <%=sqlstring%>
<%END IF%> <% SET RS = Server.CreateObject( "ADODB.Recordset" ) RS.CursorType = adOpenStatic IF allPages = "" THEN RS.PageSize = 99 ELSE RS.PageSize = 99999 END IF RS.ActiveConnection = Con RS.Open sqlString IF NOT RS.EOF THEN RS.AbsolutePage = cINT( showPage ) END IF FUNCTION SELECTED( val1, val2 ) IF cSTR( val1 ) = cSTR( val2 ) THEN SELECTED = " selected " END IF END FUNCTION %>

<% IF session( "iDebugLevel" ) > 1 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
showpage: <%=showPage%>
shipID: <%=shipID%>
OrderStatus: <%=orderStatus%>
amount: <%=amount%>
paymentType: <%=paymentType%>
<%END IF%>

 

Production Summary GOTO:MANAGE                                   Showing Orders in:

View the Orders in the following STATE:
CANCELLED   -   NEW   -   PENDING   -   PRODUCTION   -   SHIPPING   -   SHIPPED   -   DELIVERED
<% TotalShipQty = 0 WHILE NOT RS.EOF AND rowCount < RS.PageSize TotalShipQty = TotalShipQty + RS( "count_ship_id" ) %> <% RS.MoveNext WEND%>
Country to ship Quantity Shipped
<%=RS( "user_country" )%>  <%=RS( "count_ship_id" )%>  
Total: <%=TotalShipQty%>