DXLExport, XSLTransform для Web-service

Dim filename As String
Dim file_out As String
Dim importer As NotesDXLImporter
Dim stream As NotesStream
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Sub Initialize
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim transform As NotesXSLTransformer
 
Set db = s.CurrentDatabase
Set doc=w.Currentdocument.Document
 
Dim stream_in As NotesStream
Dim stream_out As NotesStream
Dim emptyStream As NotesStream
 
Set stream_in = s.CreateStream
Set stream_out = s.CreateStream
Set emptyStream= s.CreateStream
filename$ = "D:\svg2gfx-symple.xsl"
file_out$ = "d:\test.xml"
If Not stream_in.Open(filename$) Then
MessageBox "не могу открыть " & filename$,, "Error"
Exit Sub
End If
 
If Not stream_out.Open(file_out$) Then
MessageBox "Не могу открыть " & file_out$,, "Error"
Exit Sub
End If
 
Call emptyStream.Truncate
 
Dim exporter As NotesDXLExporter
Set exporter = s.CreateDXLExporter(doc, emptyStream)
 
Set transform=s.Createxsltransformer(emptyStream, stream_in, stream_out)
Call transform.Process()
End Sub

Set stream_in = s.CreateStream
filename$ = "D:\svg2gfx-symple.xsl"
If Not stream_in.Open(filename$) Then
MessageBox "не могу открыть " & filename$,, "Error"
Exit Sub
End If

    Set emptyStream= s.CreateStream
Call emptyStream.Truncate
 
Dim exporter As NotesDXLExporter
Set exporter = s.CreateDXLExporter(doc, emptyStream)
Call exporter.Process
 
Set transform=s.Createxsltransformer(emptyStream, xsl, xml)
Call transform.Process

Set transform=s.Createxsltransformer(emptyStream, xsl_1, stream)
Call transform.Process
 
Set transformer=s.Createxsltransformer(stream, xsl_2, xml)
Call transformer.Process

Dim s As New NotesSession
Dim exporter As NotesDXLExporter
Set exporter = s.CreateDXLExporter(doc)
Set transformer1 = s.Createxsltransformer(exporter, xsl_1)
Set transformer2 = s.Createxsltransformer(transformer1, xsl_2, xml)
Call exporter.Process()