iteam5 home page

  informazioneconoscenzapassioneesperienza
home | progettazione | helpdesk | ricerca | sviluppo | education | finanziamenti | blog | info

Atom.asp
A simple Atom client written in Microsoft ASP using MSXML

Author: Francesco Passantino

Download | See it in action | MSXML | Atomenabled | Aspin

See also:

<%
Sub atom(URL)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = true
objXML.preserveWhiteSpace = false

If Not objXML.Load(URL) Then

Response.write "<P>ERROR<br>code: " & _
objXML.parseError.errorCode & _
"<br>Linea/Col: " & _
objXML.parseError.line & "/" & _
objXML.parseError.linepos & "</P>"

Else

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"
if linkchk=0 then
strURL = objNode2.GetAttribute("href")&"?rss=1"
linkchk=1
end if
Case "title"
strTitle = objNode2.firstChild.nodevalue
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=" <a href='"& _
objNode4.GetAttribute("href")&"'>"& _
linkable&"</a>"
StrDescription = replace(StrDescription,linkable,htmlink)
end select
next
end select

next
End Select
Next

if strdate<>prevstrdate then
response.write "</ul><b>"&strdate&"</b><ul>"
prevstrdate=strdate
end if

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

strTitle = ""
strURL = ""
strDescription = ""
linkchk = 0

Next

set objNodeList = Nothing

End if
End sub

call atom("http://www.iteam5.net/blog/feed.xml")
%>