<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "728, 729, 291, 169, 176, 179, 728, 729, 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 741, 742, 743, 744, 102, 14" %> <% '----------------------------------------------- 'SET PAGETITLE TAG '----------------------------------------------- strPageTitleHTML = GetString("PageTitle_WishListLogin") & " | " & 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. '=============================================== '----------------------------------------------- 'WISHLIST 'This feature lets users create a list of items 'that they want others to purchase for them. '----------------------------------------------- strCallMode = request.querystring("strCallMode") WL_Email = request.querystring("WL_Email") strPassword = request.querystring("strPassword") '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'CHECK TO SEE IF A USER IS ALREADY LOGGED IN '----------------------------------------------- If request.Cookies(Application(LICENSENUMBER & "cookiename"))("strUserType") <> "" then If request.Cookies(Application(LICENSENUMBER & "cookiename"))("strUserType") = "public" then WL_PublicPassword = request.Cookies(Application(LICENSENUMBER & "cookiename"))("WL_PublicPassword") WL_Email = request.Cookies(Application(LICENSENUMBER & "cookiename"))("WL_Email") If WL_PublicPassword <> "" and WL_Email <> "" then response.redirect("wishlist_process.asp?WL_Email=" & WL_Email & "&strPassword=" & WL_PublicPassword & "&strRecover=recover") end if end if End If '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% If strCallMode<>"" then %> <% end if %> <% If request.querystring("strProblem") <> "" then %> <% end if %>

<% WriteString("PageTitle_WishListLogin") %>

<% '----------------------------------------------- 'RETURNED BECAUSE BASKET ALREADY EXISTS '----------------------------------------------- if request.querystring("strProblem") = "exists" then %> <% WriteString("ContentText_EmailAlreadyHasWishlist") %> - <% WriteString("ContentText_EmailAlreadyHasWishlist2") %> <% end if '----------------------------------------------- 'RETURNED BECAUSE COUNTRY NOT SELECTED '----------------------------------------------- if request.querystring("strProblem") = "notfound" then %> <% WriteString("ContentText_NotFound") %> <% WriteString("ContentText_WishListNotFound") %> <% end if '----------------------------------------------- 'EMAIL AND CUSTOMER CODE COMBINATION NOT FOUND '----------------------------------------------- if request.querystring("strProblem")="noname" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_NoEmailForWishList") %> <% end if '----------------------------------------------- 'RETURNED BECAUSE NO EMAIL ADDRESS '----------------------------------------------- if request.querystring("strProblem")="noemail" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_MustEnterPassword") %> <% end if %>

<% WriteString("ContentText_SeeFriendsWishList") %> <% WriteString("ContentText_SeeFriendsWishList2") %>

<% WriteString("ContentText_WishListEmail") %>* <% WriteString("ContentText_WishListPassword") %>*

" name="btnRecover">

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

<% WriteString("ContentText_CreatingEditingWishList") %> <% WriteString("ContentText_CreatingEditingWishList2") %>

<% WriteString("ContentText_CreatingEditingWishList") %> <% WriteString("ContentText_ToCreateWishList") %> <% WriteString("ContentText_WishListClickHere") %>. <% WriteString("ContentText_RecoverExistingWishList") %>

<% WriteString("ContentText_WishListEmail") %>* <% WriteString("ContentText_WishListPassword") %>*

" name="btnSave">

" name="btnRecover">

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

<% WriteString("ContentText_ForgottenWishListPassword") %> <% WriteString("ContentText_ForgottenWishListPasswordDesc") %>

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

" name="btnRemind">

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