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 %>