HowToSFMC

%%[
/* CALCULATE IF THE CAMPAIGN IS ACTIVE */
SET @Senddate = SystemDateToLocalDate(GetSendTime(FALSE))
SET @StartDate = DateParse("01/06/2022 00:00:00 AM")
SET @EndDate = DateParse("31/12/2022 11:00:00 PM")
SET @DateDiffStart = DateDiff(@StartDate, @Senddate  ,"D")
SET @DateDiffEnd = DateDiff(@EndDate, @Senddate,"D")

IF @DateDiffStart >= 0 AND @DateDiffEnd <= 0  THEN
    SET @CampaignPeriod = "TRUE"
ELSE
    SET @CampaignPeriod = "FALSE"
ENDIF
]%%

/* Wrap your campaign content with the following */
%%[IF @CampaignPeriod == "true" THEN]%%
Insert campaign info here
%%[ENDIF]%%

<form>
  <!-- Anchor for dynamically populated HTML -->
  <div id="container"></div>
  <!-- Submit Button -->
</form>

<!-- Load in SFMC Code Resource -->
<script type="text/javascript" src="https://cloud.<coderesource>.js"></script>

(function (/* root, doc */) {
  <script runat="server">
    Platform.Load("core","1.1.5");
      var filter = { 
        Property: "Pricebook2Id", 
        SimpleOperator: "equals", 
        Value: "18DIGSF" 
      }

      //Initiate Data Extension
      var de = DataExtension.Init("Data-extension-external-key");

      //Retrieve rows based on filter
      var results = de.Rows.Retrieve(filter);

      //Stringify and pass row data to AMPscript/Client-Side Javascript
      var resultsString = Stringify(results);
      Variable.SetValue("@results", resultsString);

  </script>

   var results = %%=v(@results)=%%;

   for (var i = 0; i < results.length; i++) {
      var checkbox = document.createElement('input');
      checkbox.type = 'checkbox';
      checkbox.id = results[i].Web_Name;
      checkbox.name = 'Sample';
      checkbox.value = results[i].ProductCode;
      var label = document.createElement('label')
      label.htmlFor = results[i].Web_Name;
      label.appendChild(document.createTextNode(results[i].Web_Name));
      var br = document.createElement('br');
      var Container = document.getElementById('container');
      Container.appendChild(checkbox);
      Container.appendChild(label);
      Container.appendChild(br);
    }
}(window, document));

    SELECT
        s.PrimaryKey,
        s.FirstName,
        s.LastName,
        s.EmailAddress
    FROM [Source Data Extension] s
        LEFT JOIN [Target Data Extension] t 
            ON s.PrimaryKey = t.PrimaryKey
    WHERE
        t.PrimaryKey IS NULL 

 %%[

  /*  
        OVERVIEW:  build HTML tables dynamically based upon your client details. Create support tables to drive the table you want per the contact Account_Type

        This allows the HTML tables to contain up to 10 columns
  */

 

  /* code to determine Core/WFN/RS/CS  */

    set @lookupvalue = AttributeValue("Contact ID")
    set @Account_Type = AttributeValue("Account Type")
    set @Client_Type = AttributeValue("Client Type")


    IF @Account_Type == 'ACC1' AND @Client_Type == 'Core1' THEN

        set @email_BU = 'BU1'
        set @HeaderTDStyle = ' style="text-align: center; vertical-align: center; background-color:#bb99ff; font-family: TaubSans,Arial,sans-serif; letter-spacing:0.2px;line-height:1em;font-size:12px;padding:6px;margin:0px;" '

    ELSEIF @Account_Type == 'ACC2' AND @Client_Type == 'Core2' THEN
        set @email_BU = 'BU2'

        set @HeaderTDStyle = ' style="text-align: center; vertical-align: center; background-color:grey; font-family: TaubSans,Arial,sans-serif; letter-spacing:0.2px;line-height:1em;font-size:12px;padding:6px;margin:0px;" '

    ELSEIF @Account_Type == 'ACC3' AND @Client_Type == 'Core3' THEN

        set @email_BU = 'BU4'

        set @HeaderTDStyle = ' style="text-align: center; vertical-align: center; background-color:blue; font-family: TaubSans,Arial,sans-serif; letter-spacing:0.2px;line-height:1em;font-size:12px;padding:6px;margin:0px;" '

    ELSE

        set @email_BU = 'Missing'

    ENDIF

    /* ================================== */

    /* enter the email title here */

    set @email_title = "test"
    set @email_BU = "CS"

    /* enter the email title here */

    /* ================================== */

    /*    COMMENTS    */

    /*  
        HEADERS:
        Header data stored, one row per header column
        fetch data for header text and sort columns
        hide column feature if needed 


        DATA:
        Raw data stored in typical row/column
        Fetch data dependent upon where header data is found and pull in by column order
     */

 

    var @i, @HeaderRows, @HeaderRows, @HeaderRowCount

    var @rows, @row, @contact_id, @prevcontact_id, @numRowsToReturn, @company_code, @deferral_amount, @prior_company_code

    set @numRowsToReturn = 0

    /* write the CSS styles here  */

    set @HeaderTRStyle = ' style="color:#ffffff;background-color:#7967AE; line-height:1em;padding:6px;" '

    set @HeaderTRStyle = ' style="background-color: #ffffff;color:#000000;text-align:center;" '

    set @TRStyleOdd = ' style="background-color: #ffffff;color:#000000;text-align:center;" '

    set @TRStyleEven = ' style="background-color: #f2f2f2;color:#000000;text-align:center;" '

    set @TDStyleOdd = ' style="background-color: #ffffff;color:#000000; text-align: center; vertical-align: center; font-family: TaubSans,Arial,sans-serif; letter-spacing:0.2px;line-height:1em;font-size:12px;padding:6px; word-wrap: break-word;margin:0px;" '

    set @TDStyleEven = ' style="background-color: #f2f2f2;color:#000000; text-align: center; vertical-align: center; font-family: TaubSans,Arial,sans-serif; letter-spacing:0.2px;line-height:1em;font-size:12px;padding:6px; word-wrap: break-word;margin:0px;" '

    set @HeaderRows = LookupOrderedRows("test_table_headers2", 0, "col_sort_num asc", "email_title", @email_title, "email_title_sub", @email_BU)

    set @HeaderRowCount = rowcount(@HeaderRows)

    /* Start Header Row If */
    if @HeaderRowCount > 0 then 
        for @i = 1 to @HeaderRowCount DO
            set @HeaderRow = row(@HeaderRows, @i)
            set @col_title = trim(field(@HeaderRow,"col_title"))
            set @col_sort_num = trim(field(@HeaderRow,"col_sort_num"))
            set @col_hide  = trim(field(@HeaderRow,"col_hide"))

            /*  create column headers in this block of code  */
            if @i == 1 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp1 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol1 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 2 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp2 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol2 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 3 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp3 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol3 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 4 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp4 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol4 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 5 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp5 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
               set @Hcol5 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 6 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp6 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol6 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 7 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp7 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol7 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 8 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp8 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol8 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 9 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp9 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol9 = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            elseif @i == 10 and @col_title != "" and @col_hide == "" then
                set @Hcol_disp10 = concat('<th', @HeaderTDStyle, '>', @col_title, '</th>')
                set @Hcol10  = concat("col", trim(field(@HeaderRow,"col_sort_num")))

            endif
        next @i

        /* create the HTML table */
        output(concat("<table style='border: 1px solid #000000;border-collapse: collapse; margin: 0 auto;  padding: 0px; table-layout: fixed; width: 100%;'>"))
    ]%%

    <!--
        [if mso]>
        <tr>
            <td style="height:0.1pt">
                &nbsp;
            </td>
        </tr>
        <![endif]
    -->
 
    %%[
        /* write the TR(row) */

        output(concat('<tr ', @HeaderTRStyle, ' >'))

        /* write the TH(column headers) */
        output(concat(v(@Hcol_disp1),v(@Hcol_disp2) ,v(@Hcol_disp3) ,v(@Hcol_disp4) ,v(@Hcol_disp5) ,v(@Hcol_disp6) ,v(@Hcol_disp7) ,v(@Hcol_disp8) ,v(@Hcol_disp9) ,v(@Hcol_disp10) ))

        /* close the HTML row */
        output(concat("</tr>"))

 
        /* lookupOrderedRows("data extension name", number of rows to return, sort columns, WHERE criteria 1, WHERE criteria 1 value, WHERE criteria 2, WHERE criteria 2 value, etc...)  */

        set @Rows = LookupOrderedRows("test_table_list", 0, "data1, data2", "email_title", @email_title, "email_title_sub", @email_BU, "Contact Id", "0031P00001Eny4HQAR")

        set @RowCount = rowcount(@Rows)

        /* Start Row Display If */
        if @RowCount > 0 then 
            for @i = 1 to @RowCount DO
                
                /* create the rows/columns of data here */
                set @Row = row(@Rows, @i)
                set @vcol1  = ""
                set @vcol2  = ""
                set @vcol3  = ""
                set @vcol4  = ""
                set @vcol5  = ""
                set @vcol6  = ""
                set @vcol7  = ""
                set @vcol8  = ""
                set @vcol9  = ""
                set @vcol10 = ""

                /* set style for odd/even rows */
                IF mod(@i,2) == 0 THEN
                    output(concat('<tr ', @TRStyleEven, ' >'))
                    set @TDStyle = @TDStyleEven
                ELSE
                    output(concat('<tr ', @TRStyleOdd, ' >'))
                    set @TDStyle = @TDStyleOdd
                ENDIF

        
                output(concat('<tr ', @TRStyle, ' >'))
                if length(@Hcol1) > 1 then
                    set @vcol1  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol1)), '</td>')
                endif

                if length(@Hcol2) > 1 then
                    set @vcol2  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol2)), '</td>')
                endif

                if length(@Hcol3) > 1 then
                    set @vcol3  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol3)), '</td>')
                endif

                if length(@Hcol4) > 1 then
                    set @vcol4  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol4)), '</td>')
                endif

                if length(@Hcol5) > 1 then
                    set @vcol5  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol5)), '</td>')
                endif

                if length(@Hcol6) > 1 then
                    set @vcol6  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol6)), '</td>')
                endif

                if length(@Hcol7) > 1 then
                    set @vcol7  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol7)), '</td>')
                endif

                if length(@Hcol8) > 1 then
                    set @vcol8  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol8)), '</td>')
                endif

                if length(@Hcol9) > 1 then
                    set @vcol9  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol9)), '</td>')
                endif

                if length(@Hcol10) > 1 then
                    set @vcol10  = concat('<td', @TDStyle, '>', trim(field(@Row,@Hcol10)), '</td>')
                endif

                output(concat(@vcol1, @vcol2, @vcol3, @vcol4, @vcol5, @vcol6, @vcol7, @vcol8, @vcol9, @vcol10))

                output(concat("</tr>"))

                next @i

            /* End Row Display If 8?
            endif 

        /* End Header Row If *?
        endif 

        output(concat("</table>"))
        output(concat("<!--[if (gte mso 9)|(IE)]></td></tr></table><![endif]-->"))
    ]%%

        </td>
    </tr>

</table>

1st Step: Define the total audience.

This data will include more than 1 row per Subscriber

Let's call this the "todays_total_purchase_reminder_data" Data Extension

SELECT DISTINCT 
    SubscriberKey, 
    refill_id,
    refill_name,
    dosage,
    next_purchase_reminder_date
FROM 
    purchases
WHERE 
    next_purchase_reminder_date > DATEADD(DAY, -1, GETDATE());

2nd Step: Group the records by SubscriberKey or whatever your criteria may be.

Let's call this "todays_total_purchase_reminder_data_GROUPED" Data Extension

SELECT
    SubscriberKey
FROM 
    Refill_Overdue
GROUP BY 
    SubscriberKey

Now you will have a send list with only SubscriberKey and will only have 1 unique row for each Subscriber.

The next step will be creating an email that can perform a lookup function on the "todays_total_purchase_reminder_data" DE to get the data to display info on 1 or more records for the single email send.

%%[
    /* 3rd Step Define AmpScript */
    SET @SubscriberKey = [SubscriberKey]

    /* Perform lookup on the Data Extension we populate with our 1st query */
    SET @rows = LookupRows("todays_total_purchase_reminder_data", 
                            "SubscriberKey", 
                            @SubscriberKey)

    SET @rowCount = rowcount(@rows) 

    /* 
        If you need each separate row from the 1st DE to be presented in the email via separate blocks of content, then follow instructions similar to https://ampscript.guide/lookuprows/ where the FOR loop loops through each row with a new block of html 
    
        If you want to build 1 sentence that separates each row of data in plain English with commas, then follow this BONUS Scriptmas code! 
    */

    /* 
        Get a string of refill Names combined... 
        original source: https://salesforce.stackexchange.com/questions/79214/how-to-create-loop-for-subject-line-using-ampscript 
    */
   
   
   IF @rowCount > 0 THEN 
      FOR @i = 1 TO @rowCount DO 
            SET @row = row(@rows, @i) 
            SET @refill_name = ProperCase(field(@row, "refill_name"))

            IF NOT EMPTY(@refill_name_loop) THEN
                  IF @i == @rowCount AND @i > 1 THEN
                        SET @refill_name_final = CONCAT(@refill_name_loop, " and ", @refill_name)
                  ELSE
                        SET @refill_name = CONCAT(@refill_name_loop, ", ", @refill_name)
                        SET @refill_name_final = CONCAT(@refill_name_loop, ", ", @refill_name)
                  ENDIF
            ELSE

                  SET @refill_name_final = @refill_name

            ENDIF

            SET @refill_name_loop = @refill_name
      next @i
   ENDIF

]%%

