DIM Objhttp, Objxml, Objxsl
Set objxsl = server.createObject ("Microsoft.xmldom") objxsl.async = falseobjxsl.load (Server.MAppath ("rss.xsl")))
Set objhttp = server.createObject ("Microsoft.xmlhttp") Objhttp.Open "get", objurl, false objhttp.send
Set objxml = objhttp.responsexml objhtml = objxml.transformnode (objxsl) Objhtml = Replace (Objhtml, "" "," '")
Set objhttp = Nothing
'objhtml = server.htmlencode (Objhtml)
%>
Var rsscode;
rsScode = "<% = Objhtml%>"; rssbox.innerhtml = ""; if (rsScode == ") {rsSbox.innerhtml =" Nothing Found ";}}}}} Rssbox.innerHTML = rsScode Transfer from: http: // Goaler. Xicp.net/showlog.asp?id=481