<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Response.Expires = 60 Response.Expiresabsolute=Now()-2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Dim currentoptionGroupID Dim currentoptionGroupType Dim optionprice Dim optionGroupCount Dim priceAdjustment Dim resumeNegative2 optionGroupCount = 0 returnPage = request.queryString("rp") %>

View Cart <% loadCart() if ds.bof OR ds.eof then session("noItemsInCart") = 0 %>No items are currently in your shopping cart.<% if returnPage<>"" then %> Resume shopping.<% end if %><% else %>  Below are the items in your shopping Cart. You can remove items, change quantities, resume shopping, or checkout. If you change quantities, please click Update. <% cartTotal = 0 k = 1 do until ds.eof if ds("productID") <> 0 then k = k + 1 if k > 2 then k = 1 %> "> "> "> <% cartTotal = cartTotal + vc_subTotal 'end if end if ' productID <> 0 ds.movenext loop %> Product Qty Price Sub Total   <% if isNull(ds("productName")) then 'the product has been removed send "Product currently not available" else send "" & ds("productName") & "" end if %> <% =ds("shortDescription") %><% if ds("optionID")=-100 then %>  Electronic Download<% end if %><% priceAdjustment = 0 if not isNull(ds("productName")) then Set ds2 = Server.CreateObject("ADODB.Recordset") SQLQuery = "SELECT tblProductOptionGroups.optionGroupCaption, tblProductOptionGroups.optionGroupType, tblProductOptions.optionCaption, tblCartSessionsproducts_ProductOptions.textValue, tblCartSessionsproducts_ProductOptions.optionPrice FROM tblCartSessionsproducts_ProductOptions INNER JOIN (tblProductOptions INNER JOIN tblProductOptionGroups ON tblProductOptions.optionGroupID = tblProductOptionGroups.optionGroupID) ON tblCartSessionsproducts_ProductOptions.optionID = tblProductOptions.optionID WHERE (((tblCartSessionsproducts_ProductOptions.cartSession_Product_ID)=" & ds("ID") & "));" Set ds2 = objConn.Execute(SQLQuery) if not ds2.EOF and not ds2.BOF then Dim optionCount optionCount = 0 %> <% Do while not ds2.EOF if optionCount > 0 then %> <% end if if cStr(ds2("optionGroupType")) = "text" then %><% =ds2("optionCaption") %>: <% %><% =Maxlength(CStr(ds2("textValue")), 35) %><% else %><% =ds2("optionGroupCaption") %>: <% %><% =ds2("optionCaption") %><% end if priceAdjustment = priceAdjustment + ds2("optionprice") optionCount = optionCount + 1 ds2.MoveNext Loop end if ds2.Close Set ds2 = Nothing end if if not isNumberValid(priceAdjustment) then priceAdjustment = 0 %> <% if ds("productID") <> -50 then %>0<% else %><% =ds("quantity") %><% end if %>" size=4 maxlength=3><% else %><% =ds("quantity") %><% end if %> <% if ds("productID") =-50 then send formatCurr(ds("initialAmount"), 2) vc_subTotal = ds("initialAmount")*ds("quantity") else if isNull(ds("productName")) then send("-") else send formatCurr((ds("productPrice")+priceAdjustment), 2) vc_subTotal = (ds("productPrice")+priceAdjustment)*ds("quantity") end if end if %> <% =formatCurr(vc_subTotal, 2) %> <% if Not ds("productID") =-50 and not isNull(ds("productName")) then %><% end if %> Order Total <% =formatCurr(cartTotal, 2) %> <% if returnPage<>"" then %><% end if %> <% end if ' ds.bof OR ds.eof ds.close set ds = nothing objConn.close %>

<% ' ERROR REPORTING - DON'T REMOVE! if dMode <> true AND err.number <> 0 then j = lookupPageName for i = 0 to err.Count reportError err.number, err.description, err.source, j next 'i end if %>