XML duplicate empty namespace in child nodes. Why ?

I want to create in VB6 a KML file for import in Google Earth.

Following the template for KML file (http://code.google.com/apis/kml/documentation/kml_tut.html) I must specify a namespace in root element.

<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
  <Placemark>
    <name>Simple placemark</name>
    <description>Attached to the ground. Intelligently places itself
       at the height of the underlying terrain.</description>
    <Point>
      <coordinates>-122.0822035425683,37.42228990140251,0</coordinates>
    </Point>
  </Placemark>
</kml>

But after execute my program (see code) I have this result:

<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type='text/xml' href='test.xsl'?>
      <!-- sample xml file created using XML DOM object.-->
<root xmlns="http://earth.google.com/kml/2.0" created="2007.12.05" language="vb6">
      <node1 xmlns="">some character data</node1>
            <node2 xmlns="">
                  <![CDATA[ <some mark-up text>]]>
            </node2>
      <node3 xmlns="">
            <subNode1 />
            <subNode2 test="wow">other character data</subNode2>
            <subNode3 />
      </node3>
</root>

As you can see, xmlns attribute (xmlns="") is repeated in every child node but I don't want.
Any idea so tolve the problem ?


Set DOM = New DOMDocument60
  
  With DOM
    .async = False
    .preserveWhiteSpace = False
    .resolveExternals = False
    .validateOnParse = False
  End With
  
  ' Create a processing instruction targeted for xml.
  Set ProcessingInstruction = DOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
  DOM.appendChild ProcessingInstruction
  Set ProcessingInstruction = Nothing
  
  ' Create a processing instruction targeted for xml-stylesheet.
  Set ProcessingInstruction = DOM.createProcessingInstruction("xml-stylesheet", "type='text/xml' href='test.xsl'")
  DOM.appendChild ProcessingInstruction
  Set NodeElement = Nothing
  
  ' Create a comment for the document.
  Set Comment = DOM.createComment("sample xml file created using XML DOM object.")
  DOM.appendChild Comment
  Set Comment = Nothing
  
  ' Create the root element
  Set RootElement = DOM.createElement("root")
  
  Set Attr = DOM.createAttribute("xmlns")
  Attr.Value = "http://earth.google.com/kml/2.0"
  Set Attr = Nothing
  
  ' Create a "created" attribute for the root element and assign the "2007.12.05" character data as the attribute value.
  Set Attr = DOM.createAttribute("created")
  Attr.Value = "2007.12.05"
  RootElement.setAttributeNode Attr
  Set Attr = Nothing
  
  ' Create a "language" attribute for the root element and assign the "vb6" character data as the attribute value.
  Set Attr = DOM.createAttribute("language")
  Attr.Value = "vb6"
  RootElement.setAttributeNode Attr
  Set Attr = Nothing
  
  ' Add the root element to the DOM instance.
  DOM.appendChild RootElement
  
  ' Create and add one more node to the root element just created.
  
  ' Create a text element.
  Set NodeElement = DOM.createElement("node1")
  NodeElement.Text = "some character data"
  
  ' Add text node to the root element.
  RootElement.appendChild NodeElement
  Set NodeElement = Nothing
	
	and so on...

Open in new window

peter1950Asked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
PaulHewsConnect With a Mentor Commented:
Create your root element with a default namespace like so:

 Dim DefaultNS As String
 DefaultNS = "http://earth.google.com/kml/2.0"
 ' Create the root element
 Set RootElement = Dom.createNode(NODE_ELEMENT, "root", DefaultNS)

Now, add your child nodes with the namespace as well:

 ' Create a text element.
 Set nodeElement = Dom.createNode(NODE_ELEMENT, "node1", DefaultNS)
 nodeElement.Text = "some character data"
0
 
peter1950Author Commented:
Thanks
0
All Courses

From novice to tech pro — start learning today.