vbscript and xsl

[kieran]

Hi,

I have a vbscript function and an xsl file and when the vbscript
function is ran it creats the xml value that the xsl file then
transforms. It was done by Sharepoint so I figure there must be a way
for writing this so it works in one asp file. Some way of running the
function then putting the xsl file to transform it and outputting the
results.

I tried putting the xsl into an xsl editor, and then the function into
an xml editor enclosed in the
<SCRIPT language="VBSCR IPT"><![CDATA[
tags but no joy.

Any advice greatly appreciated.

--------------------------------------------------------------
Function GetContent(nod)
On Error Resume Next
'code removed for simplicity'
response.write "<News>" & ..... & "</News>"
End Function

<?xml version="1.0" encoding="UTF-8" ?>
<xsl:styleshe et version="1.0"
xmlns:xsl="http ://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" omit-xml-declaration="no " indent="yes"
encoding="utf-8" />
<xsl:template match="/">
<TABLE>
<xsl:for-each select="Name">
<TR>
<TD valign="top" align="left">
<b><a
href='http://link/'><xsl:value-of select="."/></a></b>
</TD>
</TR>
</xsl:for-each>
</TABLE>
</xsl:template>
</xsl:stylesheet>

[Ray at]

I'm really not sure how this is ASP related. I'd try to put this post in a
more appropriate forum. And when you do, you may want to be a little more
descriptive than "no joy." What does that mean? Are you getting an error?
If so, what? And when doing what? What results do you expect from the
action you're taking? What results are you getting instead? Stuff like
that.

Ray at work

"kieran" <ki********@hot mail.com> wrote in message
news:b3******** *************** ***@posting.goo gle.com...

Hi,

I have a vbscript function and an xsl file and when the vbscript
function is ran it creats the xml value that the xsl file then
transforms. It was done by Sharepoint so I figure there must be a way
for writing this so it works in one asp file. Some way of running the
function then putting the xsl file to transform it and outputting the
results.

I tried putting the xsl into an xsl editor, and then the function into
an xml editor enclosed in the
<SCRIPT language="VBSCR IPT"><![CDATA[
tags but no joy.

Any advice greatly appreciated.

--------------------------------------------------------------
Function GetContent(nod)
On Error Resume Next
'code removed for simplicity'
response.write "<News>" & ..... & "</News>"
End Function

<?xml version="1.0" encoding="UTF-8" ?>
<xsl:styleshe et version="1.0"
xmlns:xsl="http ://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" omit-xml-declaration="no " indent="yes"
encoding="utf-8" />
<xsl:template match="/">
<TABLE>
<xsl:for-each select="Name">
<TR>
<TD valign="top" align="left">
<b><a
href='http://link/'><xsl:value-of select="."/></a></b>
</TD>
</TR>
</xsl:for-each>
</TABLE>
</xsl:template>
</xsl:stylesheet>

[Chris Hohmann]

"kieran" <ki********@hot mail.com> wrote in message
news:b3******** *************** ***@posting.goo gle.com...

Hi,

I have a vbscript function and an xsl file and when the vbscript
function is ran it creats the xml value that the xsl file then
transforms. It was done by Sharepoint so I figure there must be a way
for writing this so it works in one asp file. Some way of running the
function then putting the xsl file to transform it and outputting the
results.

I tried putting the xsl into an xsl editor, and then the function into
an xml editor enclosed in the
<SCRIPT language="VBSCR IPT"><![CDATA[
tags but no joy.

Any advice greatly appreciated.

--------------------------------------------------------------
Function GetContent(nod)
On Error Resume Next
'code removed for simplicity'
response.write "<News>" & ..... & "</News>"
End Function

<?xml version="1.0" encoding="UTF-8" ?>
<xsl:styleshe et version="1.0"
xmlns:xsl="http ://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" omit-xml-declaration="no " indent="yes"
encoding="utf-8" />
<xsl:template match="/">
<TABLE>
<xsl:for-each select="Name">
<TR>
<TD valign="top" align="left">
<b><a
href='http://link/'><xsl:value-of select="."/></a></b>
</TD>
</TR>
</xsl:for-each>
</TABLE>
</xsl:template>
</xsl:stylesheet>

Use the DOMDocument.loa dXML method instead of the DOMDocument.loa d method to
load the XSL document from a string. I don't envy the task, you're going to
have to escape all the quotes contained in the XSL document. Here's a link
to the documentation for loadXML:

http://www.msdn.microsoft.com/librar...mthloadXML.asp

[kieran]

Cheers for that Chris.

You pointed me in the right direction and i got it working.

Heres the code for others -

<%

'Removes the SERVER NAME that is returned with the USERNAME
strNTUser = Trim(Request.Se rverVariables(" LOGON_USER"))
iPos = Len(strNTUser) - InStr(1, strNTUser, "\", 1)
strNTUser = Right(strNTUser , iPos)
strSQLUser = Replace(strNTUs er,"_"," ")
strSQLUser=UCas e(strSQLUser)

Dim sXML
Dim oDoc
sXML = "<?xml version=""1.0"" ?><name>" & strSQLUser & "</name>"
'Call the function - server.mappath means the file is in the root.
'loadXMLFile server.MapPath( "test.xml"),ser ver.MapPath("te st.xsl")

loadXMLFile SXML,server.Map Path("test.xsl" )
Function loadXMLFile(str XMLFile, strXSLFile)

'Declare local variables
Dim objXML
Dim objXSL
'Instantiate the XMLDOM Object that will hold the XML file.
set objXML = Server.CreateOb ject("Microsoft .XMLDOM")

'Turn off asyncronous file loading.
objXML.async = false

'Load the XML file.
objXML.loadXML( strXMLFile)
'Instantiate the XMLDOM Object that will hold the XSL file.
set objXSL = Server.CreateOb ject("Microsoft .XMLDOM")

'Turn off asyncronous file loading.
objXSL.async = false

'Load the XSL file.
objXSL.load(str XSLFile)
'Use the "transformN ode" method of the XMLDOM to apply the
'XSL stylesheet to the XML document. Then the output is
'written to the client.
Response.Write( objXML.transfor mNode(objXSL))
End Function

%>