<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Order Maintenance ' Product : CandyPress Store Administration ' Version : 2.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '************************************************************************* Option explicit Response.Buffer = true const adminLevel = 1 %> <% 'Database dim mySQL, cn, rs 'cartHead dim idOrder dim idCust dim idAffiliate dim orderDate dim orderDateInt dim randomKey dim subTotal dim taxTotal dim shipmentTotal dim Total dim shipmentMethod dim name dim lastName dim customerCompany dim phone dim email dim address dim city dim locState dim locCountry dim zip dim shippingName dim shippingLastName dim shippingAddress dim shippingCity dim shippingLocState dim shippingLocCountry dim shippingZip dim paymentType dim cardType dim cardNumber dim cardExpMonth dim cardExpYear dim cardVerify dim cardName dim generalComments dim orderStatus dim auditInfo dim storeComments dim storeCommentsPriv 'cartRows dim idCartRow dim idProduct dim sku dim quantity dim unitPrice dim unitWeight dim description 'CartRowsOptions dim idCartRowOption dim idOption dim optionPrice dim optionDescrip 'Work Fields dim I dim item dim count dim pageSize dim totalPages dim showArr dim sortField dim delUordHours dim curPage dim showStatus dim showField dim showPhrase '************************************************************************* 'Open Database Connection call openDB() 'Store Configuration if loadConfig() = false then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.") end if 'Set Row Colors dim rowColor, col1, col2 col1 = "#DDDDDD" col2 = "#EEEEEE" 'Set Number of Items per Page pageSize = 20 'Get Page to show curPage = Request.Form("curPage") 'Form if len(curPage) = 0 then curPage = Request.QueryString("curPage") 'QueryString end if 'Get showStatus showStatus = Request.Form("showStatus") 'Form if len(showStatus) = 0 then showStatus = Request.QueryString("showStatus") 'QueryString end if 'Get showField showField = Request.Form("showField") 'Form if len(showField) = 0 then showField = Request.QueryString("showField") 'QueryString end if 'Get showPhrase showPhrase = Request.Form("showPhrase") 'Form if len(showPhrase) = 0 then showPhrase = Request.QueryString("showPhrase") 'QueryString end if 'Check if a Cookie Reset was requested if Request.QueryString("resetCookie") = "1" then Response.Cookies("OrderSearch").expires = Date() - 30 else 'Check if a Cookie Recall was requested if Request.QueryString("recallCookie") = "1" then for each item in Request.Cookies if item = "OrderSearch" then showArr = Split(Request.Cookies(item),"*|*") curPage = showArr(0) showStatus = showArr(1) showField = showArr(2) showPhrase = showArr(3) end if next else 'Save Search Criteria in a Cookie Response.Cookies("OrderSearch") = navCookie(curPage) Response.Cookies("OrderSearch").expires = Date() + 30 end if end if 'After attempting to retrieve the search criteria through the various 'mechanisms above (Form/QueryString/Cookie), check that some of the 'critical values are valid. If not, set to default values. if len(curPage) = 0 or not isNumeric(curPage) then curPage = 1 else curPage = CLng(curPage) end if 'Check what we will be sorting the results on sortField = Request.Form("sortField") 'Form if len(sortField) = 0 then sortField = Request.QueryString("sortField") 'QueryString end if if len(sortField) = 0 then sortField = "idOrder DESC" end if %>

Order Maintenance

<% if len(trim(Request.QueryString("msg"))) > 0 then %> <%=Request.QueryString("msg")%>

<% end if %>
Bulk Modifications
Show Orders where Status is   
Show Orders where    contains the phrase   
Find and DELETE Unfinalized orders older than

<% 'Specify fields and table mySQL="SELECT idOrder,idCust,idAffiliate,orderDate,total,name," _ & " lastName,address,paymentType,orderStatus " _ & "FROM cartHead " _ & "WHERE 1=1 " 'Dummy check to set up conditional checks below 'Status if len(showStatus) > 0 then mySQL = mySQL & "AND orderStatus = '" & showStatus & "' " end if 'Field and Search Phrase if len(showField) > 0 and len(showPhrase) > 0 then 'If we are searching on idOrder, idCust or idAffiliate look for exact match if lCase(showfield) = "idorder" _ or lCase(showfield) = "idcust" _ or lCase(showfield) = "idaffiliate" then if IsNumeric(showPhrase) then mySQL = mySQL & "AND " & showField & " = " & showPhrase & " " else 'Force Database to return no entries mySQL = mySQL & "AND 1=2 " end if else 'If we are searching on SKU or Product Description, we need 'to check against the cartRows file, else we check against 'the cartHead file. if lCase(showfield) = "sku" or lCase(showField) = "description" then mySQL = mySQL & "AND EXISTS (SELECT idCartRow FROM cartRows WHERE cartRows.idOrder = cartHead.idOrder AND " & showField & " LIKE '%" & replace(showPhrase,"'","''") & "%') " else mySQL = mySQL & "AND " & showField & " LIKE '%" & replace(showPhrase,"'","''") & "%' " end if end if end if 'Sort Order mySQL = mySQL & "ORDER BY " & sortField set rs = openRSopen(mySQL,0,adOpenStatic,adLockReadOnly,adCmdText,pageSize) if rs.eof then %> <% else rs.MoveFirst rs.PageSize = pageSize totalPages = rs.PageCount rs.AbsolutePage = curPage %> <% rowColor = col1 %> <% rowColor = col2 do while not rs.eof and count < rs.pageSize %> <% count = count + 1 rs.movenext 'Switch Row Color if rowColor = col2 then rowColor = col1 else rowColor = col2 end if loop %> <% end if call closeRS(rs) %>

