<%@ Language=VBScript %> Old Havana Foods | Shopping Cart | Authentic Cuban Black Beans, Black Bean Dip, and Chili Cubano

Shopping cart

VIEW YOUR CART

Please review your order to be certain it is correct. Revise the quantity for any item to the desired number and press the Update Order button.

<% 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")) ' revert to & "productPrice, quantity from products, " _ sqlText = "select products.productID, productName, " _ & "salePrice, quantity from products, " _ & "itemsOrdered where " _ & "products.productID = itemsOrdered.productID "_ & "and itemsOrdered.orderID = " & intOrderID %>
<% set rsReview = Conn.Execute(sqlText) while not rsReview.EOF intProdID = rsReview("productID") strProdName = rsReview("productName") ' intProdPrice = rsReview("productPrice") intProdPrice = rsReview("salePrice") intQuant = rsReview("quantity") intTotal = intTotal + (intQuant * intProdPrice) %> <% rsReview.MoveNext wend rsReview.Close set rsReview = Nothing %>

QUANTITY

ITEM

UNIT PRICE

EXTENDED PRICE
<%= strProdName %> $<%= formatNumber(intProdPrice, 2) %> $<%= formatNumber((intQuant * intProdPrice), 2) %>

TOTAL

$<%= formatNumber(intTotal,2) %>
<% end if Conn.Close set Conn = Nothing %>