<!-- @refill_name_final will return simply 1 refill name with 0 commas if there's only 1 refill row for a Subscriber in the 1st DE
@refill_name_final will return a string similar to "refill1 and refill2" when the Subscriber has 2 refill rows in the 1st DE
@refill_name_final will return a string similar to "refill1, refill2, refill3, and refill4" for a Subscriber that has more than 2 refill rows -->
<p>You are due to refill the following items %%=v(@refill_name_final)=%%</p>

    <script language="javascript" runat="server">
    Platform.Load("core","1");

    var custKey = 'DEKeyGoesHere';
    var DEName = '[DENameGoesHere]';
    var alias = 'b'; /* Alias of choice goes here */  
    
    var myDE = DataExtension.Init(custKey);
    var myFields = myDE.Fields.Retrieve();
    
    var itemsToSelect = 'SELECT ';
    
    for (i = 0; i < myFields.length; i++) {
    if(i===0) {
        if(alias) {
        itemsToSelect += alias + '.[' + myFields[myFields[i].Ordinal].Name + ']<br>';
        }
        else{
        itemsToSelect += '[' + myFields[myFields[i].Ordinal].Name + ']<br>';
        }
    }
    else {
        if(alias) {
            itemsToSelect += ', ' + alias + '.[' + myFields[myFields[i].Ordinal].Name + ']<br>';
        }
        else{
        itemsToSelect += ', [' + myFields[myFields[i].Ordinal].Name+ ']<br>';
        }
    }
    }   
    itemsToSelect += 'FROM <br>' + DEName + ' ' + alias; 
    Write(itemsToSelect);
