SFMC Check Subscriber List Members

sfmc-check-list-membership.amp

%%[
var @isASubscriber, @sk, @row, @status, @listID
set @isASubscriber = 0

/* ListID can be found in the List's Properties tab */
set @listID = "111111"

/* Retrieve the SubscriberKey/EmailAddress */

/* via URL Parameter: */

/* set @sk = RequestParameter("sk") */

/* via Profile Attribute: */

/* set @sk = AttributeValue("_subscriberkey") */

/* for testing: */

set @sk = "[email protected]"

set @rr = CreateObject("RetrieveRequest")
SetObjectProperty(@rr,"ObjectType","ListSubscriber")
AddObjectArrayItem(@rr,"Properties","ListID")
AddObjectAttayItem(@rr,"Properties","Status")

set @sfp1 = CreateObject("SimpleFilterPart")
SetObjectProperty(@sfp1,"Property","SubscriberKey")
SetObjectProperty(@sfp1,"SimpleOperator","equals")
AddObjectArrayItem(@sfp1,"Value",@sk)

set @sfp2 = CreateObject("SimpleFilterPart")
SetObjectProperty(@sfp2,"Property","ListID")
SetObjectProperty(@sfp2,"SimpleOperator","equals")
AddObjectArrayItem(@sfp2,"Value",@listID)

set @cfp = CreateObject("ComplexFilterPart")
SetObjectProperty(@cfp,"LeftOperand", @sfp1)
SetObjectProperty(@cfp,"LogicalOperator", "AND")
SetObjectProperty(@cfp,"RightOperand", @sfp2)

SetObjectProperty(@rr,"Filter",@cfp)

set @ListSubObj = InvokeRetrieve(@rr,@rrStatus,@rrRequestID)

if rowCount(@ListSubObj) > 0 then

set @row = row(@ListSubObj, 1)
  set @status = field(@row,'Status')

if @status == "Active" then
    set @isASubscriber = 1
  endif

endif

]%%

isASubscriber: %%=v(@isASubscriber)=%%
<br>sk: %%=v(@sk)=%%
<br>rrStatus: %%=v(@rrStatus)=%%
<br>status: %%=v(@status)=%%

I have the same problem as Tovelainen, I always get the Active status for the user. In the list I can see an Unscuscribed value. Any help on this one is most appreciated.