Notizie Giuridiche

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
sibilla522
00domenica 3 agosto 2008 05:08
<%
rssURL = "http://news.studiocataldi.it/rss.asp"
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false
rssFile = objXML.Load(rssURL)
'Se ci sono errori stampo a video
If Not rssFile Then
Response.write "Non ci sono notizie
per favore avvisate il webmaster"

'Se NON ci sono errori proseguo...
Else

limite_max=15
limite_min=1
conta=0
'Recupero i dati dai nodi Item (e sotto nodi)
Set objNodeList = objXML.getElementsByTagName("item")

For Each objNode In objNodeList
'stampo a video...
conta=conta+1
IF conta>=limite_min AND conta<=limite_max THEN

For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDesc = objNode2.firstChild.nodevalue
End Select
Next

Response.write "" &_
Left(strTitle,80) & "

" & Left(strDesc,300) & "...
"
END IF
'azzero tutto per il prossimo passaggio
strTitle = ""
strURL = ""
strDescription = ""

Next

set objNodeList = Nothing
End if
%>


Fonte: www.studiocataldi.it
sibilla522
00martedì 5 agosto 2008 05:17
C'è nè da diventare avvocati. Non fà male sapere.
maremare.
00mercoledì 3 settembre 2008 20:13
prova
maremare.
00mercoledì 3 settembre 2008 20:15
prova
maremare.
00mercoledì 3 settembre 2008 22:35
prova foto
maremare.
00mercoledì 3 settembre 2008 22:36
prova
sibilla522
00giovedì 4 settembre 2008 11:54
Ma . . . . quante prove fai???????????Ma no male che è riuscita in giornata la cosa se no........eh eh. Bello l'avatarrrrrrrrrrrr
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 11:32.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com