<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: Add a Rma issue.
%>
<%
on error resume next
dim mySQL, connTemp, rsTemp
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pStoreLocation = getSettingKey("pStoreLocation")
pHeaderKeywords = getSettingKey("pHeaderKeywords")
pAuctions = getSettingKey("pAuctions")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pNewsLetter = getSettingKey("pNewsLetter")
pStoreNews = getSettingKey("pStoreNews")
pSuppliersList = getSettingKey("pSuppliersList")
pOrderPrefix = getSettingKey("pOrderPrefix")
pIdCustomer = getSessionVariable("idCustomer",0)
mySQL="SELECT orders.idOrder, orderDate FROM orders LEFT JOIN RMA ON orders.idOrder = RMA.idOrder WHERE RMA.idOrder IS NULL AND orders.idCustomer=" & pIdCustomer & " AND orderStatus=2 ORDER by orders.idOrder DESC"
call getFromDatabase (mySql, rsTemp,"customerShowOrders")
if rsTemp.eof then
response.redirect "comersus_message.asp?message="&Server.Urlencode("Delivered orders not found.")
end if
%>