You're welcome
>That worked great. Thanks again Sergey.
>
>>Sure. You've to set IsAttribute=.T. for the fields you want to convert to attributes
>>
>>oXA = CREATEOBJECT("XmlAdapter")
>>oXA.AddTableSchema(lcAlias)
>>* Mark all fields as attributes
>>oFields = oXA.Tables(1).Fields
>>FOR i=1 TO oFields.Count
>> oFields(i).IsAttribute = .T.
>>ENDFOR
>>oXA.ToXML("lcXml")
>>
>>>
>>>I can't seem to find a way for a xmladpater to format the output into attributes. Similar to option "2" which is the third parameter using cursortoxml(). Is that possible?
>>>
--sb--