<% Dim nextpage, recordCounter, firstRecord, numPage numPage = request.querystring("numpage") if numPage = "" then numPage = 30 end if firstRecord = request.querystring("firstRecord") nextpage = request.querystring("nextpage") 'THIS OPENS A DSN-LESS CONNECTION TO THE DATABASE Dim dbc, strConn, conString Set dbc = Server.CreateObject("ADODB.Connection") dbc.Open "DSN=cart" 'THIS PAGE DISPLAYS A CUSTOMER ORDER 'create recordset to show categories from database Dim rsOrder, vDesc, sqlOrder, vShipCharge, vOrderTotal, bgcolor, vTotalOrders Set rsOrder = Server.CreateObject ("ADODB.Recordset") IF len(Request.QueryString("source")) = 2 THEN 'CREATE THE SQL STATEMENT sqlOrder = "SELECT DISTINCT orders.OrderID as OrderID, orders.CCardType as CCardType, orders.ShippedDate as dateShip, orders.CustID as CustID, orders.OrderDate as OrderDate, orders.CCResponseReason as ResponseReason, orders.CCResponseCode as ResponseCode, " sqlOrder = sqlOrder & "customers.NameFirst as NameFirst, orders.CCardType as PayType, orders.ShipCharge as shipCharge, customers.NameLast as NameLast, " sqlOrder = sqlOrder & "orders.OrderTotal as OrderTotal " sqlOrder = sqlOrder & "FROM (customers INNER JOIN orders ON customers.CustID = orders.CustID) " IF Request.querystring("source") = "NW" THEN sqlOrder = sqlOrder & "WHERE (((orders.ShippedDate) <> Null Or (orders.ShippedDate)<>#12/12/2012#)" if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &")) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & ") ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "VM" THEN 'ALL CREDIT CARD ORDERS sqlOrder = sqlOrder & "WHERE (((orders.CCardType) = 'Visa' Or (orders.CCardType) = 'Mastercard') AND (((orders.ShippedDate) IS Null Or (orders.ShippedDate)=#12/12/2012#))" sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &")) ORDER BY orders.OrderID;" elseIF Request.querystring("source") = "AP" THEN 'APPROVED CREDIT CARD ORDERS sqlOrder = sqlOrder & "WHERE (((orders.CCardType) = 'Visa' Or (orders.CCardType) = 'Mastercard') AND (((orders.ShippedDate) IS Null Or (orders.ShippedDate)=#12/12/2012#))" if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &") AND ((orders.CCResponseCode) <> '900') AND ((orders.CCResponseCode) = '0')) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & " AND ((orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "PP" THEN 'ALL PAYPAL ORDERS sqlOrder = sqlOrder & "WHERE (((orders.CCardType) = 'paypal') AND ((orders.ShippedDate) IS Null Or (orders.ShippedDate) = #12/12/12#)" if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &") AND ((orders.CCResponseCode) IS NULL OR (orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & " AND ((orders.CCResponseCode) IS NULL OR (orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "CM" THEN 'ALL CHECK AND MONEY ORDERS sqlOrder = sqlOrder & "WHERE (((orders.CCardType) = 'Check' Or (orders.CCardType) = 'MoneyOrder') AND (((orders.ShippedDate) IS Null Or (orders.ShippedDate)=#12/12/2012#))" if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &") AND ((orders.CCResponseCode) IS NULL OR (orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & " AND ((orders.CCResponseCode) IS NULL)) ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "DL" THEN 'Lists All Deleted Items sqlOrder = sqlOrder & "WHERE (((orders.ShippedDate) Is Null Or (orders.ShippedDate)=#12/12/2012#)" sqlOrder = sqlOrder & " AND (orders.CCResponseCode = '999')" if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & " AND (orders.OrderID >= "& nextpage &")) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & ") ORDER BY orders.OrderID;" end if END IF ELSEIF Request.QueryString("source") = "find" THEN sqlOrder = "SELECT DISTINCT orders.OrderID as OrderID, orders.CCardType as PayType, orders.CCardType as CCardType, orders.ShippedDate as dateShip, orders.CCResponseReason as ResponseReason, orders.CustID as CustID, orders.OrderDate as OrderDate, " sqlOrder = sqlOrder & "customers.NameFirst as NameFirst, orders.CCResponseCode as ResponseCode, orders.ShipCharge as shipCharge, customers.NameLast as NameLast, " sqlOrder = sqlOrder & "orders.OrderTotal as OrderTotal " sqlOrder = sqlOrder & "FROM (customers INNER JOIN orders ON customers.CustID = orders.CustID) " If request.querystring("txtOrderName") <> "" then sqlOrder = sqlOrder & " WHERE customers.NameLast LIKE '%" sqlOrder = sqlOrder & Request.querystring("txtOrderName") & "%'" elseif request.querystring("txtOrderID") <> "" then sqlOrder = sqlOrder & " WHERE orders.OrderID = " & request.querystring("txtOrderID") end if 'SORT THE RECORDS BY ORDER NUMBER sqlOrder = sqlOrder & " ORDER BY orders.OrderID Desc;" ELSE%> <% sqlOrder = "SELECT DISTINCT orders.OrderID as OrderID, orders.ShippedDate as dateShip, orders.CustID as CustID, orders.OrderDate as OrderDate, "_ & " orders.CCResponseReason as ResponseReason, orders.CCardType as PayType, orders.ShipCharge as shipCharge, "_ & "orders.CCResponseCode as ResponseCode, customers.NameLast as NameLast, customers.NameFirst as NameFirst, orders.OrderTotal as OrderTotal "_ & "FROM (customers INNER JOIN orders ON customers.CustID = orders.CustID) " if request.querystring("dir") = "forward" then sqlOrder = sqlOrder & "WHERE (orders.OrderID >= "& nextpage &") ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & "WHERE (orders.OrderID >= 918) ORDER BY orders.OrderID;" end if END IF rsOrder.Open sqlOrder, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsOrder.EOF THEN DIM vCardNumber, vCardDate, vCardName, vCardType, vGrandTotal vOrderTotal = rsOrder("OrderTotal") %> check them all <% if not rsOrder.EOF then %> <%end if%> <% ELSE 'WE DID NOT FIND ANYTHING %> <%END IF%> <% 'CLOSE AND CLEAN UP rsOrder.close set rsOrder=nothing dbc.Close set dbc=nothing %>

Approved       Captured       Shipped       Unapproved       Deleted

View Orders TYPE   <% if orderType = "VM" then%> Credit Card ---------- <% elseif orderType = "AP" then%> Approved ---------- <% elseif orderType = "NW" then%> SHIPPED ---------- <% elseif orderType = "DL" then%> DELETED ---------- <% elseif orderType = "PP" then%> PAYPAL ---------- <% elseif orderType = "CM" then%> MAIL ORDER ---------- <%end if %> All Orders Approved Credit Card PayPal Mail Order Shipped Deleted   # PER PAGE   FROM ORDER     "> Ship Orders TYPE Credit Card PayPal Mail Order ORDER # THRU #    "> Print Orders TYPE Credit Card PayPal Mail Order ORDER # THRU #

<% IF Request.querystring("source") = "AP" THEN %> Verisign ** Approved ** <% elseIF Request.querystring("source") = "VM" THEN %> Verisign Credit card <% elseIF Request.querystring("source") = "NW" THEN %> Shipped <% elseIF Request.querystring("source") = "DL" THEN %> Deleted <% elseIF Request.querystring("source") = "PP" THEN %> PayPal <% elseIF Request.querystring("source") = "CM" THEN %> Mail Order <% else%> All <% END IF dim orderType orderType = Request.querystring("source") %> Orders Found

<% 'LOOP THROUGH THE ITEMS IN THIS ORDER 'rsOrder.MoveFirst firstRecord = 0 vGrandTotal = 0 vTotalOrders = 0 recordCounter = 0 While recordCounter < cInt(numPage) and not rsOrder.EOF if firstRecord = 0 then firstRecord = rsOrder("OrderID") end if vTotalOrders = vTotalOrders + 1 'SET COLUMN COLOR if rsOrder("dateShip") <> "" then 'ITEM IS SHIPPED bgcolor = "#AA8A74" elseif rsOrder("ResponseCode") = "0" then 'CREDIT CARD APPROVED bgcolor = "yellow" elseif rsOrder("ResponseCode") = "900" then 'PAYMENT RECIEVED OR CAPTURED bgcolor = "#00CC00" elseif rsOrder("ResponseCode") = "999" then 'PAYMENT RECIEVED OR CAPTURED bgcolor = "red" else bgcolor = "#bbbbbb" end if if orderType = "az" and rsOrder("ResponseCode") = "1" then%> <%else%> <%end if%> <% vGrandTotal = vGrandTotal + rsOrder("OrderTotal") 'GO GET THE NEXT ITEM rsOrder.MoveNext recordCounter = recordCounter + 1 %> <% Wend %>  Type  Order #  Name  Ordered Total  Ship   Kill  Label  <% if rsOrder("ResponseCode") = "900" then 'Captured Funds %>   .gif" border="0">   <%elseif rsOrder("ResponseCode") = "0" then ' Authorized Credit Cards %>   &mode=confirmcharge&orderType=<%=rsOrder("PayType")%>', NAME='ship','scrollbars=yes,HEIGHT=300,WIDTH=475,')">.gif" border="0">   <%else%>   &mode=confirmcharge&orderType=<%=rsOrder("PayType")%>', NAME='ship','scrollbars=yes,HEIGHT=300,WIDTH=475,')">.gif" border="0">   <%if rsOrder("ResponseReason") > "" then%>', NAME='reason','scrollbars=yes,HEIGHT=100,WIDTH=225,')">">   <%end if%> <%end if%> > ">#<%=rsOrder("OrderID")%>  ><%=ReplaceOut(UCase(rsOrder("NameLast")))%>, <%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  > <%=rsOrder("OrderDate")%>  ><%=formatCurrency(rsOrder("OrderTotal"),2)%>  > <% if bgcolor = "red" then 'DELETED SO NO SHIPPING LINK %>    <% elseif rsOrder("dateShip") <> "" then 'SHIPPED ORDERS SO GIVE UNSHIP LINK %>  &mode=confirmunship', NAME='ship','scrollbars=yes,HEIGHT=300,WIDTH=475,')">  <% elseif rsOrder("ResponseCode") = "900" then ' CAPTURED ORDERS SO GIVE SHIP LINK %>  &mode=confirmship', NAME='ship','scrollbars=yes,HEIGHT=300,WIDTH=475,')">  <% else ' FUNDS NOT CAPTURED SO NO SHIPPING LINK %>    <% end if %> ><% if rsOrder("ResponseCode") = "999" then%> &mode=remove"> &mode=undelete"> <%else%>&mode=confirm"> <%end if%> ">       Total:  <%=FormatCurrency(vGrandTotal,2)%>

<<< back  |  &nextpage=<%= rsOrder("OrderID")%>&dir=forward&backRecord=<%=firstRecord%>&numpage=<%=numPage%>">Next <%=numPage%> Records >>>

No Records Found.