bonfire

[sunshine72]

I am having problems creating my XMLDOM request, when requesting the XML, it is = nothing. Any help would be much appreciated! Here is my code:

Set objXML=Server.CreateObject("MSXML2.DOMDocument.3.0")
set oRoot=objXML.createElement("COMMAND")      
    set objXML.documentElement = oRoot
    objXML.appendChild oRoot            
       Set oField = objXML.createElement("retrieveInfoRequest cmdType=""request"" cmdMode=""alwaysRespond"" echoback=""false"" ")
         set oChild =  objXML.createElement("searchCriteria")
        oField.appendchild oChild
                set oChild1 = objXML.createElement("VehicleModelSearchCriteria")
        oField.appendchild oChild
            set oChild2 = objXML.createElement("queryDetails")
                         set oChild3 = objXML.createElement("QueryDetails")
                     set oChild4 = objXML.createElement("numberOfRecordsRequested")
                    oChild.Text = "1" 
                     oChild3.appendChild(oChild4)
                     oChild2.appendChild(oChild3)
                 oChild1.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("company")
                 oChild.Text = "01"    
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("coveredObject")
                         set oChild3 = objXML.createElement("CoveredObjectCategoryName")
                     oChild.Text = "IO" 
                  oChild2.appendChild(oChild3)
                 oChild1.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("effectiveDate")
                 oChild.Text = "20080508"            
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("interfaceVersion")
                 oChild.Text = "1.0.0.0"                
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("make")
                 oChild.Text = "FORD"            
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("modelYear_Date")
                 oChild.Text = "1998"            
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("productCode")
                         set oChild3 = objXML.createElement("ProductCode")
                     oChild.Text = "00" 
                  oChild2.appendChild(oChild3)
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("ratingTypeCategory")
                         set oChild3 = objXML.createElement("RatingTypeCategoryName")
                     oChild.Text = "REN" 
                  oChild2.appendChild(oChild3)
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("state_String")
                 oChild.Text = "34"    
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
            set oChild2 = objXML.createElement("vehicleIdentificationNumberPattern")
                 oChild.Text = "1GNCT18W6WK226146"        
                 oChild.appendChild(oChild2)
                 oChild.appendChild(oChild1)
        oField.appendchild oChild
    oRoot.appendChild oField
    objXML.async = False
If  objXML Is 0 Then
    Response.Write("objXML is nothing")
    Response.End
Else
    Response.Write(objXML)    
    Response.End
End If

I am trying to write an XML that looks like this (with the <xxxx>) -

<COMMAND>
    <retrieveInfoRequest cmdType="request" cmdMode="alwaysRespond" echoBack="true">
        <searchCriteria>
            <VehicleModelSearchCriteria>
                <queryDetails>
                    <QueryDetails>
                        <numberOfRecordsRequested>1</numberOfRecordsRequested>
                    </QueryDetails>
                </queryDetails>
                <company>01</company>
                <coveredObject>
                    <CoveredObjectCategoryName>IO</CoveredObjectCategoryName>
                </coveredObject>
                <effectiveDate>20080508</effectiveDate>
                <interfaceVersion>1.0.0.0</interfaceVersion>
                <make>CHEV</make>
                <modelYear_Date>2005</modelYear_Date>
                <productCode>
                    <ProductCode>riskType</ProductCode>
                </productCode>
                <ratingTypeCategory>
                    <RatingTypeCategoryName>REN</RatingTypeCategoryName>
                </ratingTypeCategory>
                <state_String>09</state_String>
                <vehicleIdentificationNumberPattern>1234567890ABCDEFG</vehicleIdentificationNumberPattern>
            </VehicleModelSearchCriteria>
        </searchCriteria>
    </retrieveInfoRequest>
</COMMAND>