Hi All
when i was having msxml3.0 installed on my system this code was
running fine to generate HTML from server
function TransformDocument(srcXML, srcXSL)
Dim sourceFile,
styleFile, source
'sourceFile = Server.MapPath(srcXML)
styleFile = srcXSL
' Load the XML
set source =
Server.CreateObject("Microsoft.XMLDOM")
source.async = false
'source.load sourceFile
source.loadXML
srcXML
' Load the XSL
set style =
Server.CreateObject("Microsoft.XMLDOM")
style.async =
false
style.load styleFile
if
(source.parseError.errorCode <> 0) then
result =
reportParseError(source.parseError)
elseif (style.parseError.errorCode
<> 0) then
result =
reportParseError(style.parseError)
else
on error
resume next
result = source.transformNode(style)
if (err.number<>0) then
result =
reportRuntimeError(exception)
end if
end
if
TransformDocument = result
End Function
function reportParseError(strError)
Response.Write strError &
"<br>"
end function
but when i upgraded my dom from 3.0 to 4.0 it started throwing xsl on the
client ...........
so i made the the following changes , now it running fine ..... can anybody
help whats the problem
function TransformDocument(srcXML, srcXSL)
Dim sourceFile,
styleFile, source
'sourceFile = Server.MapPath(srcXML)
styleFile = srcXSL
' Load the XML
'/////// i changed this
line
set source = Server.CreateObject("MSXML2.DOMDocument.4.0")
source.async = false
'source.load sourceFile
source.loadXML srcXML
' Load the XSL
'/////// i
changed this line
set style = Server.CreateObject("MSXML2.DOMDocument.4.0")
style.async = false
style.load styleFile
if (source.parseError.errorCode <> 0)
then
result =
reportParseError(source.parseError)
elseif (style.parseError.errorCode
<> 0) then
result =
reportParseError(style.parseError)
else
on error
resume next
result = source.transformNode(style)
if (err.number<>0) then
result =
reportRuntimeError(exception)
end if
end
if
TransformDocument = result
End Function
function reportParseError(strError)
Response.Write strError &
"<br>"
end function
