<%@LANGUAGE="VBSCRIPT" %> <% Set objXML = Server.CreateObject("Microsoft.XMLDOM") Set objLst = Server.CreateObject("Microsoft.XMLDOM") Set objAnn = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.Load (Server.MapPath("../356_RSS.xml")) If objXML.parseError.errorCode <> 0 Then 'handle the error End If Set objLst = objXML.getElementsByTagName("item") noOfItems = objLst.length Response.Write("

") For i = 0 To ( noOfItems - 1 ) Set objAnn = objLst.item(i) 'write the XML title followed by description Response.Write("
• " & objAnn.childNodes(0).text & ": " & objAnn.childNodes(1).text) 'determine current page URL currentPage = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") 'if XML link is not the same URL as current page, don't show a link '(showing the link would create a circular scenario If LCase(objAnn.childNodes(2).text) <> LCase(currentPage) Then Response.Write(" [ Link ]
") Else Response.Write("") End If Next Response.Write("

") %>