'**Description : Get IDIIL Hot News
'**Developer   : wxw
'**Develop Date:2006/05/28
sub ShowNews(byval sFileNameXml)
	dim objGetNewsDom,INode,Node
	dim strValue,sNewsURL

	set objGetNewsDom=createobject("Microsoft.XMLDOM")
	objGetNewsDom.async=false
	objGetNewsDom.load "/IDIILNews/" & sFileNameXml

	set objHttp = nothing
	set INode=objGetNewsDom.selectNodes("//Item")
	for each Node in INode
		sNewsURL=Node.getAttribute("NewsURL")
		strValue = strValue &  " <li style='color:green' type=circle><a class='ZI' onmouseover='ScrollNews.stop()' onmouseout= 'ScrollNews.start()'href='/IDIILNews/IDIILNews.asp?NewsURL=" & sNewsURL & "' target='_blank'>" & Node.getAttribute("Subject") & "</a></li><br>"
	next
	ScrollNews.innerHTML = strValue
	set objGetNewsDom=nothing
end sub