<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "14, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 243, 291, 293" %> <% '----------------------------------------------- 'SET PAGETITLE TAG '----------------------------------------------- strPageTitleHTML = GetString("PageTitle_SaveRecoverBasketContents") & " | " & GetString("Config_Webshopname") %> <% '=============================================== ' 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. '=============================================== '----------------------------------------------- 'SAVE/RECOVER BASKET 'This feature lets potential customers compile 'an order and save it for recovery later. This 'is useful if a user has one or more regular 'orders they like to make, or if they need to 'return at a later date. Although the standard 'cookie basket will store items until the next 'visit, this only works if the user accesses 'from the same machine and hasn't cleared their 'caches. '----------------------------------------------- strCallMode = request.querystring("strCallMode") BSKT_Name = request.querystring("BSKT_Name") BSKT_Email = request.querystring("BSKT_Email") '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% If strCallMode<>"" then %> <% end if %> <% If strCallMode = "save" then %> <% elseif strCallMode = "recover" then %> <% else %> <% end if %> <% If strCallMode = "save" then %> <% elseif strCallMode = "recover" then %> <% else %> <% end if %> <% If strCallMode = "save" then %> <% elseif strCallMode = "recover" OR numItemCount = 0 then %> <% else %> <% end if %>

<% WriteString("PageTitle_SaveCurrentBasketContents") %>

<% WriteString("PageTitle_RecoverBasketContents") %>

<% WriteString("PageTitle_SaveRecoverBasketContents") %>

<% WriteString("ContentText_SaveRecoverBasketContentsDesc") %> <% WriteString("ContentText_SaveRecoverBasketContentsDesc2") %>

<% '----------------------------------------------- 'RETURNED BECAUSE BASKET ALREADY EXISTS '----------------------------------------------- if request.querystring("strProblem")="exists" then %> <% WriteString("ContentText_EmailAddressHasAccount") %> - <% WriteString("ContentText_EmailAddressHasAccountDesc") %> <% end if '----------------------------------------------- 'RETURNED BECAUSE COUNTRY NOT SELECTED '----------------------------------------------- if request.querystring("strProblem")="notfound" then %> <% WriteString("ContentText_NotFound") %> - <% WriteString("ContentText_SavedBasketNotFound") %> <% end if '----------------------------------------------- 'EMAIL AND CUSTOMER CODE COMBINATION NOT FOUND '----------------------------------------------- if request.querystring("strProblem")="noname" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_NoNameForBasket") %> <% end if '----------------------------------------------- 'RETURNED BECAUSE NO EMAIL ADDRESS '----------------------------------------------- if request.querystring("strProblem")="noemail" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_NoEmailAddress") %> <% end if '----------------------------------------------- 'EMAIL NOT OF VALID FORMAT '----------------------------------------------- if request.querystring("strProblem")="emailinvalid" then %> <% WriteString("ContentText_Error") %> - <% =GetString("ContentText_EmailAddressNotValid") & " " & strEmailFrom %> <% end if %>

<% WriteString("ContentText_ChooseNamePassword") %>

<% WriteString("ContentText_PleaseEnterPassword") %>

<% WriteString("ContentText_SaveOrRecover") %>

<% WriteString("ContentText_BasketNamePassword") %>* <% WriteString("FormLabel_EmailAddress") %>* " size="25">

" name="btnSave">

<% WriteString("ContentText_ClickHere") %> <% WriteString("ContentText_RecoverPreviousBasket") %>

" name="btnRecover">

" name="btnSave">" name="btnRecover">

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