Ciao a tutti.
Devo importare il file delle news del Piemonte dal sito dell' AGI.
Il codice è il seguente:
codice:
<%
XMLPiemonte = "http://agi.feedsportal.com/c/34339/f/625426/index.rss"
StrURL = XMLPiemonte
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", StrURL, false
objXMLHTTP.Send
content = CStr(objXMLHTTP.ResponseText)
content = replace(content, "><", ">" & vbcrlf & "<")
fileXML = "/public/readRSSNews/"
Set FSOSiteMaps = CreateObject("Scripting.FileSystemObject")
Set Mappa = FSOSiteMaps.CreateTextFile(Server.MapPath(fileXML & "PiemonteNews.xml"), 2, True)
Mappa.WriteLine content
Mappa.Close
Set Mappa=Nothing
Dim objXmlDom
Set objXmlDom = Server.CreateObject("MSXML2.DOMDocument")
objXmlDom.async = False
objXmlDom.setProperty "ServerHTTPRequest", True
blnFileExist = objXmlDom.load(Server.MapPath(fileXML & "PiemonteNews.xml"))
If (blnFileExist) Then
Set itemList = objXmlDom.SelectNodes("rss/channel/item")
For Each itemAttrib In itemList
newsTitle =itemAttrib.SelectSingleNode("title").text
newsLink =itemAttrib.SelectSingleNode("link").text
response.Write(newsTitle) & "<br>"
response.Write(newsLink) & "<br>"
Next
End If
Set objXmlDom = Nothing
Set itemList = Nothing
L'importazione e la formattazione con vbcrlf funziona perfettamente, ma non riesco a leggerlo.
Se però copio il file PiemonteNews.xml in locale e semplicemente lo apro e lo salvo senza alcuna modifica con Dreamweaver, una volta che lo ricarico sul server lo leggo perfettamente.
La mia sensazione è che quando lo formatto con il vbcrlf probabilmente inserisco (o non inserisco) caratteri particolari.
Avete qualche idea ? sono 3 giorni che ci lavoro senza soluzione.
Ciao e grazie
Marco