salve a tutti, dovrei realizzare due sistemi di news scorrevoli....uno in orizzonatale ed uno in verticale...

in entrambi i casi le news devono essere prese da una pagina xml che contiene le news in rss...

attualmente il mio file statico che estrapola i dati è questo:

<%
' Creo oggetto DOM XML
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True

' validazione del documento XML
objXML.validateOnParse =false' true

' non conservare spazi
objXML.preserveWhiteSpace =false

blnLoaded = objXML.Load("http://www.miosito.it/asptoxml.asp")
If Not blnLoaded Then
Response.write "Nessuna news da visualizzare"
Else
set objNodeList = objXML.getElementsByTagName("channel")

For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes

Select Case objNode2.nodeName
Case "title"
html = html + "<tr><td>"
html = html + objNode2.firstChild.nodevalue
html = html + "</td></tr>"
Case "link"
html = html + "<tr><td><a target=_blank href="+objNode2.firstChild.nodevalue+">"
html = html + objNode2.firstChild.nodevalue
html = html + "</a></td></tr>"
Case "description"
html = html + "<tr><td>"
html = html + objNode2.firstChild.nodevalue
html = html + " [img][/img]"
html = html + "</td></tr>"
End Select
Next
Next

html = html + "<tr><td><hr></td></tr>"

Set objNodeList = objXML.getElementsByTagName("item")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDescription = objNode2.firstChild.nodevalue
End Select
Next

html = html+"<tr><td>[img][/img]"+strTitle+"</td></tr><tr><td>"+strDescription+"<hr></td></tr>"
strTitle = ""
strURL = ""
strDescription = ""
Next

html = "<table>"+html+"</table>"
set objNodeList = Nothing
End if

Response.write (html)
%>