<%@ 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 Shopping" 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
To remove an item, set the quantity to zero and press Update.
<% 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