OASIS Mailing List ArchivesView the OASIS mailing list archive below
or browse/search using MarkMail.


Help: OASIS Mailing Lists Help | MarkMail Help



   Transformation Error , PLZ HELP

[ Lists Home | Date Index | Thread Index ]

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)
    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 -->
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


News | XML in Industry | Calendar | XML Registry
Marketplace | Resources | MyXML.org | Sponsors | Privacy Statement

Copyright 2001 XML.org. This site is hosted by OASIS