Dave's Percussion Library Online Stay Up-to-Date - <acronym title="Really Simple Syndication">RSS</acronym> Feeds

Preview (http://library.davesabine.com/xml_rss/rssFeed(4).xml)

This RSS feed can be incorporated into your own web pages by studying the VBScript code example below.

Things to note:

This code can be copy-n-pasted into any ASP document and your web server will produce the RSS feed in HTML format on that page.
CSS can then be used to apply colours, fonts, formatting, and some layout to the contents (for example CSS can be used to hide some of the content or to align the text differently).
While this code can be used as is, please note that there are many ways to implement RSS feeds with server-side scripting languages like VBScript. This code is merely one example. If you have difficulty implementing this feature on your web site, sorry. I am not available or obligated to provide technical support and you should seek help elsewhere (perhaps on the internet or by professional programmer).
This example uses an XSL stylesheet called "rssToHTML(Default)(1-2).xsl" to transform the RSS feed; however it is possible to use other XSL files or build your own.


		<%

		dim objXMLDoc

		set objXMLDoc = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0")

		    objXMLDoc.async = False

		    objXMLDoc.setProperty "ServerHTTPRequest",True

		    objXMLDoc.load "http://library.davesabine.com/xml_rss/rssFeed(4).xml"

		

		dim objXSLDoc

		set objXSLDoc = Server.CreateObject("MSXML2.FreeThreadedDOMDocument.3.0")

		    objXSLDoc.async = False

		    objXSLDoc.setProperty "ServerHTTPRequest",True

		    objXSLDoc.load "http://library.davesabine.com/templates/rssToHTML(Default)(1-3).xsl"

		

		dim objXSLTemplate

		set objXSLTemplate = Server.CreateObject("MSXML2.XSLTemplate")

		    objXSLTemplate.stylesheet = objXSLDoc

		

		dim objXSLProcessor

		set objXSLProcessor = objXSLTemplate.createProcessor()

		    objXSLProcessor.input = objXMLDoc

		    objXSLProcessor.addParameter "target","_self"

		    objXSLProcessor.addParameter "lngShowNumberOfItems","0"

		    objXSLProcessor.addParameter "lngLengthOfDescription","224"

		    objXSLProcessor.transform()

		

		dim strOutput

		strOutput = replace(objXSLProcessor.output,"<?xml version=""1.0"" encoding=""UTF-16""?>","")

		strOutput = replace(strOutput,"xmlns:dc=""http://purl.org/dc/elements/1.1/""","")

		response.write(strOutput)

		

		set objXSLProcessor = nothing

		set objXSLTemplate = nothing

		set objXSLDoc = nothing

		set objXMLDoc = nothing

		%>