Bring Yahoo News to your sites
------------------------------------

Simply paste this code into your .cfm page and bring in Yahoo News into your site. To change
the search criteria, simply go to Yahoo News ( http://news.search.yahoo.com ) add your search
criteria and click Search, the results display along with a button on the right that says
"View as RSS". Click this and copy the resulting Url and paste it into your version of the below script.


<!--- 
    Author : David McGraw 
    Date : 04/15/2005
    Yahoo News RSS Feed
--->

<cfhttp url="http://news.search.yahoo.com/news/rss?ei=UTF-8&p=Coldfusion"></cfhttp>
<cfset myXMLDocument = XmlParse(cfhttp.fileContent)>

<cfoutput>
<table border="0" cellspacing="2" width="600">
    <tr>
        <td><strong>News</strong></td>
    </tr>
    <tr>
        <td><hr size="1" width="100%"></td>
    </tr>
    <cfloop from="1" to="#ArrayLen(myXMLDocument.rss.channel.XMLChildren)#" index="i">
        <cfif myXMLDocument.rss.channel.XMLChildren[i].XMLName EQ "item">
            <cfset NewsItem = myXMLDocument.rss.channel.XMLChildren[i]>

            <cfloop from="1" to="#ArrayLen(NewsItem.XMLChildren)#" index="x">

                <cfif NewsItem.XMLChildren[x].XMLName EQ "Title">

                <tr>
                    <td><strong>#NewsItem.XMLChildren[x].XMLText#</strong></td>
                </tr>

        <cfelseif NewsItem.XMLChildren[x].XMLName EQ "link">

            <cfset XMLLink = MID(NewsItem.XMLChildren[x].XMLtext, Find("http%3A//",NewsItem.XMLChildren[x].XMLtext,1)+9, Val(Find("http%3A//",NewsItem.XMLChildren[x].XMLtext,1)+9 + Len(NewsItem.XMLChildren[x].XMLtext)))>
                <tr>
                    <td>Link : <a href="http://#XMLLink#">#XMLLink#</a></td>
                </tr>

        <cfelseif NewsItem.XMLChildren[x].XMLName EQ "Description">

                <tr>
                    <td colspan="4">#NewsItem.XMLChildren[x].XMLText#</td>
                </tr>

        <cfelseif NewsItem.XMLChildren[x].XMLName EQ "pubDate">

                <tr>
                    <td colspan="4">Publish Date: <em>#NewsItem.XMLChildren[x].XMLText#</em></td>
                </tr>

        </cfif>

    </cfloop>
    <tr>
        <td><br></td>
    </tr>
    </cfif>
    </cfloop>

    <tr>
        <td align="right"><em>#myXMLDocument.rss.channel.Title.XMLText# <br> #myXMLDocument.rss.channel.copyright.XMLText# </em></td>
    </tr>

</table>

</cfoutput>