<%@ Language=VBScript %> <% option explicit Response.Buffer = True '@BEGINVERSIONINFO '@APPVERSION: 5.10.10 '@FILENAME: unsubscribe.asp '@FILEVERSION: 1.0.1 '@VERSIONDATETIME: 2/21/01 '@DESCRIPTION: Unsubscribes Customers '@STARTCOPYRIGHT 'The contents of this file is protected under the United States 'copyright laws and is confidential and proprietary to 'LaGarde, Incorporated. Its use or disclosure in whole or in part without the 'expressed written permission of LaGarde, Incorporated is expressly prohibited. ' '(c) Copyright 2000, 2001 by LaGarde, Incorporated. All rights reserved. '@ENDCOPYRIGHT '@ENDVERSIONINFO %> <% Dim sEmail, rs, sSQL sEmail = trim(Request.QueryString("email")) sSQL = "SELECT custID, custEmail, custIsSubscribed FROM sfCustomers WHERE custEmail = '" & sEmail & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSQL, cnn, adOpenStatic, adLockOptimistic, adCmdText If Not (rs.EOF And rs.BOF) Then rs.Fields("custIsSubscribed") = 0 rs.Update End If closeObj(rs) closeObj(cnn) If sEmail = "" Then sEmail = "Nothing" %>

<%If C_BNRBKGRND = "" Then%> <%Else%> <%End If%> <%= C_STORENAME %> Unsubscribe <%= sEmail %> has been removed from the mailing list of <%= C_STORENAME %>