Vbsript Anhägen eines XML Attributes

Set xmlDoc = CreateObject("Microsoft.XMLDOM")  
xmlDoc.async = False
xmlDoc.load"C:\AutogenDescriptions.xml"  

Set xmlRoot = xmlDoc.documentElement

If xmlDoc.SelectSingleNode("//ModelEntry[@id='{0719dc48-2a4a-44e5-80a2-c7fb58e53742}' and @Version='2,0']") is Nothing Then  

Set xmlNode = xmlDoc.createElement("ModelEntry")  
xmlNode.setAttribute "id", "{0719dc48-2a4a-44e5-80a2-c7fb58e53742}"  
xmlNode.setAttribute "Version", "2,0"  
            
	    nodeInsert.appendChild(xmlCLASS)
            xmlCLASS.appendChild(xmlNode)

Set xmlNode = xmlDoc.createElement("FriendlyName")  
	    xmlNode.Text = "veg_tb_bush_swamp_set_01"  
	    xmlCLASS.appendChild(xmlNode)
	    Set xmlNOde = xmlDoc.createElement("MaxScale")  
	    xmlNode.Text = "110.000"  
	    xmlCLASS.appendChild(xmlNode)
	    Set xmlNode = xmlDoc.createElement("MinScale")  
	    xmlNode.Text = "90.000"  
	    xmlCLASS.appendChild(xmlNode)
            nodeInsert.appendChild(xmlCLASS)

            Set xmlNode = xmlDoc.createElement("SeasonEntry")  
            xmlCLASS.appendChild(xmlNode)
            Set xmlNode = xmlDoc.createElement("ModelGuid")  
            xmlNode.Text = "{3BEB5901-246C-44C7-8905-83DFA7612203}"  
            xmlCLASS.appendChild(xmlNode)
            Set xmlNode = xmlDoc.createElement("Season")  
            xmlNode.Text = "FALL"  
            xmlCLASS.appendChild(xmlNode)
            Set xmlNode = xmlDoc.createElement("ModelGuid")  
            xmlNode.Text = "{3BEB5901-246C-44C7-8905-83DFA7612203}"  
            xmlCLASS.appendChild(xmlNode)
            nodeInsert.appendChild(xmlCLASS)


	
	    xmlDoc.Save"C:zATi\AutogenDescriptionsTest.xml"  
	

Set xmlDoc = Nothing
End if