ok, hai ragione.....questo è il codice di script che mi richiama i feedne deduco il problema sia qua...il codice me lo hanno passato e o nn è che ci capisco molto....codice:<div id="feedStyleFanta"> <% For i = 0 to NumFeedsFanta-1 call PrintFeed(ArrUrlsFanta(i),ArrNumsFanta(i)) Next %> </div> <div id="feedStyle"> <% For i = 0 to NumFeeds-1 call PrintFeed(ArrUrls(i),ArrNums(i)) Next %> </div> <script language="vbscript" runat="server"> Sub PrintFeed(url,NumNews) html = "" Set XMLdoc = Server.CreateObject("msxml2.DOMDocument.3.0") XMLdoc.async = false XMLdoc.setProperty "ServerHTTPRequest", True XMLdoc.validateOnParse =false XMLdoc.preserveWhiteSpace = false Loaded = XMLdoc.Load(url) If Loaded Then set NodesList = XMLdoc.getElementsByTagName("channel") For Each aNode In NodesList For Each aNode2 In aNode.childNodes Select Case aNode2.nodeName Case "title" html = html & "<dt>" & aNode2.firstChild.nodevalue & "</dt>" End Select Next Next Set NodesList = XMLdoc.getElementsByTagName("item") j = 0 For Each aNode In NodesList j = j + 1 For Each aNode2 In aNode.childNodes Select Case aNode2.nodeName Case "title" strTitle = aNode2.firstChild.nodevalue Case "link" strURL = aNode2.firstChild.nodevalue End Select Next html = html & "<dd>" & strTitle & "</dd>" strTitle = "" strURL = "" strDescription = "" if (j >= NumNews) Then Exit For Next html = "<dl>" & html & "</dl>" set NodesList = Nothing End if Response.write (html) End Sub </script>

Rispondi quotando