Hantera XML -Err.Number 424

Hejsan!
Håller på att integrera en kreditkontrollsfunktion.. Det har fungerat bra nu ett tag tills företagsnamnen börja innehålla & (ampersand).

Jag förstår inte riktigt varför min funktion inte tar bort &?

'HTML Decode
Function HTMLDecode(sText)
 sText = Replace(sText, """, Chr(34))
 sText = Replace(sText, "<"  , Chr(60))
 sText = Replace(sText, ">"  , Chr(62))
 sText = Replace(sText, "&" , Chr(38))
 sText = Replace(sText, " ", Chr(32))
 For I = 1 to 255
  sText = Replace(sText, "&#" & I & ";", Chr(I))
 Next
 HTMLDecode = sText
End Function

 RequestXML = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
 "  <SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:m0=""http://model.webservices.lindorff.no"">" & _
 "    <SOAP-ENV:Body>" & _
 "      <m:getInformation xmlns:m=""urn:DecisionMakerWebServices"" SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" & _
 "        <user xsi:type=""xsd:string"">XXXXXX</user>" & _
 "		 <passWord xsi:type=""xsd:string"">XXXXXXXX</passWord>" & _
 "		 <applicant xsi:type=""m0:DmWSApplicant"">" & _
 "	 	   <ssn xsi:type=""xsd:string"">?????????</ssn>" & _
 "		   <type xsi:type=""xsd:string"">F</type>" & _
 "		 </applicant>" & _
 "		 <handlerName xsi:type=""xsd:string"">alpha:alle_web_co:xml:server</handlerName>" & _
 "      </m:getInformation>" & _
 "    </SOAP-ENV:Body>" & _
 "  </SOAP-ENV:Envelope>"

 Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

 objHTTP.Open "POST", "https://www.lindorffd.com/webservices/services/DecisionMakerWebServices", False
 objHTTP.setRequestHeader "Content-Length", len(RequestXML)
 objHTTP.setRequestHeader "Content-Type", "text/xml; charset=UTF-8"
 objHTTP.setRequestHeader "SOAPAction", "https://www.lindorffd.com/webservices/services/getInformation"
 objHTTP.send(RequestXML)

 on error resume next

 Set foo = objHTTP.responseXML
 For Each multiRef In foo.selectNodes("soapenv:Envelope/soapenv:Body/multiRef")
  If multiRef.getAttribute("id") = "id1" Then

   Set objXML = Server.CreateObject("Microsoft.XMLDOM")
   objXML.async=false
   objXML.loadXML(HTMLDecode(multiRef.selectsinglenode("//informationResult").XML))

   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/Name").getAttribute("value")
   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/PersonalNbr").getAttribute("value")
   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/Address").getAttribute("value")
   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/PostalNbr").getAttribute("value")
   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/PostalText").getAttribute("value")     
   
   Response.Write objXML.selectsinglenode("//info/exti/alpha/ba/SumPaymentRemarks/PaymentRemarks").getAttribute("value")   
   Response.Write  objXML.selectsinglenode("//info/exti/alpha/ba/SumPaymentRemarks/Sum").getAttribute("value") 
   UCOK = True

  End If  
 Next

 on error goto 0

 Set objHTTP = Nothing
 Set foo = Nothing

Jag plockade bort lite felmeddelandehantering för att det inte skall se så stökigt ut i koden

Mvh // Paul

kom igen nu någon måste ju stött på detta tidigare..
Borde man inte kunna göra en replace på hela xmlen där man helt enkelt plocka bort &

Får du alltså felmeddelandet "Err.Number 424", på vilken rad?
Att bygga XML med strängar är att be om problem...
Använd en parser i stället så slipper du sådana här problem.
Det viktiga är att &-tecken skrivs ut som entity & i den färdiga XML-klumpen.

Får problemet när jag skall loada XMLen, men kör jag error resume next så får jag felet på raden "Response.Write objXML.selectsinglenode("//info/exti/alpha/ho/CompanyInfo/Name").getAttribute("value")
"

Grejen är att de skickar ju alltid ut svaret på samma vis, så det är ju inga problem att läsa det så här, men det är just det tecknet som strular till det. fattar inte varför replacen inte löser problemet..

Felet är att du kör hela XML-koden genom funktionen HTMLDecode() som strular till allt.

Ja tyvär så måste jag ju det för att den xml jag får innehåller en xml som är htmlencodad... Alltså en XML i en XML, fråga mig inte varför de gjort så för det är helt idiotiskt enligt mig..