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)
%>
Rispondi quotando
