<% call connect() %> <% session_ID = session.SessionID if Session("discount_value")>0 then sql = "SELECT a.* FROM cart a, products b WHERE a.productid=b.id and b.isPromotion='Y' and a.sessionID='" & session_ID & "'" set rsdiscount = server.createobject("ADODB.recordset") rsdiscount.open sql, cnn do until rsdiscount.EOF cartID = rsdiscount("id") sql_update = "UPDATE cart SET discount ='" & Session("discount_value") & "' WHERE id ='" & cartID & "' and sessionID='" & session_ID & "'" cnn.Execute sql_update, recaffected rsdiscount.movenext loop rsdiscount.close end if sql = "SELECT C.*,P.title,Cat.categoryname FROM cart C, Products P , Product_Category Cat where C.productid=P.id and P.categoryid=Cat.id and sessionid=" & session.sessionid set rs_cart=cnn.execute(sql) discountflag=Request.QueryString("discountflag") %>

1 View Cart 2 Billing Information 3 Shipping Method 4 Order Details 5 Payment Information 6 Order Completed <% If session("memid")="" Then %> <% End If %> View Cart <% do while not rs_cart.eof disflg="" if rs_cart("discount")<>0 then discountprice=rs_cart("price")- (rs_cart("price") * rs_cart("discount")) disflg="Y" else discountprice=rs_cart("price") disflg="" end if %> <% totprice=discountprice*rs_cart("Qty")%> <% total=total+ totprice rs_cart.movenext loop %> Category Product Name Unit Price Qty Subtotal   <%= StrReplace(rs_cart("categoryname")) %> <%= StrReplace(rs_cart("title")) %> $<%= rs_cart("price") %> " type="text" id="Qty_<%= StrReplace(rs_cart("id")) %>" size="1" maxlength="3" value="<%= StrReplace(rs_cart("Qty")) %>" /> $ <%if disflg="Y" then%> <%= Formatnumber(totprice,2) %> <%else%> <%= Formatnumber(totprice,2) %> <%end if%> ">remove             Total: $<%= Formatnumber(total,2) %> <% If session("memid")<>"" and cdbl(total)<>0 Then %> ">      <% End If %>       Coupon Information (Optional) Enter your coupon below and click "Submit".     Checkout   If you already have an account, please login on the left hand side. For first time customers who wish to have an account, please register. For customers who wish to process an order without signing up for an account, ">please proceed.

<%if (discountflag="N") Then%> <%end if%>