><%@language=vbscript ><%option explicit ><!-- #include file = "SetConnections.asp" --> ><!-- #include file = "ShoppingCartFunctions.asp" --> ><html> ><head> ><title>View Cart Content</title> ><!-- #include file = "selections.js" --> ></head> ><body bgcolor="#ffffff"> ><!-- #include file = "DynamicMenu.html" --> ><% >Dim CartID >CartID = RetrieveCartID() ' Calling function from ShoppingCartFunctions >if CartID = "" then > Response.write " <font color = red>Cart is empty!</font>" > Response.end() >end if > >dim strConn >strConn = GetShoppingCartStrConn() >dim ListOfCodes >ListOfCodes = Request.form("Selection") > >if not IsEmpty(ListOfCodes) then > DeleteFromCartContent ListOfCodes 'Invoke a function from ShoppigCartFunctions >end if > >dim strSQL, I, records, rs1, dbConn > >records = request.QueryString("records") >Call OpenRS(rs1,dbConn, strConn) > >rs1.PageSize = 12 >rs1.CacheSize = 300 >rs1.CursorLocation = adUseClient > >strSQL = "select CartContentID, CartContent.CreditCategory, DescriptionText, CategoryDescr, NumOfRecords, Price*NumOfRecords as Amount from CartContent inner Join PriceInfo " &_ > "on CartContent.CreditCategory = Price.Info.CreditCategory where CartID = " & CartID & " order by CartContent.CreditCategory, DescriptionText" > >rs1.Open strSQL, strConn, adOpenForwardOnly, adLockReadOnly, adCmdText >>