</script>

SELECT A.[Subscriberkey],'Open' as 'StatType',
[EventDate] as 'DateOccured', [isunique] as 'unique', B.[Emailname], A.[JobID]

FROM _Open A
LEFT JOIN _Job B
ON A.[JobID] = B.[JobID]
WHERE [Eventdate] > dateadd(day, -90, GETUTCDATE())

UNION

SELECT [Subscriberkey],'Send' as 'StatType', [EventDate] as 'DateOccured',
'True' as 'unique', B.[Emailname], A.[JobID]


FROM _Sent_DV
LEFT JOIN _Job B
ON A.[JobID] = B.[JobID]
WHERE [Eventdate] > dateadd(day, -90, GETUTCDATE())

UNION

SELECT [Subscriberkey], 'Click' as 'StatType', [EventDate] as 'DateOccured',
[isunique] as 'unique', B.[Emailname], A.[JobID]

FROM _Click A
LEFT JOIN _Job B
ON A.[JobID] = B.[JobID]

WHERE [Eventdate] > dateadd(day, -90, GETUTCDATE()) AND [Linkname] <> 'Unsub'

UNION

SELECT [Subscriberkey],'Bounce' as 'StatType', [EventDate] as 'DateOccured',
'True' as 'unique', B.[Emailname], A.[JobID]

