Salve a tutti.codice:<table border="1"><% call main() sub main() Set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM") objXMLDoc.load(Server.MapPath("rss.xml")) Set objChildNodes = objXMLDoc.documentElement.childNodes Dim livello livello = -1 ' primo nodo call AttraversaXML(objChildNodes) set objChildNodes = Nothing Set objXML = Nothing end sub Sub AttraversaXML(objChildNodes) For Each strNode In objChildNodes livello = livello + 1 if livello = 0 then Response.write("<tr>") ' nome del nodo Response.write("<td>" & strNode.nodeName & "") ' valore del nodo if Len(strNode.nodeValue)>0 then Response.write(": " & strNode.nodeValue) Response.write("</td>") ' se ci sono altri nodi, cicla su tutti if strNode.ChildNodes.length>0 then call AttraversaXML(strNode.childNodes) end if Response.write("</tr>" & VbCrLf) Next End Sub %></table>
Innanzi tutto, chiedo se è legale (ma penso proprio di si) ripubblicare le news che sono fornite in formato xml da ormai quasi tutti i siti, sul sito che sto finendo di realizzare?
Dunque vorrei chiedere a chiunque abbia un po' di tempo, di aiutarmi a modificare questo script che ho trovato in rete. Io di xml non conosco praticamente niente. Di asp un po' di più.![]()
Lo script, allo stato attuale, legge un file xml e lo restituisce a video... nudo e crudo tutto intero.
I file xml che dovrebbe leggere (sempre se possibile e legale) sono questi:
http://www.gazzetta.it/rss/Pallavolo.xml
http://www.gazzetta.it/rss/Home.xml
http://www.legavolley.it/rss.asp
A me servirebbe:
1. leggere i nodi (dico bene?) "title" e "link" dal nodo "channel"
2. Stampare i nodi "title", "link", "description" e "pubDate" per i primi N (non so precisamente il numero che mi servirà) nodi "item"
In pratica non ho idea di come riuscire a identificare i nodi che mi interessano!
Spero di essere stato il più chiaro possibile!
Ringrazio anticipatamente tutti coloro che avranno voglia di cimentarsi in questa avventura!!!
![]()


Rispondi quotando
VVoVe: Ariuppete
