<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "311, 332, 333, 334, 335, 339, 406, 408, 440, 441, 443, 444, 445, 446, 913" 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. '=============================================== strEmailAddress = request.form("ML_Email") If datNow1 = "" then datNow1 = now() else if NOT IsDate(datNow1) then numErrorNo = 1 else datNow1 = Cdate(formatdatetime(datNow1)) end if End if If numErrorNo = 0 then datNow2 = now() strQuery = "SELECT * FROM tblCactuShopMailingList WHERE ML_Email LIKE '%" & sqlsafe(strEmailAddress) & "%' AND ML_Email <> '' ORDER BY ML_ID" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) numRecordCount = objRecordSet.recordcount End if %>

<% WriteString("PageTitle_MailingList") %> <% WriteString("ContentText_New") %> <% WriteString("ContentText_FindAnEntry") %> "> <% WriteString("ContentText_EnterEmailAddress") %> <% WriteString("ContentText_ThereAreMoreMailingLists") %> <% if numRecordCount <> 0 then do while numBackgroundCounter < 20 AND NOT objRecordSet.EOF numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour = "#EEEEEE" else strBgColour = "#DDDDDD" end if %> <% objRecordSet.moveNext loop else %> <% end if objRecordSet.Close %> <% WriteString("ContentText_Email") %> <% WriteString("ContentText_SignupDate") %> <% WriteString("ContentText_HTML") %> <% WriteString("ContentText_Live") %>   "><% =objRecordSet("ML_Email") %> <% =FriendlyDate(objRecordSet("ML_Date"), "d") %> <% =objRecordSet("ML_HTML") %> <% =objRecordSet("ML_Authorized") %> ">" title="<% WriteSafeString("ImageLabel_ViewThisCustomer") %>"> <% WriteString("ContentText_NoCustomersWereFound") %>

<% objDataConn.Close set objDataConn = nothing %>