<% ' Get Variables customer = TRIM(Request ("customer")) firstname = TRIM(Request ("firstn")) lastname = TRIM(Request ("lastn")) 'This is so a user can access there invoice without login in If NOT customer = "" THEN userID = customer username = firstname End If ' Open the Database Connection Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "webcaddy" %> Order Confirmation and Status <% ' Retrieve Orders sqlString = "SELECT * " &_ " FROM (orders INNER JOIN (users INNER JOIN ship ON users.user_id = ship.ship_userID) " &_ " ON orders.order_shipID = ship.ship_shipID) " &_ " INNER JOIN Products ON orders.order_productID = Products.product_id " &_ " WHERE (((users.user_id)= " & userID & " )) " &_ " ORDER BY ship.ship_shipID , orders.order_productID DESC" IF session( "iDebugLevel" ) > 0 THEN %> Session Debug Level Set to:<%=session( "iDebugLevel" )%>
sqlString: <%=sqlstring%>
<%END IF%> <% SET RS = Server.CreateObject( "ADODB.Recordset" ) RS.CursorType = adOpenStatic RS.ActiveConnection = Con RS.Open sqlString username = TRIM( Request ( "username" ) ) %>
<%If customer = "" THEN%> Order Confirmation and Status for: <%=username%> <%End If%>

Print for Invoice
<% IF RS.EOF THEN %>

 

No ACTIVE Orders at this time 

<%END IF WHILE NOT RS.EOF %> <%IF session( "iDebugLevel" ) > 0 THEN %> Session Debug Level Set to: <%=session( "iDebugLevel" )%>
User ID: <%=userID%>
username: <%=username%>
firstname: <%=RS( "user_firstname" )%>
lastname: <%=RS( "user_lastname" )%>
discount: <%=RS( "user_discount" )%>
username cookie: <%=Request ( "username")%>
password: <%=password%>
email: <%=email%>
error: <%=error%>
register: <%=register%>
login: <%=login%>
Status Code Test 3: <%=shipmentStatus(3)%>
shipStatus = <%=RS( "ship_status")%>
shipCharge = <%=RS( "ship_charge")%>
paymentMethod = <%=RS( "ship_paymethod" )%>
shipPayment = <%=RS( "ship_payment")%>
shipPayDate = <%=RS( "ship_paydate")%>
<%FOR EACH cookie IN request.Cookies Response.Write cookie & " - " & Request ( cookie ) & "
" NEXT%> <%END IF%>

Name: <%=RS( "user_username" )%>  Address:
Order Date: <%=RS( "order_entrydate" )%>  <%=RS( "user_username" )%>
<%=RS( "user_street" )%>
<%=RS( "user_city" )%> , <%=RS( "user_State" )%> <%=RS( "user_zip" )%>
<%=RS( "user_country" )%>
Pay Date: <% IF isDATE( RS( "ship_paydate" ) ) THEN %> <%=RS( "ship_paydate" )%> <% ELSE %>NOT Payed<% END IF %>
Ship Date: <% IF isDATE( RS( "ship_shipped" ) ) THEN %> <%=RS( "ship_shipped" )%> <% ELSE %>NOT Shipped<% END IF %>
 Email: <%=RS( "user_email" )%> 
STATUS: <%=shipmentStatus(RS( "ship_status"))%> 
<%currentShipment=RS( "ship_shipID" ) orderTotal=0 nextShipment = "FALSE" shipStatus = RS( "ship_status") shipCharge = RS( "ship_charge") payment = RS( "ship_payment" ) paymentMethod = RS( "ship_paymethod" ) shipPayment = RS( "ship_payment") shipNotes = RS( "ship_notes") shipPayDate = RS( "ship_paydate")%> <%first_name = RS( "user_firstname") last_name = RS( "user_lastname") address1 = RS( "user_street") address2 = "" city = RS( "user_city") state = RS( "user_state") zip = RS( "user_zip") discount = RS( "user_discount") %> <%WHILE NOT RS.EOF AND nextShipment = "FALSE" %> <%IF currentShipment = RS( "ship_shipID" ) THEN %> <%orderTotal = orderTotal + ( RS( "order_quantity" ) * RS( "order_price" ) ) RS.MoveNext ELSE nextShipment = "TRUE" END IF WEND discountAmount = orderTotal * discount / 100 orderTotal = orderTotal + charge - discountAmount balance = orderTotal - payment %> <%If discount > 0 then%> <%end if%>
Product: Qty Price Total
<%=RS( "product_name" )%>  <%=RS( "order_quantity" )%>  <%=FormatCurrency( RS( "product_price" ) )%>  <%=FormatCurrency( RS( "order_quantity" ) * RS( "order_price" ) )%> 
Discount % <%=discount%>  Discount <%=FormatCurrency( discountAmount)%> 
Payment Method: <% If balance <= 0 THEN %> Thanks for Payment via <%=paymentMethod%> <%ELSE%> <%IF paymentMethod = "PayPal" THEN %>

> Click Logo to make Payment

<%ELSE%> <%IF paymentMethod = "BillPoint" THEN %> A Bill Point Invoice will be emailed to you shortly <%ELSE%> Please print this page Then mail with your check to address below. <%END IF%> <%END IF%> <%END IF%> 		Shipping: <%=FormatCurrency( shipCharge)%>  
Total: <%=FormatCurrency( orderTotal)%> 
  Payment <%=FormatCurrency( payment )%> 
Balance <%=FormatCurrency( balance )%> 

Shipping Notes: <%=shipNotes%>


<%If NOT customer = "" THEN%>
Thanks for ordering from us. We hope you enjoy using our products

Regards,
Steven
<%Else IF paymentMethod = "Check" THEN %>

Mail Check to:

    Mogg Adapter
    P.O. Box 594
    Kaysville UT 84037
    USA

    Email: Steven@webcaddy.com.au <%END IF%> <%End If%> <%WEND%>