%%[
 VAR @subscriberkey, @email, @firstname, @lastname
 SET @subscriberkey = _subscriberkey
 IF NOT EMPTY(@subscriberkey) THEN
             SET @rs= RetrieveSalesforceObjects("Contact", "Id, FirstName,LastName,Email", "Id", "=", @subscriberkey)
             SET @rowCount = rowcount(@rs)
             IF @rowCount > 0 THEN
                 SET @row = row(@rs,1)
                 SET @email = field(@row,"Email")
                 SET @firstname = field(@row,"FirstName")
                 SET @lastname = field(@row,"LastName")
             ENDIF
 ELSE
 SET @email = emailaddr
 SET @firstname = ""
 SET @lastname = ""
 ENDIF
 ]%%