<% 'stop 'bill 2/23/2002 'Response.Buffer = true 'Response.Clear 'Response.ExpiresAbsolute = date() - 100 gref = request("HTTP_REFERER") ' Response.write (gref) if gref <> "" then session("cj_ref") = gref session("cj_ref_last") = gref else session("cj_ref_last") = "" end if OpenDbConnection iSessionID = Session.SessionID 'wjm - used by common.inc-culcDiscount Set cmdTemp = Server.CreateObject("ADODB.Command") Set cmdTemp_cj = Server.CreateObject("ADODB.Command") Set RSSessionCart_cj = Server.CreateObject("ADODB.Recordset") s = "SELECT Items.*, TempOrderDetails.SessionID, " s = s & " TempOrderDetails.Date, TempOrderDetails.Completed, " s = s & " TempOrderDetails.Quantity " s = s & " FROM Items " s = s & " INNER JOIN TempOrderDetails ON (Items.ItemID = TempOrderDetails.ItemID) " s = s & " WHERE (TempOrderDetails.SessionID=" & iSessionID s = s & " and TempOrderDetails.Completed = False)" cmdTemp_cj.CommandText = s 'response.write s cmdTemp_cj.CommandType = 1 cmdTemp_cj.ActiveConnection = DataConn1 RSSessionCart_cj.Open cmdTemp_cj, , 0, 1 ' Msg for no records IF RSSessionCart_cj.EOF and RSSessionCart_cj.BOF Then %>

 

Your Shopping Cart is Empty.

<% ELSE Do While Not RSSessionCart_cj.EOF ItemTotalPrice = (RSSessionCart_cj("Quantity") * RSSessionCart_cj("Price")) SubTotal = SubTotal + ItemTotalPrice Discount = Discount + culcDiscount(RSSessionCart_cj("ItemID")) RSSessionCart_cj.MoveNext Loop ' Calculate discount, total Discount = Discount + culcTotalDiscount(SubTotal) Total = SubTotal - Discount %>

Shopping Cart Items       

<% if Application("ColorON") = true then %> <% end if %> <% RSSessionCart_cj.MoveFirst Do While Not RSSessionCart_cj.EOF %> <% if Application("ColorON") = true then %> <% end if %> <% ItemTotalPrice = (RSSessionCart_cj("Quantity") * RSSessionCart_cj("Price")) %> <% RSSessionCart_cj.MoveNext Loop RSSessionCart_cj.Close CloseDbConnection %> <% if Application("ColorON") = true then %> <% end if %> <% if Application("DiscountON") = true then %> <% end if %>
Item FormatColorQty. Unit Total

    , 'no')">

<%= RSSessionCart_cj("Artist")%>    <%= RSSessionCart_cj("Album")%> <%= RSSessionCart_cj("Format")%> <%= RSSessionCart_cj("Option")%> " value="<%= RSSessionCart_cj("Quantity")%>"> $ <%= FormatNumber(RSSessionCart_cj("Price"),2) %> $<%= FormatNumber(ItemTotalPrice,2) %>
Sub Total: $<%= FormatNumber(SubTotal,2) %>
Discount (if Applicable): -$<%= FormatNumber(Discount,2) %>
New Sub Total: $ <%= FormatNumber(Total,2)%>

Click here to update totals after changing quantity:



Secure Checkout.    
This checkout uses industry standard SSL (secure socket layer encryption).

<%END IF%>