<%
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false
caricoFile = objXML.Load(URL)
If Not caricoFile Then
Response.write "error"
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
%>
2006-11-14
06:45:29
·
12 risposte
·
inviata da
punkisbed
3
in
Programmazione e Design