אני מעוניין להציג חדשות נגללות מynet
בניתי את הקוד הבא אך הוא גולל לי את כל השורות ביחד.
אני רוצה שהכל ירוץ בשורה אחת.
<%
Dim xmlDoc, XMLroot, aMsgs, i, Item
Set xmlDoc = Server.CreateObject("Msxml2.DomDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load("http://www.ynet.co.il/Integration/StoryRss1854.xml")Set XMLroot = xmlDoc.documentElement
Set aMsgs=xmlDoc.getElementsByTagName("item")
for each Item In aMsgs
Response.Write("<marquee>" & Item.childNodes.item(1).text & "</marquee>")
next
%>