Sabrinas Beauty Supply!

Precios

<% 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 %>
Revise su Pedido

Por favor, revise su pedido para estar seguro que todo esta correcto, utilize el boton actualizar order si desea quitar algun producto de su pedido. Solamente pongo cero en la cantidad y eso sera todo.

<% 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. Nombre del Producto Precio Total
<%= strProdName %> $<%= formatNumber(intProdPrice, 2) %> $<%= formatNumber((intQuant * intProdPrice), 2) %>
Total: $<%= formatNumber(intTotal,2) %>

<% end if Conn.Close set Conn = Nothing %>