<%
Function URLNewsItem(NewsURL)
	
	Dim objHTTP
	Dim objXML
	Dim objXSL
	Dim HowMany
	Dim XMLNews
	
	set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objHTTP.open "GET", "" & NewsURL & "", false
	objHTTP.send
	
	set objXML = objHTTP.responseXML
	
	set objXSL=Server.CreateObject("microsoft.xmldom")
	objXSL.async=false
	
	objXSL.load(Server.MapPath("news.xsl"))
	
	if (objXSL.readyState = 4 AND objXSL.parseError.errorCode = 0) then
	
	  HowMany = CountOccurances(objXML.transformnode(objXSL), "<tr>")

	  
		 if (isnull(HowMany) or (HowMany ="")) then
		Response.Write "Sorry, no headlines available at present!<br>"
	  else
		URLNewsItem = (XMLNews)
	  end if
	
	else
	  Response.Write "Error: " & objXSL.parseError.reason & "<br> URL:" & objXSL.url
	end if

End Function

%>

<%
response.write URLNewsItem("http://www.bbc.co.uk/syndication/feeds/news/ukfs_news/uk/rss091.xml")
%>

<?xml version="1.0" encoding="ISO-8859-1" ?>

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" encoding="ISO-8859-1" omit-xml-declaration="yes" indent="yes" />

<xsl:template match="*">
<table border="0">
<tbody>
<tr><td class="title" width="200" bgcolor="#FFFFFF" height="22"><img src="linkarrow.gif" /><b>
<a class="title">
<xsl:attribute name="href">
<xsl:value-of select="*[local-name()='channel']/*[local-name()='link']" />
</xsl:attribute>
<xsl:attribute name="target">
<xsl:text>top</xsl:text>
</xsl:attribute>
<xsl:value-of select="*[local-name()='channel']/*[local-name()='title']" />
</a></b>
</td></tr>

<tr><td valign="top" class="headlines" width="200">
<xsl:for-each select="//*[local-name()='item']">
<xsl:if test="position() < 10">
<img src="linkarrow.gif" />
<a>
<xsl:attribute name="href">
<xsl:value-of select="*[local-name()='link']" />
</xsl:attribute>
<xsl:attribute name="target">
<xsl:text>top</xsl:text>
</xsl:attribute>
<xsl:value-of select="*[local-name()='title']" />
</a>
<br />
</xsl:if>
</xsl:for-each>
</td></tr>
</tbody>
</table>
</xsl:template>

<xsl:template match="/">
<xsl:apply-templates />
</xsl:template>

</xsl:stylesheet>

quote:

---

Originally posted by Jeepaholic

Huh, why can't I get the cool error messages?! <laughing>

---

quote:

---

Originally posted by Jeepaholic

Is CountOccrances even an ASP function? Looking at it more, I'm not even sure what XMLNews is?! It's never defined, as far as I can see.

---

quote:

---

Originally posted by Jeepaholic

Astralis / Laser

Looking for some ASP code that would read the XML file and display it in on a web page...that's all.

---

quote:

---

Originally posted by Jeepaholic
Anyone having any better luck?

---

<%
Function URLNewsItem(NewsURL)
	dim objHTTP
	dim objXML
	dim objXSL

	set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

	objHTTP.open "GET", NewsURL, false
	objHTTP.send

	set objXML = objHTTP.responseXML

	set objXSL=Server.CreateObject("microsoft.xmldom")
	objXSL.async=false

	objXSL.load(Server.MapPath("news.xsl"))

	if (objXSL.readyState = 4 AND objXSL.parseError.errorCode = 0) then
		Response.Write(objXML.transformnode(objXSL))
	else
		Response.Write "Error: " & objXSL.parseError.reason & "<br> URL:" & objXSL.url
	end if
end function

URLNewsItem("http://forum.snitz.com/forum/rssfeed.asp")
%>

<xsl:if test="position() < 10">

<xsl:if test="position() &lt; 10">