Sandro Filippi Official Web Site

My Official WebSite Home Profilo Carriera Gallery FanClub Link News <% 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.bookmark.it/rss.php?ut=linus") If Not caricoFile Then Response.write " Errore : " & objXML.parseError.errorCode & " " Response.Write "Linea: " & objXML.parseError.line & "/" Response.WRite "Colonna: " & objXML.parseError.linepos & " " Else Set Nodo = objXML.getElementsByTagName("item") For Each objNodi In Nodo For Each objNodo In objNodi.childNodes Select Case objNodo.nodeName Case "title" titolo = objNodo.firstChild.nodevalue Case "link" link = objNodo.firstChild.nodevalue Case "description" descrizione = objNodo.firstChild.nodevalue Case "dc:date" data = objNodo.firstChild.nodevalue data = Replace(data,"T"," alle ") data = Replace(data,"+00:00","") End Select Next Response.write (" " & titolo & "") Next set Nodo = Nothing End if Response.write (" BookMark sul tuo sito") %>
Carriera *Profilo Foto News* *FanClub Links*