Transforming xml/xsl using msxml:script

[stevecvb]

I am trying to transform xml/xsl in a visual basic app. The transform works for straight forward xml/xsl. When using the msxml:scipt I am getting an invalid class string error when setting the xsltemplate.stylesheet. Here is my code

number.xml----
<?xml version='1.0'?>
<data>
<circle>
<radius>12</radius>
</circle>
<circle>
<radius>37.5</radius>
</circle>
</data>

calc.xsl-------
<xsl:stylesheet version=&quot;1.0&quot; xmlns:xsl=&quot;

http://www.w3.org/1999/XSL/Transform&quot;

xmlns:msxsl=&quot;urn:schemas-microsoft-com:xslt&quot;
xmlns:user=&quot;urn:my-scripts&quot;>

<msxsl:script language=&quot;C#&quot; implements-prefix=&quot;user&quot;>
<![CDATA[
public double circumference(double radius){
double pi = 3.14;
double circ = pi*radius*2;
return circ;
}
]]>
</msxsl:script>

<xsl:template match=&quot;data&quot;>
<circles>

<xsl:for-each select=&quot;circle&quot;>
<circle>
<xsl:copy-of select=&quot;node()&quot;/>
<circumference>
<xsl:value-of select=&quot;user:circumference(radius)&quot;/>
</circumference>
</circle>
</xsl:for-each>
</circles>
</xsl:template>
</xsl:stylesheet>

visual basic app code ---
Dim xmlSource As New MSXML2.DOMDocument30
Dim xmlOutput As New MSXML2.DOMDocument30
Dim xslTemplate As New MSXML2.XSLTemplate30
Dim xmlStylesheet As New MSXML2.FreeThreadedDOMDocument30
Dim xslProcessor As MSXML2.IXSLProcessor

xmlSource.Load (&quot;C:\Clients\Netik\InterView Adapters\Transform\number.xml&quot

If xmlSource.parseError.reason <> &quot;&quot; Then
MsgBox &quot;ERROR: &quot; & xmlSource.parseError.reason & vbCrLf & &quot;SOURCE: &quot; & _
xmlSource.parseError.srcText, vbExclamation, App.Title
End If

xmlStylesheet.Load (&quot;C:\Clients\Netik\InterView Adapters\Transform\calc.xsl&quot

If xmlStylesheet.parseError.reason <> &quot;&quot; Then
MsgBox &quot;ERROR: &quot; & xmlStylesheet.parseError.reason & vbCrLf & &quot;SOURCE: &quot; & _
xmlStylesheet.parseError.srcText, vbExclamation, App.Title
End If

Set xslTemplate.stylesheet = xmlStylesheet

Set xslProcessor = xslTemplate.createProcessor

xslProcessor.input = xmlSource
xslProcessor.output = xmlOutput

xslProcessor.Transform

Transform = xmlOutput.xml

THANKS,
Steve