Calendar of Events
Please clink on an event.
<% ' ------ Put this section where you want the feed to display ------ ' Note - change title as required feedTitle="The latest news from edie.net" ' Note - uncomment the required feed showFeed("http://www.edie.net/news/rss0.xml") ' All latest News 'showFeed("http://www.edie.net/news/rss1.xml") ' The latest Environment & Business news 'showFeed("http://www.edie.net/news/rss2.xml") ' The latest Pollution Monitoring & Control news 'showFeed("http://www.edie.net/news/rss3.xml") ' The latest Contaminated Land & Construction news 'showFeed("http://www.edie.net/news/rss4.xml") ' The latest Water & Wastewater news 'showFeed("http://www.edie.net/news/rss5.xml") ' The latest Waste & Recycling news 'showFeed("http://www.edie.net/news/rss6.xml") ' The latest Climate Change & Energy news 'showFeed("http://www.edie.net/news/edie_jobs.xml") ' The latest Environmental Jobs 'showFeed("http://www.edie.net/news/edie_software.xml") ' The latest Environmental Products 'showFeed("http://www.edie.net/news/edie_products.xml") ' The latest Environmental Software 'showFeed("http://www.edie.net/news/edie_quiz.xml") ' The latest Environmental Quizzes 'showFeed("http://www.web4water.co.uk/web4water.xml") ' web4water water industry latest ' ----------------------------------------------------------------- %> <% ' ----------- Put this in your asp code area ---------------------- ' Feed reader provided by edie.net (c)2006. Written by R. Capper Function showFeed(url) Response.Write feedTitle Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") xmlObj.async = False xmlObj.setProperty "ServerHTTPRequest", True xmlObj.Load(url) If xmlObj.parseError.errorCode <> 0 Then Response.Write "Newsfeed temporarily unavailable ("&xmlObj.parseError.reason&")
" End If Set xmlList = xmlObj.getElementsByTagName("item") Set xmlObj = Nothing For Each xmlItem In xmlList title = "" link = "http://www.edie.net" description = "" For Each xmlItem2 In xmlItem.childNodes a = xmlItem2.nodeName if a = "title" then title=xmlItem2.text if a = "link" then link=xmlItem2.text if a = "description" then description=xmlItem2.text Next Response.Write ""&title&"
"&description&"
" Next Set xmlList = Nothing End Function ' ----------------------------------------------------------------- %>
