Teach Yourself e.net - Syspro

Example 10.32. Calling the Build Method in ASP.NET VB codebehind
'********************************************************
'-- Build does a build using the special xml string
' provided as input and returns xml/html
'********************************************************
'Parameters:
'Uid:- GUID returned by Logon
'BusObject:- business object used to
'
do query
'XmlIn:- The xml to be used in query - can have a
'
xsl directive
'XmlTransform:- Parameter will specify if
' server/client side transform is required
'XslIn:- The XLS used to transform the
' incomming xml preferably as a server
' path ie. "c:\......mac.xsl"
'ContentType:- ByRef parameter
' representing the content type to be returned by IIS
'********************************************************
'Returns:_ Whatever the transform does with
' the xml, used mostly to generate HTML.
'********************************************************
Function Build(ByVal Uid As String, ByVal BusObject \
As String, ByVal XmlIn As String, ByVal XmlTransform \
As String, ByVal XslIn As String, ByRef ContentType As \
String) As String
Try
'Case statement to toggle between server/client
'side transform
Select Case XmlTransform
Case "C" 'Prefers a client side transform
ContentType = "text/xml"
Return SysproBuild(Uid, BusObject, XmlIn)
Case "S" 'Prefers a server side transform (Default)
ContentType = "text/html"
Return Transform(SysproBuild(Uid, BusObject, XmlIn), XslIn)
End Select
Catch Exc As Exception
Return "" & Exc.Message & " \
"
End Try
End Function
10–46