Villa
Corsanello

Infos et �v�nements � Sienne et dans ses alentours

<% 'feed rss di terre di siena Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True objXML.validateOnParse = false objXML.preserveWhiteSpace = false blnLoaded = objXML.Load("http://www.terresiena.it/index.php?format=feed&type=rss&lang=en") ' guardo se ci sono errori If Not blnLoaded Then Response.write "

Error
: " & objXML.parseError.errorCode & "
" Response.Write "Linea: " & objXML.parseError.line & "/" Response.WRite "Colonna: " & objXML.parseError.linepos & "

" Else ' se nn ci sono errori proseguo e carico le info del feed rss Set Nodo = objXML.getElementsByTagName("item") For Each objNodi In Nodo ' sfoglio i nodi 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","") Case "pubDate" on error resume next data = FormatDateTime(CDate(objNodo.firstChild.nodevalue),vbLongDate) on error goto 0 End Select Next ' VISUALIZZO il FEED Response.write ("

") Response.Write ("" & titolo & "

" & descrizione & "

") Next set Nodo = Nothing End if %>