How to get a value node?

[luotavia]

This is my xml:
<mi>
<pif pin=&quot;1&quot; pt=&quot;3&quot; ttl=&quot;Name&quot;>
<pa ia=&quot;1&quot;>Mary Smith</pa>
<info msg=&quot;The name is requeried&quot; step=&quot;Requeried&quot; order=&quot;3&quot;
digit1=&quot;3&quot; totop=&quot;1&quot;/>
</pif>
<inputs>
</inputs>
</mi>

This is my xsl:
<xsl:stylesheet xmlns:xsl=&quot;

http://www.w3.org/TR/WD-xsl&quot;>

<xsl:template match=&quot;.&quot;>
<xsl:apply-templates select=&quot;.//pif&quot; />
</xsl:template>

<xsl:template match=&quot;pif&quot;>
<INPUT TYPE=&quot;TEXT&quot; SIZE=&quot;15&quot;>
<xsl:attribute name=&quot;NAME&quot;>
Available_
<xsl:value-of select=&quot;@pin&quot; />
</xsl:attribute>
<xsl:attribule name=&quot;VALUE&quot;>
<xsl:value-of select=&quot;./pa[@ia='1']&quot; />
</xsl:attribute>
</INPUT>
</xsl:template>
</xsl:stylesheet>

I would like this:
...

<xsl:attribule name=&quot;VALUE&quot;>
<xsl:eval language=&quot;VBScript&quot;>
My_Function(&quot;./pa[@ia='1']&quot
</xsl:eval>
</xsl:attribute>
...
<xsl:script language=&quot;VBScript&quot;>
<![CDATA[

function My_Function(e)

Dim iText

iText = e + 'is ...'

My_Function = iText

End function
]]>
</xsl:script>


but not work.
Somebody can help me?


I need get a node value and pass it to a function in VBScript.

How to obtain this value and to call the function?

Thanks a lot!!

Luciana