<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "14, 119, 121, 1134" %> <% '----------------------------------------------- 'SET PAGETITLE TAG '----------------------------------------------- strPageTitleHTML = GetString("PageTitle_MailingList") & " | " & 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. '=============================================== Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) response.write(aryPageTemplate(0)) %>

<% WriteString("PageTitle_MailingList") %>
<% WriteString("ContentText_MailingListRemove") %>
<% WriteString("FormLabel_EmailAddress") %>:
	">

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