VAR XMLDoc_out = New ActiveXObject ("Microsoft.xmldom");
XMLDOC_OUT.ASYNC = "false";
XMLDOC_OUT.LOAD (" rss.aspx ");
Maxnum_out = Xmldoc_out.GetelementsBytagname ("item"). Length;
For (i = 1; i
IF (i> 10) EXIT (0);
Strlink = xmldoc_out.GtelementsBytagname ("link"). Item (i) .text;
Strtitle = xmldoc_out.GtelementsBytagname ("Title"). Item (i) .text;
Document.write ("