Send XML og modtag svar

Hejsa,

Kan nogle af jer se fejl i denne kode ?
Jeg får nemlig ikke korrekt svar tilbage... Kan det være forkert encodning ? Eller mangler der noget ?

<%
Dim xml
Set xml = Server.CreateObject("Msxml2.XMLHTTP.4.0")

xmldata = "<?xml version=""1.0""?>" &_
"<whapi xmlns=""http://www.test.org/whapi"">" &_
"  <command>" &_
"      <hello />" &_
"  </command>" &_
"</whapi>"

xmldata = Server.URLEncode(xmldata)

xml.Open "POST", "https://test.org:474/", False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send xmldata

Response.Write xml.ResponseText
%>