<% dim num1, num2, source source = request.querystring("source") num1 = request.querystring("num1") num2 = request.querystring("num2") 'THIS PAGE DISPLAYS A CUSTOMER ORDER 'IF THERE IS NO ORDER ID SEND THEM TO THE MAIN ADMIN PAGE 'create recordset to show categories from database Dim rsOrder, vDesc, sqlOrder, vShipCharge, vOrderTotal,dateShipped, rsOrderID, sqlStmt Set rsOrderID = Server.CreateObject ("ADODB.Recordset") sqlStmt = "SELECT orders.OrderID FROM orders WHERE (orders.OrderID >= "& num1 &" AND orders.OrderID <= "& num2 &") AND " if source = "VM" then sqlStmt = sqlstmt & "(orders.CCardType = 'Visa' OR orders.CCardType = 'Mastercard') AND ((orders.CCResponseCode) IS NULL OR (orders.CCResponseCode) = '1')" elseif source = "PP" then sqlStmt = sqlstmt & "(orders.CCardType = 'paypal')" elseif source = "CM" then sqlStmt = sqlstmt & "(orders.CCardType = 'Check' OR orders.CCardType = 'MoneyOrder')" end if rsOrderID.Open sqlStmt, dbc, adOpenForwardOnly,adLockReadOnly If not rsOrderID.EOF then while not rsOrderID.EOF 'Start Writing First Order HERE Set rsOrder = Server.CreateObject ("ADODB.Recordset") 'CREATE THE SQL STATEMENT 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.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 = "_ & rsOrderID("OrderID") 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") %>

<%=UCase(cName)%> INVOICE http://www.drivethrurecords.com     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"))%> 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") 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 = 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 & ";" rsItemOptions.Open sqlItemOptions, dbc, adOpenForwardOnly,adLockReadOnly IF NOT rsItemOptions.EOF THEN While Not rsItemOptions.EOF %> <% '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)%>        (<%=ReplaceOut(rsItemOptions("OptionName"))%>: <%=ReplaceOut(rsItemOptions("ItemDesc"))%>)              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:  <%=vCardNumber%>      Card Date:  <%=vCardDate%>

<%END IF%> <% 'ORDER WRITING ENDS HERE rsOrderID.movenext rsOrder.close set rsOrder=nothing wend %> <% 'CLOSE AND CLEAN UP dbc.Close set dbc=nothing 'added by me end if %>