<%@ Language=VBScript %> <% pageTitle = "Review Order" %> <% '****************************************************** ' '****************************************************** %> Sabrinas Beauty Supply!


 
<% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString if cstr(Session("orderID")) = "" then Response.Write "
" Response.Write "

" Response.Write "There is no current order." & "
" Response.Write "If you had previously added items to your order, " Response.Write "your session may have timed out.

" Response.Write "Continue shop/Italianping" Response.Write "

" Response.Write "
" else intOrderID = cstr(Session("orderID")) sqlText = "select products.productID, productName, " _ & "productPrice, quantity from products, " _ & "itemsOrdered where " _ & "products.productID = itemsOrdered.productID "_ & "and itemsOrdered.orderID = " & intOrderID %>

Review Your Order

Please review your order to be certain it is correct. To remove an item, set the quantity to zero and press Update Order button.

<% set rsReview = Conn.Execute(sqlText) while not rsReview.EOF intProdID = rsReview("productID") strProdName = rsReview("productName") intProdPrice = rsReview("productPrice") intQuant = rsReview("quantity") intTotal = intTotal + (intQuant * intProdPrice) %> <% rsReview.MoveNext wend rsReview.Close set rsReview = Nothing %>
Qty. Product Name  Price Total
 <%= strProdName %> $<%= formatNumber(intProdPrice, 2) %> $<%= formatNumber((intQuant * intProdPrice), 2) %>
Total: $<%= formatNumber(intTotal,2) %>

 
<% end if Conn.Close set Conn = Nothing %>
English
Español
Korean
French
Italian
Shipping
New Arrivals
Terms
Deals
Returns
Best Sellers
Prices
Clearance