<% 'THIS PAGE DISPLAYS A CUSTOMER ORDER 'IF THERE IS NO ORDER ID SEND THEM TO THE MAIN ADMIN PAGE IF Request("txtOrderID") = "" THEN Response.Redirect("admin.asp") END IF IF Request("txtOrderID") > 30180 THEN 'create recordset to show categories from database Dim rsOrder, vDesc, sqlOrder, vShipCharge, vOrderTotal,dateShipped Set rsOrder = Server.CreateObject ("ADODB.Recordset") 'CREATE THE SQL STATEMENT sqlOrder = " SELECT orders.ShipCharge as ShipCharge, orders.OrderTotal as OrderTotal, orders.OrderTax as OrderTax, orders.ccardnumber as CardNumber, orders.CCardExpireDate as CardDate, orders.CCardName as CardName, orders.CCardType as CardType, orders.OrderID as OrderID, orders.CustID as CustID, orders.PromoCode,orders.OrderDate as OrderDate, orders.ShippedDate as dateShip, orders.PromisedShipDate as partialShip, orders.CCTrasactionID as TransID, orders.CCardAddress as AVSCheck, orders.CCResponseReason as ResponseReason, customers.NameFirst as NameFirst, customers.NameLast as NameLast, customers.Address1 as Address1, orders.ShipAddress1 as ShipAddress1, customers.Address2 as Address2, customers.City as City, customers.State as State, customers.Zip as Zip, orders.ShipCity as ShipCity, orders.ShipState as ShipState, orders.ShipZip as ShipZip, customers.Country as Country, orders.ShipCountry as ShipCountry, customers.Email as Email, customers.Phone as Phone, orderitems.QTY as QTY, products.BandName as BandName, products.Name as ProdName, orderitems.Price as Price, [products].[Price]*[orderitems].[QTY]+OrderItems.Shipping AS SubTotal, "_ & "orderitems.ProductID as ProdID, orderitems.ItemID as ItemID, OrderItems.Shipping as Shipping, "_ & " orders.ShipAddress2 as ShipAddress2, ShipName.ShipName "_ & "FROM (categories INNER JOIN products ON categories.CatID = products.CatID) INNER JOIN ((customers INNER JOIN orders ON customers.CustID = orders.CustID) LEFT OUTER JOIN ShipName ON orders.OrderID = ShipName.OrderID INNER JOIN orderitems ON orders.OrderID = orderitems.OrderID) ON products.ProductID = orderitems.ProductID "_ & "WHERE orders.OrderID = "_ & Request("txtOrderID") rsOrder.Open sqlOrder, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsOrder.EOF THEN DIM vCardNumber, vCardDate, vCardName, vCardType, vTax, vShipName vShipCharge = rsOrder("ShipCharge") vOrderTotal = rsOrder("OrderTotal") vTax = rsOrder("OrderTax") vCardNumber = rsOrder("CardNumber") vCardDate = rsOrder("CardDate") vCardName = rsOrder("CardName") vCardType = rsOrder("CardType") vShipName = rsOrder("ShipName") vDesc=Request("txtItemDesc") %>
<% if rsOrder("OrderID") >= "16456" then%> <%else%> <%end if%>
<%=UCase(cName)%> INVOICE

