<%

Response.write "<_html>"
Response.write "<_head>"
Response.write "<_title>Notizie Pillole<_/title>"
Response.write "<_meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">"
Response.write "<style TYPE=""text/css"">"
Response.write "A {color:blue; text-decoration: none;}"
Response.write "A:hover{color:red; text-decoration:underline; }"
Response.write "</style>"
Response.write "<_/head>"

Response.write "<_body style=""font-size: 10px; font-family: Verdana"" align=""justify"">"
Response.write "<table border=""0"" width=""500"">"
Response.write "<tr><td style=""font-size: 10px; font-family: Verdana"" align=""justify"">"


Sub RSS (URL)

Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True

' validazione
objXML.validateOnParse =false' true

' non conservare spazi
objXML.preserveWhiteSpace = false

blnLoaded = objXML.Load(URL)

If Not blnLoaded Then
Response.write "<P>ERRORE<br>codice: " & _
objXML.parseError.errorCode & _
"<br>Linea/Col: " & _
objXML.parseError.line & "/" & _
objXML.parseError.linepos & "</P>"
Else

Set objNodeList = objXML.getElementsByTagName("item")

For Each objNode In objNodeList

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

Next

' mostro a video

Response.write "<li><a href=""" & strURL & """>" & _
strTitle & "</A><BR>" & strDescription

strTitle = ""
strURL = ""
strDescription = ""

Next

set objNodeList = Nothing
End if

End sub

' RSS di ASPItalia.com
call RSS("http://www.pillole.org/public/aspnuke/feednews.asp")
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "<_/body>"
Response.write "<_/html>"

%>