Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  Dim reader As System.Xml.XmlReader = XmlReader.Create("http://www.repubblica.it/rss/homepage/rss2.0.xml")
  Dim formatter As New Rss20FeedFormatter()
  formatter.ReadFrom(reader)

  Dim coll = From c In formatter.Feed.Items _
    Select New With _
    { _
    .id = c.Id, _
    .title = c.Categories(0).Name, _
    .name = c.Authors.Count, _
    .date = c.PublishDate.ToString(), _
    .body = c.Summary.Text _
    }

  Me.GridView1.DataSource = coll
  Me.GridView1.DataBind()

End Sub