ULTIME NOTIZIE by sanremonews.it

 

Cronaca
<% '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=1") ' 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 %>
    Politica
    <% '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=2") ' 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 %>
    Sport
    <% '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=4") ' 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 %>
    Altre Notizie
    <% '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=5") ' 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 %>
    Dai Giornali
    <% '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=15") ' 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 %>
     

     

     

     

    linee guida rss Dati prelevati direttamente dal sito di sanremonews.it
    Storia di Ventimiglia | Alberghi | Immagini | Mappa | La Cattedrale di Ventimiglia alta| Albintimilium e Teatro romano | Giardini Botanici Hanbury | Il Forte dell'Annunziata | Porta Canarda | Chiesa di San Michele | Castel d'Appio | Museo dei Balzi Rossi | Biblioteca Civica "Aprosiana" | Contatti | Scambio link | Indirizzi Utili | Web cams |