%%[
SET @s = RetrieveSalesforceObjects('Subscription__c', 'Id, Contact__c',
'Contact__c', '=', @id)
SET @Row = row(@s,1)
SET @ID= Field(@Row, "Id")
]%%

%%=v(@ID)=%%