1%%[Var @xml, @xml1, @titles, @title, @descs, @desc, @links, @link, @cnt
2Set @xml1 = HTTPGet("https://example.com/xmlfile.xml")
3Set @xml = Replace(@xml1,'content:encoded','contentencoded')
4Set @titles = BuildRowsetFromXML(@xml,"//item/title",1)
5Set @descs = BuildRowsetFromXML(@xml,"//item/contentencoded",1)
6Set @links = BuildRowsetFromXML(@xml,"//item/link",1)
7
8If RowCount(@titles) > 5 THEN
9SET @rows = 5
10ELSE
11SET @rows = RowCount(@titles)
12ENDIF
13
14IF @rows >= 1 THEN
15for @cnt = 1 to 5 do
16Set @title = Field(Row(@titles,@cnt),"Value")
17Set @desc = Field(Row(@descs,@cnt), "Value")
18Set @link = Field(Row(@links,@cnt), "Value") ]%%
19
20<div style="border: 1px solid #444; background-color: #F7F7F7; margin: 0.76em 0; padding: 0.76em;">
21<h1 style="font: bold normal 1.0em Arial, Helvetica, sans-serif;"><a href="%%=RedirectTo(@link)=%%" alias="%%=v(@title)="%%" title="%%=v(@title)=%% style="color: #000;">%%=v(@title)=%%</a></h1>
22<span style="font: normal normal 0.76em Arial, Helvetica, sans-serif; color: #444;">%%=v(@desc)=%%</span>
23</div>
24%%[
25NEXT @cnt
26ENDIF
27]%%