Information Technology News Blog:
News from the High Tech Sector from a Blogger’s Perspective
<%
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 "
ERROR
code: " & _
objXML.parseError.errorCode & _
"
Linea/Col: " & _
objXML.parseError.line & "/" & _
objXML.parseError.linepos & "
"
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"
strURL = objNode2.GetAttribute("href")
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="
"& _
linkable&""
StrDescription = replace(StrDescription,linkable,htmlink)
end select
next
end select
next
End Select
Next
if strdate<>prevstrdate then
response.write ""&strdate&"
"
prevstrdate=strdate
end if
Response.write "
" & _
strTitle & "
" & strDescription
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End if
End sub
call atom("http://www.phraseologist.com/atom.xml")
%>
We provide news, headlines, and stories from IT Blogs and Blog Posts.