<%@ LANGUAGE="VBScript.Encode" %> <% coupon = FGETVar("coupon","","s") 'READ STUFF From Database Dim objSimpleAdo, rstRS, SQLStmt SQLStmt = "SELECT * From item " SQLStmt = SQLStmt & "WHERE [Orderid] =" & Order & "; " Set SimpleAdo = New CSimpleAdo SimpleAdo.setConnectionString = Session("ConnectionString") Set RS = SimpleAdo.getRecordSet(SQLStmt) 'Do stuff with the record set 'Initialize variables for this application thedate = Cstr(Date) 'get the date thetime = Cstr(Time) 'get the time subtotal = 0 'the subtotal for a row of items subweight = 0 'the subweight for a row of items subsize = 0 'the subsize for a row of items subquantity = 0 'the subquantity for a row of items subship = 0 'the subshipping for a row of items subhand = 0 'the subhandling for a row of items %> View Order Contents

Home  

 

 
<% CurrentRecord = 0 Do While CheckRS(RS) If CurrentRecord = 0 Then %>
<% End If ThisComment = "Comment_" & RS("Control") %> "> <% 'Calculate the individual totals for a row subweight = subweight + (RS("Quantity") * RS("Weight")) subsize = subsize + (RS("Quantity") * RS("Size")) subtotal = (RS("Quantity") * RS("Price")) subquantity = subquantity + RS("Quantity") subship = subship + (RS("Quantity") * RS("ExtraShip")) subhand = subhand + (RS("Quantity") * RS("ExtraHand")) total = MyCurrency (CCur(subtotal)) grandtotal = grandtotal + subtotal %> <% If IsEmpty(RS("Upsell")) Or RS("Upsell") = "" Then strdisplay = "" Response.write(strdisplay) Else strdisplay = "" Response.write(strdisplay) End If %> <%If RS("RequireSKU") <> "None" and RS("RequireSKU") <> "" Then %>
<% End If RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %> <%'do whole order discount here 'Dim discountarray(4) Set DiscountObj = New CDiscountObj discountarray = DiscountObj.wholeDiscount (grandtotal) Set DiscountObj = Nothing 'Next do COUPON DISCOUNTS If Session("ChkCoupons") > 0 then 'Dim discountarray(4) Set DiscountObj = New CDiscountObj discountarray = DiscountObj.couponDiscount (discountarray,coupon) Set DiscountObj = Nothing End If %>
<%'COUPON DISCOUNTS Box If Session("ChkCoupons") > 0 then %> <% End If %> <%' order button starts here%> <% if currentrecord > 0 then%>
<%end if%>
ACTION DESCRIPTION ITEM No. QTY EACH TOTAL TAXED?
">
<%= RS("Description") %>
Comments:
" style="font-family: Arial; color: #000000; font-size: 10pt">
Please click Add/Change after you've added your  comment or changed your quantity
<%= RS("Item") %> " style="font-family: Arial; color: #000000; font-size: 10pt"> <%= MyCurrency (CCur(RS("Price")))%> <% ' Do item Discount If RS("Price") <> 0 Then If RS("Price")/RS("RawPrice") <> 1 Then itemdiscount = 100-(RS("Price")/RS("RawPrice") * 100) strdisplay = " (" & Round(itemdiscount,2) & "% off)" Response.write(strdisplay) End If End If %> <%= total%> <%= RS("Taxed") %>" strdisplay = strdisplay & "" strdisplay = strdisplay & "" strdisplay = strdisplay & "
YOUR ORDER TOTAL:  <% If discountarray(0) = 1 Then Response.write("(Total was " & MyCurrency (CCur(discountarray(1))) & " Discount of " & Round(discountarray(3),2) & "% Applied)") End IF %> <%= MyCurrency (CCur(discountarray(2)))%> 

Enter Coupon Code for Discount:

">


Next Step - Shipping Method

Attention Returning customers!
Press the Previous Customers button to retrieve your previous customer order information.

 

<% If CurrentRecord = 0 Then %>

Sorry, you have no Items in your Shopping Cart !
If you continue to experience problems please
call in your order - 603-497-2281

">

<% Else %>

<% End If %>


ORDER LOGISTICS

Total Weight:  <%= subweight%> lbs. Total Size: <%= subsize%> cu. inches Total Amount: <%= MyCurrency (CCur(discountarray(2)))%>
Order ID:  <%= Order%>

Date:  <%= thedate%>

Time:  <%= thetime%>

     
Phone 603-497-2281
Fax:
603-497-3783
SPAM Prevention - Please type in this email address
Address: 
61 Peppermint St.
Goffstown, NH 03045
All Prices are US dollars
Copyright 2003-2014   DieselManor, Inc.    All Rights Reserved.
<% Session("CheckoutSubtotal") = (discountarray(2)) Set SimpleAdo = Nothing Set RS = Nothing %>