Rss.xslt

Rss.xslt

<xsl:stylesheet version=“1.0” xmlns:xsl=“http://www.w3.org/1999/XSL/Transform” xmlns:msxsl=“urn:schemas-microsoft-com:xslt” exclude-result-prefixes=“msxsl”> <xsl:output method=“html” indent=“yes”/> <xsl:template match=“/”>

</xsl:template> </xsl:stylesheet>

Rss.aspx

<%@ Page Language=“VB” AutoEventWireup=“false” CodeFile=“Rss.aspx.vb” Inherits=“Rss” %>

Rss

Rss.aspx.vb

Imports System.IO Imports System.Xml Imports System.Xml.Xsl

Partial Class feedreader_rss Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim url As String = “https://blog.sorrentino.it/syndication.axd” Dim xslt As String xslt = HttpContext.Current.Server.MapPath(“Rss.xslt”) Dim doc As XmlDocument = New XmlDocument() doc.Load(url) Dim xsltDoc As XslCompiledTransform = New XslCompiledTransform() xsltDoc.Load(xslt) Dim sb As StringBuilder = New StringBuilder() Dim sw As StringWriter = New StringWriter(sb) xsltDoc.Transform(doc, Nothing, sw) ltRss.Text = sb.ToString End Sub

End Class