<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "51, 106" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'EMPTY THE BASKET 'This page just empties the basket, it does this 'by setting the strings of items and qty in the 'basket cookie to nothing. '----------------------------------------------- If len(Request.querystring("btnNo"))>0 then Response.redirect("basket.asp?V_ID=refresh") response.cookies(Application(LICENSENUMBER & "cookiename"))("numItemCount") = 0 response.cookies(Application(LICENSENUMBER & "cookiename"))("strItems") = "" response.cookies(Application(LICENSENUMBER & "cookiename"))("strQuantities") = "" numItemCount = 0 strItems = "" strQuantities = "" '----------------------------------------------- 'FOR THE SAME REASON AS BASKET.ASP... 'Buildpage.asp must go after the processing part 'of the script on pages where the basket content 'is altered. '----------------------------------------------- %> <% '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% WriteString("PageTitle_ShoppingBasket") %>

<% WriteString("ContentText_BasketEmptied") %>

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>