Teach Yourself e.net - Syspro

Sample Applications
Example 10.28. Creating the Transform Function in ASP.NET VB
codebehind
'********************************************************
'-- Transform does a server-side transform of an xml
' string and returns HTML --
'********************************************************
'Parameters:
'xmlin:- The xml to be transformed - can have a xsl
' directive
'xslin:- The xsl used to transform the incomming xml
' preferably as a server path ie. "c:\....mac.xsl"
'********************************************************
'Returns:- Whatever the transform does with the xml,
'
used mostly to generate HTML.
'********************************************************
Function Transform(ByVal xmlin As String, ByVal xslin \
As String) As String
Dim xmlout As String
Dim Navigator As XPath.XPathNavigator
Dim Reader As XmlReader
Dim Xmldoc As New XmlDocument()
Dim Trans As New XslTransform()
Dim Builder As New StringBuilder()
Try
Xmldoc.LoadXml(xmlin)
Trans.Load(xslin)
Navigator = Xmldoc.CreateNavigator()
Reader = Trans.Transform(Navigator, Nothing)
While Reader.Read = True
Builder.Append(Reader.ReadInnerXml)
End While
Return Builder.ToString
Catch Exc As Exception
Return "" & Exc. \
Message & " \
"
End Try
End Function
10–41