Ciao a tutti,
volevo il vostro aiuto in quanto devo leggere il contenuto di un rss per poterlo inserire in un database.
o provato con questo codice, funziona però non riesco ad avere ad esempio il tag della foto, data publicazione
Qualcuno può aiutarmi. Magari se già ci sia un qualche buon scriptcodice:Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest" , True objXML.validateOnParse =false objXML.preserveWhiteSpace = false caricoFile = objXML.Load("http://www.italpress.com/rss/") If Not caricoFile Then Response.write "<p><strong>Errore</strong><br>: " & objXML.parseError.errorCode & "<br>" Response.Write "Linea: " & objXML.parseError.line & "/" Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>" Else Set Nodo = objXML.getElementsByTagName("item") Dim NItem For Each objNodi In Nodo If NItem < 6 Then For Each objNodo In objNodi.childNodes Select Case objNodo.nodeName Case "title" titolo = objNodo.firstChild.nodevalue Case "link" link = objNodo.firstChild.nodevalue Case "enclosure" strEnclosure = "<img style=""float:left;"" src=""" & objNodo.getAttribute("url") & """ border=""0"" width=""100px"" />" End Select Next Response.write (strEnclosure) Response.write ("<a href=""" & link & """ target=""_blank"">" & titolo & "</a>") Response.Write ("<hr color=""#F68B29"" />") End If NItem = NItem + 1 Next set Nodo = Nothing End if
Grazie

Rispondi quotando