// Create a "created" attribute for the <root> element, and
// assign the "using dom" character data as the attribute value.
bstr = SysAllocString(L"created");
var = VariantString(L"using dom");
HRCALL(pXMLDom->createAttribute(bstr,&pa), "");
HRCALL(pa->put_value(var), "");
HRCALL(pRoot->setAttributeNode(pa, &pa1), "");
AppendChildToParent(pRoot, pXMLDom);
SysFreeString(bstr);
bstr=NULL;
if (pa1) {
pa1->Release();
pa1=NULL;
}
pa->Release();
pa=NULL;
VariantClear(&var);