<%=cURL%> 		    ORDER#: <%=rsOrder("OrderID")%>
Customer#: <%=rsOrder("CustID")%>
PromoCode: <%=rsOrder("PromoCode")%>
Order Date: <%=rsOrder("OrderDate")%>
<% if rsOrder("dateShip") = "12/12/2012" then dateShipped="Ship Date: Not Shipped" elseif rsOrder("dateShip") <> "" then dateShipped="Ship Date: " & rsOrder("dateShip") elseif rsOrder("partialShip") <> "" then dateShipped="Partial Ship: " & rsOrder("partialShip") & "" else dateShipped="Ship Date: Not Shipped" end if %> <%=dateShipped%>
<% if rsOrder("TransID") <> "" then%> ID#: <%=rsOrder("TransID")%>
<%end if%> <%if rsOrder("AVSCheck") <> "" then if rsOrder("AVSCheck") = "YY" then%> Verify AVS / CSC: YES / YES
<%else%> Verify AVS / CSC: <%=rsOrder("AVSCheck")%>
<%end if end if%> <% if rsOrder("ResponseReason") = "Approved" or rsOrder("ResponseReason") = "capture" then%> <% else %> Response: <%=rsOrder("ResponseReason")%>
<%end if%>
 
 
BILLING ADDRESS:     SHIPPING ADDRESS:    
Name:   <%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  <%=ReplaceOut(UCase(rsOrder("NameLast")))%> Name:   <% If vShipName <> "" Then %><%=UCASE(vShipName)%><% Else %><%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  <%=ReplaceOut(UCase(rsOrder("NameLast")))%><% End If %>
Address:   <%=ReplaceOut(UCase(rsOrder("Address1")))%> Address:   <%=UCase(rsOrder("ShipAddress1"))%>
Address:   <%=ReplaceOut(UCase(rsOrder("Address2")))%>
CSZ:   <%=UCase(rsOrder("City"))%>, <%=UCase(rsOrder("State"))%>  <%=UCase(rsOrder("Zip"))%> CSZ:   <%=UCase(rsOrder("ShipCity"))%>, <%=UCase(rsOrder("ShipState"))%>  <%=UCase(rsOrder("ShipZip"))%>
Country:   <%=rsOrder("Country")%> Country:   <%=rsOrder("ShipCountry")%>
Email:   "><%=rsOrder("Email")%> Phone:   <%=rsOrder("Phone")%>
 
<% 'LOOP THROUGH THE ITEMS IN THIS ORDER rsOrder.MoveFirst While Not rsOrder.EOF %> <% 'CREATE RECORDSET TO SHOW ORDER ITEM OPTIONS Dim rsItemOptions, sqlItemOptions Set rsItemOptions = Server.CreateObject ("ADODB.Recordset") if rsOrder("OrderID") < 7216 then %> <% 'sqlItemOptions = "SELECT OrderItems.ProductID, ProductOptions.OptionName, ProductOptionItems.ItemDesc " 'sqlItemOptions = sqlItemOptions & " FROM ProductOptions INNER JOIN (ProductOptionItems INNER JOIN (OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID) ON ProductOptionItems.OptionItemID = cInt(OrderItemOptions.OptionItemID)) ON ProductOptions.OptionID = ProductOptionItems.OptionID " 'sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " 'sqlItemOptions = sqlItemOptions & rsOrder("OrderID") 'sqlItemOptions = sqlItemOptions & " AND OrderItems.ProductID = " 'sqlItemOptions = sqlItemOptions & rsOrder("ProdID") 'sqlItemOptions = sqlItemOptions & ";" sqlItemOptions = "SELECT ProductOptions.OptionName, ProductOptionItems.ItemDesc , OrderItems.ProductID" sqlItemOptions = sqlItemOptions & " FROM ProductOptions INNER JOIN (ProductOptionItems INNER JOIN (OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID) ON ProductOptionItems.OptionItemID = cInt(OrderItemOptions.OptionItemID)) ON ProductOptions.OptionID = ProductOptionItems.OptionID " sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " sqlItemOptions = sqlItemOptions & rsOrder("OrderID") sqlItemOptions = sqlItemOptions & " AND OrderItems.ItemID = " sqlItemOptions = sqlItemOptions & rsOrder("ItemID") sqlItemOptions = sqlItemOptions & ";" else %> <% sqlItemOptions = "SELECT OrderItemOptions.OptionItemID, OrderItems.ProductID" sqlItemOptions = sqlItemOptions & " FROM OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID" sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " sqlItemOptions = sqlItemOptions & rsOrder("OrderID") sqlItemOptions = sqlItemOptions & " AND OrderItems.ItemID = " sqlItemOptions = sqlItemOptions & rsOrder("ItemID") sqlItemOptions = sqlItemOptions & " AND OrderItemOptions.OptionItemID > ''" sqlItemOptions = sqlItemOptions & ";" end if on error resume next rsItemOptions.Open sqlItemOptions, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsItemOptions.EOF THEN While Not rsItemOptions.EOF %> <% if rsOrder("OrderID") < 7216 then %> <%else%> <%end if%> <% 'GO GET THE NEXT ITEM OPTION rsItemOptions.MoveNext Wend rsItemOptions.Close END IF 'GO GET THE NEXT ITEM rsOrder.MoveNext Wend %>
Qty   Item   Each   SubTotal  
<%=rsOrder("QTY")%>  <% if Left(rsOrder("BandName"),1) = "z" then%><%= Mid(rsOrder("BandName"),2)%> <% elseif Right(rsOrder("BandName"),4) = " The" then%><%= Right(rsOrder("BandName"),3)%> <%=left(rsOrder("BandName"),(len(rsOrder("BandName"))-4))%> <%else%><%= rsOrder("BandName")%><%end if%> | <%=ReplaceOut(rsOrder("ProdName"))%>  <%=FormatCurrency(rsOrder("Price"),2)%>  <%=FormatCurrency(rsOrder("Price")*rsOrder("QTY"),2)%> 
     (<%=rsItemOptions("OptionName")%>: <%=ReplaceOut(rsItemOptions("ItemDesc"))%>)     (<%=rsItemOptions("OptionItemID")%>)      
 
    Shipping & Handling:  <%If vShipCharge > 1 Then Response.Write(FormatCurrency(vShipCharge,2)) Else Response.Write("$0.00") END IF%> 
    Tax:  <%If vTax > 0 Then Response.Write(FormatCurrency(vTax,2)) Else Response.Write("$0.00") END IF%> 
    Total:  <%=FormatCurrency(vOrderTotal,2)%> 
 
 
    Card Type:  <%=vCardType%> 
    Card Name:  <%=ReplaceOut(vCardName)%> 
  <%=DecryptIt(vCardNumber)%>Card Number: ************<%=right(DecryptIt(vCardNumber),4)%> <%=vCardNumber%> 
    Card Date:  <%=vCardDate%> 
 
