Anyone can help with adding data to TextML server?

[arachno]

Hello ppl,

Is anyone can help me to figure out how to add data to TextML server
document base?
I have attached snipped, which taking XML source from file and adding it to
documentbase, but my problem is, that i need to add it on "fly", without
touching file system.

Cheers,
arachno

------[Code Snippet] ---------------------

'TEXTML Server Document Types
Const TEXTML_DOCUMENT = 1
Const TEXTML_SYSTEM_D OCUMENT = 2

'TEXTML Server SetDocuments AddFlags
Const TEXTML_ADD_DOCU MENT = 1
Const TEXTML_REPLACE_ DOCUMENT = 2
Const TEXTML_INDEX_DO CUMENT = 4

Sub Main
On Error Resume Next
Debug.Clear
Dim ClientSrv
Dim ServerSrv
Dim DocBaseSrv
Dim DocumentSrv
Dim DocList
Dim FileSys
Dim xmlFolder
Dim PersistFile As New PersistFile
Dim Files
Dim Document

'Connect to server
Set ClientSrv = CreateObject("T extmlServer.Cli entServices")
Set ServerSrv = ClientSrv.Conne ctServer("arach no")

'Connect to Document Base
Set DocBaseSrv = ServerSrv.Conne ctDocBase ("demo")

'Get the document services of the Document Base
Set DocumentSrv = DocBaseSrv.Docu mentServices

'Create a list object that will contain the list of documents to add
Set DocList = CreateObject("I xiaComponents.D ynamicList")

'Process the files in the folder
Set PersistFile = CreateObject("I XIAComponents.P ersistFile")
PersistFile.Loa dFromFile "C:\garbage\dem os\acc.xml"
Debug.Print PersistFile.Con tent
Set Document = CreateObject("T extmlServer.Doc ument")
Document.Attach Content PersistFile.Det achContent
Document.Name = "acc.xml"
Document.MimeTy pe = "text/xml"
DocList.Add Document


'Set documents
DocumentSrv.Set Documents DocList, TEXTML_ADD_DOCU MENT +
TEXTML_INDEX_DO CUMENT, TEXTML_DOCUMENT
Debug.Print "Documents added"

ErrHandler:
Debug.Print Err.Description
'...handler here...
End Sub