A SANREMO QUESTA SETTIMANA - by sanremonews.it
<%
'Utilizzo oggetto DOM per caricare il file xml (feed rss)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false
' Carico news di WebMasterPoint.org
caricoFile = objXML.Load("http://www.sanremonews.it/rss/feed_rss20.php?c=3")
' ALTRI FEED UTILI
' Ultimi articoli di WebMasterPoint.org: http://www.webmasterpoint.org/rss/articoli.xml
' Blog di WebMasterPoint: http://www.webmasterpoint.org/blog/index.xml
' Ultimi post del forum: http://forum.webmasterpoint.net/external.php?type=RSS
' Ultimi post del forum ASP: http://forum.webmasterpoint.net/external.php?type=RSS&forumids=24
' Ultimi post del forum PHP: http://forum.webmasterpoint.net/external.php?type=RSS&forumids=28
' Ultimi post del forum Flash: http://forum.webmasterpoint.net/external.php?type=RSS&forumids=13
' Ultimi post del forum Snitz Forum: http://forum.webmasterpoint.net/external.php?type=RSS&forumids=25
' Ultimi post del forum Off Topics: http://forum.webmasterpoint.net/external.php?type=RSS&forumids=19
' Per tutti i Feed RSS di WebMasterPoint.org: http://www.webmasterpoint.org/rss/rss.asp
' Controllo se e' stato caricato il file
If Not caricoFile Then
' In caso di errore avviso quale errore si e' verificato
Response.write " Errore
: " & objXML.parseError.errorCode & "
"
Response.Write "Linea: " & objXML.parseError.line & "/"
Response.WRite "Colonna: " & objXML.parseError.linepos & " "
Else
' In caso non vi sia nessun errore, proseguo e carico le info del file xml (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","")
End Select
Next
' VISUALIZZO LA NOTIZIA - E' possibile modificare il codice html delle 3 righe qui sotto, per formattare le news come si desidera
Response.write ("")
Response.Write (titolo & " " & data & "
" & descrizione & " (Leggi tutto...)")
Next
set Nodo = Nothing
End if
%>
__________________________________________________________
EVENTI DI PARTICOLARE INTERESSE A SANREMO - by sanremomanifestazioni.it
<%
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.sanremomanifestazioni.it/DuemetriModules/NewsletterModules/News/RssNewsSearch.aspx?TabID=11170&mid=28115&place=1&days=30")
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 ("")
Response.Write (titolo & " " & data & "
" & descrizione & " (Leggi tutto...)")
Next
set Nodo = Nothing
End if
%>
|
