<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "14, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 291, 293" %> <% callmode = request.querystring("callmode") basketname = request.querystring("basketname") emailaddress = request.querystring("emailaddress") Call ReadFromTemplate(templatelocation,aryPageTemplate,strBasketHTML,strCategoryListHTML) response.write(aryPageTemplate(0)) %>
<% If callmode<>"" then %> <% end if %> <% If callmode = "save" then %> <% elseif callmode = "recover" then %> <% else %> <% end if %> <% If callmode = "save" then %> <% elseif callmode = "recover" then %> <% else %> <% end if %> <% If callmode = "save" then %> <% elseif callmode = "recover" OR iCount=0 then %> <% else %> <% end if %>
<% WriteString("PageTitle_SaveCurrentBasketContents") %>
<% WriteString("PageTitle_RecoverBasketContents") %>
<% WriteString("PageTitle_SaveRecoverBasketContents") %>
<% WriteString("ContentText_SaveRecoverBasketContentsDesc") %> <% WriteString("ContentText_SaveRecoverBasketContentsDesc2") %>
<% if request.querystring("problem")="exists" then %> <% WriteString("ContentText_EmailAddressHasAccount") %> - <% WriteString("ContentText_EmailAddressHasAccountDesc") %> <% end if if request.querystring("problem")="notfound" then %> <% WriteString("ContentText_NotFound") %> - <% WriteString("ContentText_SavedBasketNotFound") %> <% end if if request.querystring("problem")="noname" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_NoNameForBasket") %> <% end if if request.querystring("problem")="noemail" then %> <% WriteString("ContentText_Error") %> - <% WriteString("ContentText_NoEmailAddress") %> <% end if %>
<% WriteString("ContentText_ChooseNamePassword") %>
<% WriteString("ContentText_PleaseEnterPassword") %>
<% WriteString("ContentText_SaveOrRecover") %>
<% WriteString("ContentText_BasketNamePassword") %>*
<% WriteString("FormLabel_EmailAddress") %>* " size="25">
" name="Save">
<% WriteString("ContentText_ClickHere") %> <% WriteString("ContentText_RecoverPreviousBasket") %>
" name="Recover">
" name="Save">" name="Recover">
<% response.write(aryPageTemplate(1)) DataConn.Close set DataConn = nothing %>