%%[
 SET @Subscriber = CreateObject("Subscriber")

 SetObjectProperty(@Subscriber, "SubscriberKey", SubscriberKey)

 SetObjectProperty(@Subscriber, "EmailAddress", "mytest@gmail.com")

 SetObjectProperty(@Subscriber, "FirstName", FirstName)

 SetObjectProperty(@Subscriber, "LastName", LastName)

 SetObjectProperty(@Subscriber, "AccountHomeLink", AccountHomeLink)

 SetObjectProperty(@Subscriber, "SiteID", SiteID )

 SET @Status =
 InvokeUpdate(@Subscriber, @createErrDesc, @createErrNo, @createOpts)
 ]%%




 %%[

   var @updateRecord
  set @SubKey = SubscriberKey
 set @Email =
 "mytest@hotmail.com"
 set @First = FirstName
 set @Last = LastName
 set @AHL = AccountHomeLink
 set @Site = SiteID

   set @updateRecord = UpdateSingleSalesforceObject(

   "SubscriberKey",@SubKey,

   "EmailAddress", @Email,

   "FirstName", @First,

   "LastName", @Last,

   "AccountHomeLink", @AHL,

   "SiteID", @Site
      )

 ]%%