<% ProductCat=request("ProductCat") Set PR=server.createobject("ADODB.recordset") SQL="SELECT * FROM Products WHERE ProductID="&Request("ProductID") PR.open SQL, conn, adOpenStatic, adLockreadonly if len(trim(session("ProductIDString"))) > 0 then idarray=SPLIT(session("ProductIDString"),"@") prodarray=SPLIT(session("ProductString"),"@") sizearray=SPLIT(session("SizeString"),"@") pricearray=SPLIT(session("PriceString"),"@") qtyarray=SPLIT(session("QtyString"),"@") end if OrderTotal=0 if PR("status")="Private" then returnURL="LCProducts.asp" else returnURL="Products.asp" end if %> Flex Building - Orders <% ' Display existing order %>
Add The Following Item To Your Order
Product
Product Name
ProductSize
Price
Order Qty
" border="0" alt="">
<%=PR("ProductName")%>
<%=PR("ProductSize")%>
$<%=formatnumber(PR("ProductPrice"),2)%>
<%=PR("ProductDesc")%>
">
RETURN to Catalogue
<% if LEN(session("ProductIDString")) > 0 then for x= 0 to UBOUND(idarray)%> <% Ordertotal=OrderTotal+pricearray(x)*qtyarray(x) NEXT%> <% else %> <%end if %>
Items In Your Current Order
All prices are shown in US$
 
Product Name
ProductSize
Price
Order Qty
Price
Delete This Item
<%=prodarray(x)%>
<%=sizearray(x)%>
$<%=formatnumber(pricearray(x),2)%>
<%=qtyarray(x)%>
$<%=formatnumber(pricearray(x)*qtyarray(x),2)%>
Order Sub Total:
$<%=formatnumber(OrderTotal,2)%>
Shipping:
$<%=formatnumber(ROUND(OrderTotal*.1,2),2)%>
Order Total:
$<%=formatnumber(OrderTotal+ROUND(OrderTotal*.1,2),2)%>
You currently have no items in your order