vbscript in xsl

mgriffith · Sep 24, 2001

i have been using basic xml on my navigation bar system...i have a couple of different navigation bars...the xml file for the navigation bar is selected through an asp script then parsed with a stylesheet throught the asp. i want to convert my entire site to xml. how can i write a script in the main xsl to choose which navbar to include? it uses request.querystring, session variables, and a few other basic vbscript commands. can i combine xsl:script and xsl:include and if so, how would i go about doing that?

here's basically what i have now

asp file for page i want to display
...<td></td>...

navbar.asp
...if Request.QueryString("campus&quot

.Count > 0 then session("person&quot

="campus" end if...
...if session("person&quot

="campus" then
varfile="campus.xml"...
...set xml = Server.CreateObject("Microsoft.XMLDOM&quot

xml.async = false
xml.load(Server.MapPath("/Menu/" & varfile))
set xsl = Server.CreateObject("Microsoft.XMLDOM&quot

xsl.async = false
xsl.load(Server.MapPath("/Menu/menu.xsl&quot

)
Response.Write(xml.transformNode(xsl))

the stylesheet and xml are very basic...they just write out a fancy table using <menuitem>'s in the xml file

thanks for all your help

wujen · Sep 25, 2001

mgriffith,

have you tried

<msxsl:script> tag

here is an example:

<?xml version="1.0" encoding="iso-8859-1"?>
<?xml-stylesheet type="text/xsl" href="conversion.xsl"?>
<dimension>
the size of the pictures are<inches>5<inches> by <inches>12</inches>
</dimension>
</xml>

this is the conversion.xsl

<xsl:stylesheet
xmlns:xsl="

http://www.w3c.org/1999/XSL/Transform"

version="1.0"
xmlns:extra="urn:extra-function"
>
<msxml:script xmlns:msxsl="urn:schemas-microsoft-com:xslt"
language:"VBScript"
implements-prefix="extra"
>

Function ToMM(inches)
ToMM= inches * 2.54
End Function

</msxsl:script>
<xsl

uput method="html"/>
<xsl:template match="/">
<html><body><p>
<xsl:apply-templates/>
</p></body></html>
</xsl:template>
<xsl:template match="inches">
<xsl:text> </xsl:text>
<xsl:value-of select="format-number(extra:ToMM(number(.)),'0.00)"/>
<xsl:text>mm </xsl:text>
</xsl:template>
</xsl:stylesheet>

this would be the converted text:
The size of the picture is 127.00mm by 304.00mm.

msxsl:script can also call COM/COM+ objects if they are part of the registry.
This can be added to your asp files as well by the calling the xsl file

Aaron

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

vbscript in xsl

mgriffith

MIS

wujen

Programmer

Similar threads

Part and Inventory Search

Sponsor