No Orders matched search criteria.

<% call pageNavigation("selectPageTop") %> Sort :
Order Date/Time Total Name/Address PayType Status  
"><%=pOrderPrefix & "-" & rs("idOrder")%> <%=formatTheDate(rs("orderDate"))%>
<%=formatDateTime(rs("orderDate"),3)%> 		<% if isNull(rs("total")) then Response.Write "-" else Response.Write moneyD(rs("total")) end if %> <% if isnull(rs("lastName")) or len(rs("lastName")) = 0 then Response.Write "-" else Response.Write "" & rs("lastName") & ", " & rs("name") & "" end if Response.Write "
" & rs("address") %> 		<% if isnull(rs("paymentType")) or len(rs("paymentType")) = 0 then Response.Write "-" else if rs("paymentType") = "COD" Then Response.Write "Boleto Bancário" end if if rs("paymentType") = "MailIn" Then Response.Write "Dep. Bradesco" end if if rs("paymentType") = "CallIn" Then Response.Write "Dep. Unibanco" end if if rs("paymentType") = "FaxIn" Then Response.Write "Dinheiro" end if if rs("paymentType") = "CreditCard" Then Response.Write "Cartão AMEX" end if if rs("paymentType") = "pag_digital" Then Response.Write "PAGAMENTO DIGITAL" end if end if %> <% Response.Write orderStatusDesc(rs("orderStatus")) if pAuthNet = -1 then select case rs("orderStatus") case "0", "9" Response.Write "
authorize" end select end if %> 		[ " target="_blank">inv | ">edit ] ">
<% call pageNavigation("selectPageBot") %> Delete Selected Orders?

Help and Instructions :
Find Orders(s) - You have several options for finding a specific Order. Orders are displayed in Order Number sequence, with the newest orders listed first.

1. You can list all Orders which contain a specific phrase in one of several Order fields.

2. You can list all Orders with a specified Order Status.

Delete Unfinalized Orders - When a shopping cart is created by adding a product to the cart, a new order is created and assigned a status of "Unfinalized". The order will retain this status until the end of the checkout process, when the order status changes to "Pending". If the order is successfully paid, the order status will change to "Paid". In the event that the customer leaves the store without completing the checkout process, the order status will remain in the system as "Unfinalized". The good thing about this is that it gives you an idea of how many "abandoned" carts you get. After a while, you may remove them from the system to free up space.

Authorize Payment - Click to authorize and process credit card payments for an order through Authorize.Net. This is only necessary if the payment has not already been authorized and processed during the checkout process, such as when you use Offline payments. This option will only be available if you activated it in your store's configurations.

Invoice - Click to view a printable Invoice for the Order.

Edit Order - Click to change Order Status and/or Information.

Delete Order - Check the box next to order(s) you want to delete, and click "Yes".

View Order - Click the Order Number to view an Order.

View Customer - Click the Customer Name to view the Customer's detail.
<% call closedb() %> <% '********************************************************************* 'Make QueryString for Paging '********************************************************************* function navQueryStr(pageNum) navQueryStr = "?curPage=" & server.URLEncode(pageNum) _ & "&showStatus=" & server.URLEncode(showStatus) _ & "&showField=" & server.URLEncode(showField) _ & "&showPhrase=" & server.URLEncode(showPhrase) end function '********************************************************************* 'Make Cookie Value for Paging '********************************************************************* function navCookie(pageNum) navCookie = pageNum & "*|*" _ & showStatus & "*|*" _ & showField & "*|*" _ & showPhrase end function '********************************************************************* 'Display page navigation '********************************************************************* sub pageNavigation(formFieldName) Response.Write "Page " Response.Write " of " & TotalPages & "  " Response.Write "[ " if curPage > 1 then Response.Write "Back" else Response.Write "Back" end if Response.Write " | " if curPage < TotalPages then Response.Write "Next" else Response.Write "Next" end if Response.Write " ]" end sub %>