implement RssReader function with Asp+XmlHttp

 & lt;style>Body {margin:10px;background-color:#ffffff;margin-top:6px;}Form {margin:0px;}* {font:12px tahoma;line-height:140%;color:#000000}.title {font-weight:bold;color:red;}.time {font:10px;color:#999999;}A {text-decoration:none;color:blue;}& lt;/style>& lt;script type="text/javascript">Var switcher=0& lt;/script>& lt;body ondblclick="if (switcher==0) {document.styleSheets [0] .addRule ('div','display:none'); switcher=1} else {document.styleSheets [0] .addRule (' div','display:block'); switcher=0} & quot;>& lt;form name="rssform" method=post action="">RSS Resources: & lt;INPUT TYPE="text" NAME="RssFeed" size=60 style="height:22px" value="<%=request (& quot;RssFeed")% & gt;" onfocus=select () & gt;& lt;input type="submit" value="Read It"> & nbsp;  double-click the mouse to close the summary and display only the title& lt;/form>& lt;hr/>& lt;%If (request (& quot;RssFeed") = & quot;") ThenUrl="/rss2.asp"ElseUrl=request & quot;RssFeed")End IfSet xml = Server.CreateObject (& quot;Microsoft.XMLHTTP")Xml.Open & quot;GET", url, FalseXml.SendSet xmlDom = server.createObject (& quot;microsoft.xmldom")XmlDom.async=FalseXmlDom.ValidateOnParse=falseXmlDom.load (xml.responseXML)If xmlDom.ReadyState>2 ThenSet oItem=xmlDom.getElementsByTagName & quot;item")For iTunes 0 to oItem.length-1Response.write & quot;"&i+1&". & lt;a href='https://www.chener.net/archives/87/ https://www.chener.net/archives/87/"&oItem(i).childNodes(1).text&"' target='_blank'>"&oItem (I) .childNodes (0). Text&" & lt;span class='time'> [& quot;&oItem (I) .childNodes (3) .text&"] & lt;br/& gt;"Summary of response.write & quot;
: & quot;&oItem (I) .childNodes (4). Text&"

"NextEnd if% & gt

--
from: CHANNEL7