Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.load("enter_article_for_news.xml") 

Dim objChildNodes, strNode 
Set objChildNodes = objXMLDoc.documentElement.childNodes

For Each strNode In objChildNodes

Set objChildNodes2 = strNode.childNodes 
t=1
For Each strNode2 In objChildNodes2 
if t=1 then
document.write "<b>Article Name:</b> "
elseif t=2 then
document.write "<b>Article Date:</b> "
elseif t=3 then
document.write "<b>Article Contents:</b> "
end if
   document.write(strNode2.xml & "<br><br>")
   if t=3 then
   document.write "<hr><br>"
   end if
   t=t+1
   if t=4 then
   t=1
   end if
Next
 
   'document.write(strNode.nodeName & "<br>") 
Next