<%@ LANGUAGE="VBSCRIPT" %>
<%
Function getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("cartoon1.xsl")
Dim xmlhttp
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send
set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadxml(xmlhttp.ResponseText)
set style = Server.CreateObject("Microsoft.XMLDOM")
style.async = false
style.load(styleFile)
getXML = source.transformNode(style)
set source = nothing
set style = nothing
End Function
%>
Daily Cartoons
<%= getXML("http://dwlt.net/tapestry/wid.rdf") %>
<%= getXML("http://dwlt.net/tapestry/bc.rdf") %>
<%= getXML("http://dwlt.net/tapestry/dilbert.rdf") %>
<%= getXML("http://dwlt.net/tapestry/peanuts.rdf") %>
<%= getXML("http://www.vasanthdharmaraj.com/ArchieRSS/ArchieRSS.asmx/TodaysComic?") %>
<%= getXML("http://dwlt.net/tapestry/ripleys.rdf") %>