| Customer Orders |
|
<%
if Session("level") < 2 Then
Response.Redirect ("AdminLogin.asp")
End If
'Grab CartID and New Status if a change has been made
CartID = CInt(Request.querystring("CartID"))
vStatus= CInt(Request.Form("SelOrdStatus"))
'Debugging statements to see what is passed
'Response.Write vStatus
'Response.Write CartID
'Create a query (should become a stored procedure later) that will represent an order (info from Customer, Cart and OrdStat)
strSQL = "SELECT Cart.OrderDate, Cart.TotalPrice, Cart.ShippingCost, Cart.CartID, Cart.SalesTax, Cart.SpecInst, Customer.BFirstName, Customer.BLastName, Customer.Email, Cart.Status, Ordstat.Statusname, Ordstat.Ordstatid, Ordstat.Statusorder, Customer.CustomerID, Customer.eacustid"
strSQL = strSQL & " FROM Customer INNER JOIN (Ordstat INNER JOIN Cart ON Ordstat.Ordstatid = Cart.Status) ON Customer.CustomerID = Cart.CustID"
if request.querystring("completed") = 1 then
strSQL = strSQL & " WHERE Cart.Status >= 4"
else
strSQL = strSQL & " WHERE Cart.Status < 4"
end if
strSQL = strSQL & " ORDER BY Cart.CartID DESC;"
Set RsOrder = LaunConn.Execute(strSQL)
%>
|
|
|
|