<% 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 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 '----------------------------------------try adding the piece of code here ---------------------V 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 &") AND ((orders.CCResponseCode) IS Null OR (orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" elseIF Request.querystring("source") = "AP" THEN '----------------------------------------try adding the piece of code here ---------------------V 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) <> '999') AND ((orders.CCResponseCode) = '1')) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & " AND ((orders.CCResponseCode) <> '999')) ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "PP" THEN 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) = '1')) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & " AND ((orders.CCResponseCode) IS NULL OR (orders.CCResponseCode) = '1')) ORDER BY orders.OrderID;" end if elseIF Request.querystring("source") = "CM" THEN 'Lists Check or 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) = '1')) 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 &" AND (orders.CCResponseCode <> '999' OR orders.CCResponseCode IS NULL)) ORDER BY orders.OrderID;" else sqlOrder = sqlOrder & "WHERE (orders.OrderID >= 918) AND (orders.CCResponseCode <> '999' OR orders.CCResponseCode IS NULL) 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") %> <% 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 %>
  <% IF Request.querystring("source") = "AP" THEN %> Authorize.Net ** Approved ** <% elseIF Request.querystring("source") = "VM" THEN %> Authorize.Net ** Card Error ** <% 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
View Orders
TYPE  
# PER
PAGE		 
FROM
ORDER		   
">
Ship Orders
TYPE
ORDER #
THRU #   
">
Print Orders
TYPE
ORDER #
THRU #   
<% '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 if rsOrder("dateShip") = "12/12/2012" or rsOrder("dateShip") = "12/12/12" then if rsOrder("shipCharge") > 2 then bgcolor = "red" else bgcolor = "#20C400" end if elseif rsOrder("dateShip") <> "" then bgcolor = "#AA8A74" else if rsOrder("shipCharge") > 2 then bgcolor = "#20C400" else bgcolor = "#20C400" end if end if %> <% if orderType = "VM" 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 
yellow>  &mode=unship&type=<%=rsOrder("PayType")%>">.gif" border="0">  <%else%><%=bgcolor%>>  &mode=confirm&type=<%=rsOrder("PayType")%>">.gif" border="0">   <%if rsOrder("ResponseCode") = "2" then%>', NAME='reason','scrollbars=yes,HEIGHT=100,WIDTH=225,')"><%=rsOrder(">  <%elseif rsOrder("ResponseCode") = "3" then%><%if rsOrder("ResponseReason") = "Duplicate Transaction" then%>', NAME='reason','scrollbars=yes,HEIGHT=100,WIDTH=225,')"><%=rsOrder(">  <%elseif rsOrder("ResponseReason") > "" then%>', NAME='reason','scrollbars=yes,HEIGHT=100,WIDTH=225,')"><%=rsOrder(">  <%end if%><%end if%><%end if%> > ">#<%=rsOrder("OrderID")%>  ><%=ReplaceOut(UCase(rsOrder("NameLast")))%>, <%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  > <%=rsOrder("OrderDate")%>  ><%=formatCurrency(rsOrder("OrderTotal"),2)%>  > <% if bgcolor = "red" then%>  &mode=<% if rsOrder("PayType") = "Visa" OR rsOrder("PayType") = "Mastercard" then%>ship<%else 'NEED to set this to 1%>ship<%end if%>">  <% elseif bgcolor = "#20C400" then %>  &mode=<% if rsOrder("PayType") = "Visa" OR rsOrder("PayType") = "Mastercard" then%>ship<%else 'NEED to set this to 1%>ship<%end if%>">  <% else %>  &mode=confirm">  <% 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.