FROM _Bounce A
LEFT JOIN _Job B
ON A.[JobID] = B.[JobID]

WHERE [Eventdate] > dateadd(day, -90, GETUTCDATE())

<script runat="server">
    Platform.Load("core", "1");
    var sfmc = new Script.Util.WSProxy();
    try {
        var request = sfmc.retrieve("DataExtension", [ "Name", "CustomerKey", "CategoryID", "IsSendable"], {
            Property: "CustomerKey",
            SimpleOperator: "isNotNull",
            Value: " "
        });
        var de_email = [];
        var all_de = request.Results;
        for (var k in all_de) {
            var fields = sfmc.retrieve("DataExtensionField", [
                "FieldType",
                "Name"
            ], {
                Property: "DataExtension.CustomerKey",
                SimpleOperator: "equals",
                Value: all_de[k].CustomerKey
            });
            for (var f in fields.Results) {
                if(fields.Results[f].FieldType == 'EmailAddress' && !fields.Results[f].Name.indexOf(':') && (!all_de[k].CustomerKey.indexOf('_Salesforce') &&!all_de[k].Name.indexOf('_Salesforce') ) ){
                    de_email.push({
                        DEName: all_de[k].Name,
                        DEKey: all_de[k].CustomerKey, 
                        DEField: fields.Results[f].Name
                    });
                }
            }
        }
        var email_de = de_email.join(",");
        Write(Stringify(de_email));
    } catch(error) {
        Write(error);
    }