<% ELSE 'WE DID NOT FIND ANYTHING %> No Records Found. <%END IF ELSE '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' OLDER ORDERS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'create recordset to show categories from database 'Dim rsOrder, vDesc, sqlOrder, vShipCharge, vOrderTotal,dateShipped Set rsOrder = Server.CreateObject ("ADODB.Recordset") 'CREATE THE SQL STATEMENT sqlOrder = " SELECT orders.ShipCharge as ShipCharge, orders.OrderTotal as OrderTotal, orders.OrderTax as OrderTax, orders.ccardnumber as CardNumber, orders.CCardExpireDate as CardDate, orders.CCardName as CardName, orders.CCardType as CardType, orders.OrderID as OrderID, orders.CustID as CustID, orders.PromoCode,orders.OrderDate as OrderDate, orders.ShippedDate as dateShip, orders.PromisedShipDate as partialShip, orders.CCTrasactionID as TransID, orders.CCardAddress as AVSCheck, orders.CCResponseReason as ResponseReason, customers.NameFirst as NameFirst, customers.NameLast as NameLast, customers.Address1 as Address1, orders.ShipAddress1 as ShipAddress1, customers.Address2 as Address2, customers.City as City, customers.State as State, customers.Zip as Zip, orders.ShipCity as ShipCity, orders.ShipState as ShipState, orders.ShipZip as ShipZip, customers.Country as Country, orders.ShipCountry as ShipCountry, customers.Email as Email, customers.Phone as Phone, orderitems.QTY as QTY, products.BandName as BandName, products.Name as ProdName, orderitems.Price as Price, [products].[Price]*[orderitems].[QTY]+OrderItems.Shipping AS SubTotal, "_ & "orderitems.ProductID as ProdID, orderitems.ItemID as ItemID, OrderItems.Shipping as Shipping, "_ & " orders.ShipAddress2 as ShipAddress2 "_ & "FROM (categories INNER JOIN products ON categories.CatID = products.CatID) INNER JOIN ((customers INNER JOIN orders ON customers.CustID = orders.CustID) INNER JOIN orderitems ON orders.OrderID = orderitems.OrderID) ON products.ProductID = orderitems.ProductID "_ & "WHERE orders.OrderID = "_ & Request("txtOrderID") 'sqlOrder = "SELECT orders.OrderID as OrderID, orders.ShippedDate as dateShip, orders.CustID as CustID, orders.OrderDate as OrderDate, orders.OrderTax as OrderTax, "_ ' & "orders.CCardType as CardType, orders.ccardnumber as CardNumber, orders.CCardName as CardName, orders.CCardExpireDate as CardDate, "_ ' & "customers.NameFirst as NameFirst, customers.NameLast as NameLast, customers.Email as Email, "_ ' & "customers.Country as Country, customers.Address1 as Address1, customers.Address2 as Address2, customers.City as City, "_ ' & "customers.State as State, customers.Zip as Zip, customers.Phone as Phone, products.BandName as BandName, products.Name as ProdName, "_ ' & "orderitems.Price as Price, orderitems.QTY as QTY, [products].[Price]*[orderitems].[QTY]+OrderItems.Shipping AS SubTotal, "_ ' & "orderitems.ProductID as ProdID, OrderItems.Shipping as Shipping, "_ ' & "orders.ShipAddress1 as ShipAddress1, orders.ShipAddress2 as ShipAddress2, orders.ShipCity as ShipCity, "_ ' & "orders.ShipCharge as ShipCharge, orders.ShipZip as ShipZip, orders.ShipState as ShipState, orders.ShipCountry as ShipCountry, "_ ' & "orders.OrderTotal as OrderTotal "_ ' & "FROM (categories INNER JOIN products ON categories.CatID = products.CatID) INNER JOIN ((customers INNER JOIN orders ON customers.CustID = orders.CustID) INNER JOIN orderitems ON orders.OrderID = orderitems.OrderID) ON products.ProductID = orderitems.ProductID "_ ' & "WHERE orders.OrderID = "_ ' & Request("txtOrderID") rsOrder.Open sqlOrder, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsOrder.EOF THEN 'DIM vCardNumber, vCardDate, vCardName, vCardType, vTax vShipCharge = rsOrder("ShipCharge") vOrderTotal = rsOrder("OrderTotal") vTax = rsOrder("OrderTax") vCardNumber = rsOrder("CardNumber") vCardDate = rsOrder("CardDate") vCardName = rsOrder("CardName") vCardType = rsOrder("CardType") vDesc=Request("txtItemDesc") %>
<% if rsOrder("OrderID") >= "16456" then%> <%else%> <%end if%>
<%=UCase(cName)%> INVOICE

