#LOCAL("VisNewsletterCampaigns", #VisibleNewsletterCampaigns)
#IF(NOT #COUNT(#VisNewsletterCampaigns))
{NoNewsletterCampaigns}
#ELSE
#LOCAL("Alternate", 0)
#LOOP(#VisNewsletterCampaigns)
#LOCAL("Unsubscribed", 2)
#LOCAL("LocalAddressees",#Child.Addressees)
#IF(#DEFINED(#INPUT.EMail) AND #INPUT.EMail NE "")
#IF(#FUNCTION("EXISTSCHILD", #LocalAddressees.Object, #INPUT.EMail))#WITH(#FUNCTION("CHILD", #LocalAddressees.Object, #INPUT.EMail))
#SET("Unsubscribed", #Unsubscribed)
#ENDWITH#ENDIF
#ELSE
#IF(#FUNCTION("EXISTSCHILD", #LocalAddressees.Object, #Session.User.EMail))#WITH(#FUNCTION("CHILD", #LocalAddressees.Object, #Session.User.EMail))
#SET("Unsubscribed", #Unsubscribed)
#ENDWITH#ENDIF
#ENDIF
#ENDLOCAL
#SET("Alternate", 1 - #Alternate)
#LOOP(#Shop.Languages)
#IF(#DEFINED(#LangID) AND #DEFINED(#LanguageID) AND #LangID EQ #LanguageID)
(#Native)
#ENDIF
#ENDLOOP
#IF(#Unsubscribed EQ "1")
#ELSIF(#Unsubscribed EQ "0")
#ELSE
#ENDIF
#ENDLOCAL
#ENDLOOP
#ENDLOCAL
#ENDIF
#ENDLOCAL
#IF(#Shop.FeatureMaxValue.Newsletter)
#LOCAL("VisNewsletterCampaigns", #VisibleNewsletterCampaigns)
#IF(#COUNT(#VisNewsletterCampaigns))
#IF(NOT #Session.User OR #Session.User.IsAnonymous)#WITH_ERROR(#FormError)