</script>

%%[
    var @pattern, @date, @month, @day, @zodiacSign

    SET @pattern = "^0*(\d+)$"
    SET @date = Now()
    SET @month = FormatNumber(RegExMatch(datePart(@date, "M"), @pattern, 1),"G")
    SET @day = FormatNumber(RegExMatch(datePart(@date, "D"), @pattern, 1),"G")

    IF @month == 1 THEN
    IF @day <= 19 THEN
        SET @zodiacSign = 'Capricorn'
    ELSEIF @day > 19 THEN
        SET @zodiacSign = 'Aquarius'
    ENDIF
    ENDIF
    IF @month == 2 THEN
    IF @day <= 18 THEN
        SET @zodiacSign = 'Aquarius'
    ELSEIF @day > 18 THEN
        SET @zodiacSign = 'Pisces'
    ENDIF
    ENDIF
    IF @month == 3 THEN
    IF @day <= 20 THEN
        SET @zodiacSign = 'Pisces' THEN
    ELSEIF @day > 20 THEN
        SET @zodiacSign = 'Aries'
    ENDIF
    ENDIF
    IF @month == 4 THEN
    IF @day <= 19 THEN
        SET @zodiacSign = 'Aries' THEN
    ELSEIF @day > 19 THEN
        SET @zodiacSign = 'Taurus'
    ENDIF
    ENDIF
    IF @month == 5 THEN
    IF @day <= 20 THEN
        SET @zodiacSign = 'Taurus' THEN
    ELSEIF @day > 20 THEN
        SET @zodiacSign = 'Gemini'
    ENDIF
    ENDIF
    IF @month == 6 THEN
    IF @day <= 20 THEN
        SET @zodiacSign = 'Gemini' THEN
    ELSEIF @day > 20 THEN
        SET @zodiacSign = 'Cancer'
    ENDIF
    ENDIF
    IF @month == 7 THEN
    IF @day <= 22 THEN
        SET @zodiacSign = 'Cancer' THEN
    ELSEIF @day > 22 THEN
        SET @zodiacSign = 'Leo'
    ENDIF
    ENDIF
    IF @month == 8 THEN
    IF @day <= 22 THEN
        SET @zodiacSign = 'Leo' THEN
    ELSEIF @day > 22 THEN
        SET @zodiacSign = 'Virgo'
    ENDIF
    ENDIF
    IF @month == 9 THEN
    IF @day <= 22 THEN
        SET @zodiacSign = 'Virgo' THEN
    ELSEIF @day > 22 THEN
        SET @zodiacSign = 'Libra'
    ENDIF
    ENDIF
    IF @month == 10 THEN
    IF @day <= 22 THEN
        SET @zodiacSign = 'Libra' THEN
    ELSEIF @day > 22 THEN
        SET @zodiacSign = 'Scorpio'
    ENDIF
    ENDIF
    IF @month == 11 THEN
    IF @day <= 21 THEN
        SET @zodiacSign = 'Scorpio' THEN
    ELSEIF @day > 21 THEN
        SET @zodiacSign = 'Sagittarius'
    ENDIF
    ENDIF
    IF @month == 12 THEN
    IF @day <= 21 THEN
        SET @zodiacSign = 'Sagittarius' THEN
    ELSEIF @day > 21 THEN
        SET @zodiacSign = 'Capricorn'
    ENDIF
    ENDIF
]%%