<%=cURL%> 		    ORDER#: <%=rsOrder("OrderID")%>
Customer#: <%=rsOrder("CustID")%>
Order Date: <%=rsOrder("OrderDate")%>
Ship Date: <% if rsOrder("dateShip") = "12/12/2012" then dateShipped="Not Shipped" elseif rsOrder("dateShip") <> "" then dateShipped=rsOrder("dateShip") else dateShipped="Not Shipped" end if %> <%=dateShipped%>
 
 
BILLING ADDRESS:     SHIPPING ADDRESS:    
Name:   <%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  <%=ReplaceOut(UCase(rsOrder("NameLast")))%> Name:   <%=ReplaceOut(UCase(rsOrder("NameFirst")))%>  <%=ReplaceOut(UCase(rsOrder("NameLast")))%>
Address:   <%=ReplaceOut(UCase(rsOrder("Address1")))%> Address:   <%=UCase(rsOrder("ShipAddress1"))%>
Address:   <%=ReplaceOut(UCase(rsOrder("Address2")))%> Address:   <%=UCase(rsOrder("ShipAddress2"))%>
CSZ:   <%=UCase(rsOrder("City"))%>, <%=UCase(rsOrder("State"))%>  <%=UCase(rsOrder("Zip"))%> CSZ:   <%=UCase(rsOrder("ShipCity"))%>, <%=UCase(rsOrder("ShipState"))%>  <%=UCase(rsOrder("ShipZip"))%>
Country:   <%=rsOrder("Country")%> Country:   <%=rsOrder("ShipCountry")%>
Email:   "><%=rsOrder("Email")%> Phone:   <%=rsOrder("Phone")%>
 
