"
Else
rsstitle="iteam5.net/blog"
rssdescription="Blog sulle novità del settore Information & Communication Technologies"
rsslink="http://www.iteam5.net/blog"
rsslanguage="it"
xml= ""&server.htmlencode(rsstitle)&""&server.htmlencode(rssdescription)&""&server.htmlencode(rsslink)&""&server.htmlencode(rsslanguage)&""
Set objNodeList = objXML.getElementsByTagName("entry")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "issued"
strdate= left(objNode2.firstChild.nodevalue,10)
Case "link"
strURL = objNode2.GetAttribute("href")
Case "title"
strTitle = objNode2.firstChild.nodevalue
'instead of Case "content"
Case "summary"
strDescription = objNode2.firstChild.data
For Each objNode3 In objNode2.childNodes
Select Case objNode3.nodeName
Case "div"
StrDescription = objNode3.text
For Each objNode4 In objNode3.childNodes
Select Case objNode4.nodeName
Case "a"
linkable=objNode4.firstChild.text
htmlink=" "& _
linkable&""
StrDescription = replace(StrDescription,linkable,htmlink)
end select
next
end select
next
End Select
Next
xml= xml & ""
xml=xml & ""
xml=xml & ""
xml=xml & ""
strTitle = ""
strURL = ""
strDescription = ""
Next
xml = xml & ""
response.ContentType = "text/xml"
response.write xml
set objNodeList = Nothing
End if
End sub
call atom2rss("http://www.iteam5.net/blog/feed.xml")
%>