Instead of using this:

SELECT 
CASE
  WHEN Region = ‘North’ THEN ‘Brand A’
  WHEN Region = ‘South’ THEN ‘Brand B’
  ELSE ‘Brand C’
END AS Brand
FROM dataExtention 

We can use this:

SELECT 
Brand = CASE Region
  WHEN ‘North’ THEN ‘Brand A’
  WHEN ‘South’ THEN ‘Brand B’
  ELSE ‘Brand C’
END
FROM dataExtention

%%[ var @customerId, @AccountId, @SubId, @SubName, @customerId, @AccountId, @ManagerId, @ManagerName

set @customerId = [_subscriberKey] 
set @AccountId = Lookup("Contact_Salesforce","AccountId","_ContactKey", @customerId)  
set @SubId = Lookup("Account_Salesforce","Advisor__c","Id", @AccountId)
set @FromName = Lookup("User_Salesforce","Name","Id", @SubId)
set @ManagerId = Lookup("Account_Salesforce","Manager__c","Id", @AccountId)
set @ManagerEmail = Lookup("User_Salesforce","Email","Id", @ManagerId)]%%

  %%=v(@FromName)=%%
  %%=v(@ManagerEmail)=%%

<script runat="server">
Platform.Load("Core","1");
try {
  var prox = new Script.Util.WSProxy();
  var cols = ["Name","CustomerKey","NotificationEmailAddress", "UserID", "ActiveFlag", "Email", "IsAPIUser", "AccountUserID", "LastSuccessfulLogin", "CreatedDate", "Roles"];
  var filter = {
    LeftOperand: {Property: "Email",SimpleOperator: "like",Value: "@"},
    LogicalOperator: "AND",
    RightOperand: {Property: "ActiveFlag",SimpleOperator: "equals",Value: "true"}
  };
  var res = prox.retrieve("AccountUser", cols, filter);
  Write(Stringify(res.Results)+"<br><br><br>");
    Write("<table border=1><tr><th>Name</th><th>Email</th><th>CreatedDate</th><th>LastSuccessfulLogin</th><th>Roles</th></tr>");
    for (i = 0; i < res.Results.length; i++) {
      Write("<tr><td>" + res.Results[i].Name + "</td><td>" + res.Results[i].Email + "</td><td>" + res.Results[i].CreatedDate + "</td><td>" + res.Results[i].LastSuccessfulLogin + "</td><td>");
      for (r = 0; r < res.Results[i].Roles.length; r++) {
        Write(res.Results[i].Roles[r].Name + "<br>");
      }
    Write("</td></tr>");
    }
  Write("</table>"); 
  }
catch(error) {
  Write('Message: ' + error);
}
</script>

//NOTE1: Store as a code resource if you arre going to include your client id and secret 
//NOTE2: It is alreay in a Try/Catch for testing if you want to remove it to simplify the file

<script runat="server">
var api = new Script.Util.RestProxy("Client Id", "Client Secret");
try{
var jbdate = {
  "ContactKey": "",
  "EventDefinitionKey":"JOURNEY BUILDER API EVENT KEY",
  "Data": {
    "subscriberkey":"",
    "email":"",
    "firstname":"",
    "lastname":"",
    "ANY OTHER FIELDS YOU WANT POPULATED":""
  }
 };

 var res1 = api.Post("/interaction/v1/events", jbdate);
 
 Platform.Response.Write(Platform.Function.Stringify(res1));

} catch(e1)

{Platform.Response.Write(Platform.Function.Stringify(e1));}
     
</script>