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?
>>