atom_js.asp

<%                      
' I converted some of your example found on http://www.iteam5.net/francesco/atom/ over to jscript.  
' Feel free to use it and keep up the good work. 
' Tyson Kopczynski 
' [email protected] 


           function atom(strURL) 
          { 
           var objXML = new ActiveXObject("msxml2.DOMDocument.3.0"); 
           objXML.async = false; 
           objXML.setProperty("ServerHTTPRequest", true); 
           objXML.validateOnParse = true; 
           objXML.preserveWhiteSpace = false; 

           if (!objXML.load(strURL)) 
            { 
             var array = new Array(); 

             Response.Write("<P>ERROR<br>code: " + objXML.parseError.errorCode) 
             Response.Write("<br>Linea/Col: " + objXML.parseError.line & "/" + objXML.parseError.linepos) 
             Response.Write("</P>") 

             return(array) 
            } 
           else 
            { 
             var objNodeList = objXML.getElementsByTagName("entry"); 
             var arrDicts = new Array(objNodeList.length); 

             for (var i=0; i<objNodeList.length; i++)  
              { 
               arrDicts[i] = new ActiveXObject("Scripting.Dictionary"); 

               arrDicts[i].Item("issued") = objNodeList[i].getElementsByTagName("issued")[0].firstChild.nodeValue 
               arrDicts[i].Item("id") = objNodeList[i].getElementsByTagName("id")[0].firstChild.nodeValue 
               arrDicts[i].Item("link") = objNodeList[i].getElementsByTagName("link")[1].getAttribute("href") 
               arrDicts[i].Item("author") = objNodeList[i].getElementsByTagName("author")[0].xml 
               arrDicts[i].Item("title") = objNodeList[i].getElementsByTagName("title")[0].firstChild.nodeValue 
               arrDicts[i].Item("content") = objNodeList[i].getElementsByTagName("content")[0].xml 
              } 
             return(arrDicts)  
            } 
           } 

         var blogURL = "http://taosage-net.blogspot.com/atom.xml"; 
         var blogItems = atom(blogURL); 

         Response.Write("<strong>") 
         Response.Write("<a href='" + blogItems[0].Item("link") + "'>" + blogItems[0].Item("title") + "</a>") 
         Response.Write("</strong>") 

         Response.Write("<table width='100%' cellspacing='0' cellpadding='0'>") 
         Response.Write("<tr>") 
         Response.Write("<td width='10' rowspan='2'>&nbsp;</td>") 
         Response.Write("<td>" + blogItems[0].Item("content") + "<br></td>") 
            Response.Write("</tr>") 
         Response.Write("<tr>") 
         Response.Write("<td>posted by " + blogItems[0].Item("author") + " @ " + blogItems[0].Item("issued") + "</td>") 
         Response.Write("</tr>") 
         Response.Write("</table>") 
        %>