<% 'LOOP THROUGH THE ITEMS IN THIS ORDER rsOrder.MoveFirst While Not rsOrder.EOF %> <% 'CREATE RECORDSET TO SHOW ORDER ITEM OPTIONS 'Dim rsItemOptions, sqlItemOptions Set rsItemOptions = Server.CreateObject ("ADODB.Recordset") if rsOrder("OrderID") < 7216 then %> <% 'sqlItemOptions = "SELECT OrderItems.ProductID, ProductOptions.OptionName, ProductOptionItems.ItemDesc " 'sqlItemOptions = sqlItemOptions & " FROM ProductOptions INNER JOIN (ProductOptionItems INNER JOIN (OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID) ON ProductOptionItems.OptionItemID = cInt(OrderItemOptions.OptionItemID)) ON ProductOptions.OptionID = ProductOptionItems.OptionID " 'sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " 'sqlItemOptions = sqlItemOptions & rsOrder("OrderID") 'sqlItemOptions = sqlItemOptions & " AND OrderItems.ProductID = " 'sqlItemOptions = sqlItemOptions & rsOrder("ProdID") 'sqlItemOptions = sqlItemOptions & ";" sqlItemOptions = "SELECT ProductOptions.OptionName, ProductOptionItems.ItemDesc, OrderItems.ProductID " sqlItemOptions = sqlItemOptions & " FROM ProductOptions INNER JOIN (ProductOptionItems INNER JOIN (OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID) ON ProductOptionItems.OptionItemID = cInt(OrderItemOptions.OptionItemID)) ON ProductOptions.OptionID = ProductOptionItems.OptionID " sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " sqlItemOptions = sqlItemOptions & rsOrder("OrderID") sqlItemOptions = sqlItemOptions & " AND OrderItems.ProductID = " sqlItemOptions = sqlItemOptions & rsOrder("ProdID") sqlItemOptions = sqlItemOptions & ";" else %> <% sqlItemOptions = "SELECT OrderItemOptions.OptionItemID, OrderItems.ProductID" sqlItemOptions = sqlItemOptions & " FROM OrderItems INNER JOIN OrderItemOptions ON OrderItems.ItemID = OrderItemOptions.ItemID" sqlItemOptions = sqlItemOptions & " WHERE OrderItems.OrderID = " sqlItemOptions = sqlItemOptions & rsOrder("OrderID") sqlItemOptions = sqlItemOptions & " AND OrderItems.ProductID = " sqlItemOptions = sqlItemOptions & rsOrder("ProdID") sqlItemOptions = sqlItemOptions & " AND OrderItemOptions.OptionItemID > ''" sqlItemOptions = sqlItemOptions & ";" end if on error resume next rsItemOptions.Open sqlItemOptions, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsItemOptions.EOF THEN While Not rsItemOptions.EOF %> <% if rsOrder("OrderID") < 7216 then %> <%else%> <%end if%> <% 'GO GET THE NEXT ITEM OPTION rsItemOptions.MoveNext Wend rsItemOptions.Close END IF 'GO GET THE NEXT ITEM rsOrder.MoveNext Wend %>
Qty   Item   Each   Shipping   SubTotal  
<%=rsOrder("QTY")%>  <% if Left(rsOrder("BandName"),1) = "z" then%><%= Mid(rsOrder("BandName"),2)%> <% elseif Right(rsOrder("BandName"),4) = " The" then%><%= Right(rsOrder("BandName"),3)%> <%=left(rsOrder("BandName"),(len(rsOrder("BandName"))-4))%> <%else%><%= rsOrder("BandName")%><%end if%> | <%=ReplaceOut(rsOrder("ProdName"))%>  <%=FormatCurrency(rsOrder("Price"),2)%>  <%=FormatCurrency(rsOrder("Shipping"),2)%>  <%=FormatCurrency(rsOrder("SubTotal"),2)%> 
     (<%=rsItemOptions("OptionName")%>: <%=ReplaceOut(rsItemOptions("ItemDesc"))%>)     (<%=rsItemOptions("OptionItemID")%>)      
 
    Shipping:  <%If vShipCharge > 1 Then Response.Write(FormatCurrency(vShipCharge,2)) Else Response.Write("$0.00") END IF%> 
    Tax:  <%If vTax > 0 Then Response.Write(FormatCurrency(vTax,2)) Else Response.Write("$0.00") END IF%> 
    Total:  <%=FormatCurrency(vOrderTotal,2)%> 
 
 
    Card Type:  <%=vCardType%> 
    Card Name:  <%=ReplaceOut(vCardName)%> 
    Card Number: <%=DecryptIt(vCardNumber)%><%=right(DecryptIt(vCardNumber),4)%> <%=vCardNumber%>************<%=right(vCardNumber,4)%> 
    Card Date:  <%=vCardDate%> 
 
<% ELSE 'WE DID NOT FIND ANYTHING %> No Records Found. <%END IF END IF %> <% 'CLOSE AND CLEAN UP rsOrder.close set rsOrder=nothing dbc.Close set dbc=nothing %>