<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "440, 462, 463, 464, 465, 466, 467, 468, 590, 591, 876" strThisBackPage = "config" %> <% '=============================================== ' 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. '=============================================== %> <% Redim HTMLSignups(numTotalLanguages) Redim TextSignups(numTotalLanguages) numCounter = 0 For numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" then '--------------------------------------------- 'FIND NUMBER OF AUTHORIZED ADDRESSES '--------------------------------------------- strQuery = "SELECT COUNT(*) As HTMLSignups FROM tblCactuShopMailingList WHERE ML_Authorized = 'y' AND ML_HTML = 'y' AND ML_Language = " & numCounter call executeSQL(strQuery,numCursorType,objRecordSet) HTMLSignups(numCounter) = objRecordSet("HTMLSignups") objRecordSet.close '--------------------------------------------- 'FIND NUMBER OF AUTHORIZED ADDRESSES FOR TEXT '--------------------------------------------- strQuery = "SELECT COUNT(*) As TextSignups FROM tblCactuShopMailingList WHERE ML_Authorized = 'y' AND ML_HTML <> 'y' AND ML_Language = " & numCounter call executeSQL(strQuery,numCursorType,objRecordSet) TextSignups(numCounter) = objRecordSet("TextSignups") objRecordSet.close end if next %>

<% WriteString("PageTitle_MailingList") %> <% WriteString("ContentText_MailingListPagetextI") %> <% WriteString("ContentText_MailingListPagetextII") %> <% WriteString("FormLabel_Language") %>: <% numCounter = 0 For numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" then response.Write "" & aryLangBackNames(numCounter) & " - Total Signups: " & HTMLSignups(numCounter)+TextSignups(numCounter) & " (" & HTMLSignups(numCounter) & " HTML, " & TextSignups(numCounter) & " Text)" & vbcrlf end if next %> <% WriteString("ContentText_Subject") %> <% WriteString("ContentText_TextEmail") %> <% WriteString("ContentText_HTMLEmail") %> <% WriteString("ContentText_TestEmail") %> <% WriteString("ContentText_MailingListTestEmailDesc") %> (<% WriteString("ContentText_Currently") %> <% =" " & strEmailTo %>) ">

<% objDataConn.Close set objDataConn = nothing %>