K
Kez Bates
Hi there
I am trying to create a newsfeed on my website. I used the following code
on my website which I found somewhere. I then placed the call to this code
in my web document. It does not appear to work. Am I missing something???
Thanks Kez.
Function getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")
Dim xmlhttp
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send
set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadxml(xmlhttp.ResponseText)
set style = Server.CreateObject("Microsoft.XMLDOM")
style.async = false
style.load(styleFile)
getXML = source.transformNode(style)
set source = nothing
set style = nothing
End Function
%>
<html>
I am trying to create a newsfeed on my website. I used the following code
on my website which I found somewhere. I then placed the call to this code
in my web document. It does not appear to work. Am I missing something???
Thanks Kez.
Function getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")
Dim xmlhttp
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send
set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadxml(xmlhttp.ResponseText)
set style = Server.CreateObject("Microsoft.XMLDOM")
style.async = false
style.load(styleFile)
getXML = source.transformNode(style)
set source = nothing
set style = nothing
End Function
%>
<html>