|
|
 |
|
<%
response.ContentType="text/html"
dim objXML, objXSL
set objXML=server.CreateObject("MSXML2.DOMDocument")
set objXSL=server.CreateObject("MSXML2.DOMDocument")
objXML.async=False
objXSL.async=False
objXML.setProperty "ServerHTTPRequest",true
objXML.load "http://sf.web1.in/rss.php?c=1"
objXSL.load Server.MapPath("web1style.xslt")
'response.write "Links"
response.write objXML.transformNode(objXSL)
'response.write ""
set objXML=nothing
set objXSL=nothing
%>
|
|
|
|
