/* CHECK TO SEE IF THE SUBSCRIBER HAS SUBSCRIBED. IF SO, DELETE OFF PUBLICATION LIST IF THEY ARE IN THERE*/

    IF (RequestParameter(@PublicationType)=="True" AND @SubscriberPublicationList == "N" AND @existPubList == "True") THEN

    SET @rr = CreateObject("RetrieveRequest")

    SetObjectProperty(@rr, "ObjectType", "List")
     AddObjectArrayItem(@rr,"Properties","ListName")
     AddObjectArrayItem(@rr,"Properties","ID")

    SET @sfp = CreateObject("SimpleFilterPart")
     SetObjectProperty(@sfp, "Property", "ListName")
     SetObjectProperty(@sfp, "SimpleOperator", "equals")
     AddObjectArrayItem(@sfp, "Value",@PublicationType)
     SetObjectProperty(@rr, "Filter", @sfp)

    SET @Sub = InvokeRetrieve(@rr)

    Set @ListID = Field(Row(@Sub,1),"ID")

    SET @ll_sub = CreateObject("Subscriber")
    SetObjectProperty(@ll_sub, "EmailAddress", @EmailAddress)

    SetObjectProperty(@ll_sub, "SubscriberKey", @subKey)


    set @subscription = CreateObject("SubscriberList")
    SetObjectProperty( @subscription, "ID",@ListID)
    SetObjectProperty( @subscription, "IDSpecified", "true" )
    SetObjectProperty( @subscription, "Status", "Active" )
    SetObjectProperty( @subscription, "StatusSpecified", "true" )
    AddObjectArrayItem( @ll_sub, "Lists", @subscription )

    SET @ll_statusCode = InvokeDelete(@ll_sub, @ll_statusMsg, @errorCode)

    IF @ll_statusCode != "OK" THEN
        RaiseError(@ll_statusMsg, 0, @ll_statusCode, @errorCode)
    ENDIF

    ENDIF

NEXT @cnt

ENDIF

/* USE LOOK UP TO FIND SUBSCRIBER KEY IN LIST USING SIMPLEFILTERPART AND COMPLEXFILTERPART*/

SET @rr8 = CreateObject("RetrieveRequest")

SetObjectProperty(@rr8, "ObjectType", "ListSubscriber")
 AddObjectArrayItem(@rr8,"Properties","ListID")
 AddObjectArrayItem(@rr8,"Properties","SubscriberKey")

SET @sfp8 = CreateObject("SimpleFilterPart")
 SetObjectProperty(@sfp8, "Property", "ListID")
 SetObjectProperty(@sfp8, "SimpleOperator", "equals")
 AddObjectArrayItem(@sfp8, "Value",@ListID)


SET @sfp9 = CreateObject("SimpleFilterPart")
 SetObjectProperty(@sfp9, "Property", "SubscriberKey")
 SetObjectProperty(@sfp9, "SimpleOperator", "equals")
 AddObjectArrayItem(@sfp9, "Value",@subKey)


Set @cf1 = CreateObject("ComplexFilterPart")
    SetObjectProperty(@cf1,"LeftOperand",@sfp8)
    SetObjectProperty(@cf1,"RightOperand",@sfp9)
    SetObjectProperty(@cf1,"LogicalOperator","AND")

SetObjectProperty(@rr8, "Filter", @cf1)

SET @LookUpSub = InvokeRetrieve(@rr8)

SET @RowCountSub = Rowcount(@LookUpSub)

IF (RequestParameter(@PublicationType)=="True" AND @SubscriberPublicationList == "N" AND @RowCountSub > 0) THEN