<%@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 %>There line 41 is the last line (I don't show the actual form output, since it's unrelevant here).