|
[XML-DEV Mailing List Archive Home]
[By Thread]
[By Date]
[Recent Entries]
[Reply To This Message]
Transformation Error , PLZ HELP
- To: <xml-dev@l...>
- Subject: Transformation Error , PLZ HELP
- From: "asim" <qazi@a...>
- Date: Mon, 24 Feb 2003 14:11:33 -0800
 |
function TransformDocument(srcXML, srcXSL)
Dim sourceFile, styleFile, source
'the xsl file
path
styleFile = srcXSL
set source =
Server.CreateObject("MSXML2.DOMDocument.4.0")
source.async =
false
source.loadXML srcXML
Set objRoot =
source.documentElement
Set objField =
objRoot.selectSingleNode("//selected-template-id")
IncTemplatePath =
"../../../skins/" + objField.TEXT + "/Templates/template.xsl"
Set
objRoot = Nothing
'Get The Style Object
set style
= Server.CreateObject("MSXML2.DOMDocument.4.0")
style.async =
false
style.setProperty
"SelectionNamespaces","xmlns:xsl='http://www.w3.org/1999/XSL/Transform'"
style.load styleFile
Set objRoot1 =
style.documentElement
Set objField1 =
style.selectSingleNode("/xsl:stylesheet/xsl:include[@href='INCLUDEPATH1']")
objField1.setAttribute "href", IncTemplatePath
IncIncludePath = "../../../skins/" + objField.TEXT +
"/Templates/includes.xsl"
Set objField2 =
style.selectSingleNode("/xsl:stylesheet/xsl:include[@href='INCLUDEPATH2']")
objField2.setAttribute "href", IncIncludePath
Set objField1
= Nothing
Set objField2 = Nothing
'Error
Handaling
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
'Make the result
TransformDocument = result
End
Function
my XSL file is this
<?xml
version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
version="1.0">
<xsl:include
href="INCLUDEPATH1"/>
<xsl:include
href="INCLUDEPATH2"/>
<xsl:template
match="query-data">
<table
align="center" cellpadding="0" cellspacing="1" width="100%"
border="0">
<tr class="looplistingDark">
<td width="30%" class="contents">MX First
Priority : </td>
<!-- here is
my design
-->
</td>
</tr>
</table>
</xsl:template>
</xsl:stylesheet>
it was running fine .. i refreshed my OS .. i dont
know what does it lacks now .. this is giving me error now .. i updated my xml
parser but still jetting this error
Microsoft VBScript runtime error '800a01a8'
Object required: 'objField1'
/common/xmlfunctions.asp, line 161
Plz Help
|
|
PURCHASE STYLUS STUDIO ONLINE TODAY!
Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced!
Download The World's Best XML IDE!
Accelerate XML development with our award-winning XML IDE - Download a free trial today!
Subscribe in XML format
| RSS 2.0 |
 |
| Atom 0.3 |
 |
| |
Stylus Studio has published XML-DEV in RSS and ATOM formats,
enabling users to easily subcribe to the list from their preferred news reader application.
|
Stylus Studio Sponsored Links are added links designed to provide related and additional information to the visitors of this website.
they were not included by the author in the initial post. To view the content without the Sponsor Links please
click here.
|
|
Cart
