调用WEBSERVICE 出错 (附详细代码)

调用WEBSERVICE 出错 ,请高手指正url = "http://test.lovehua.com/getdata.asmx"
host = "test.lovehua.com"
SOAPAction = "http://tempuri.org/GetData/Get_PeiZaiID"
returnnode = "pfdep"
returnnode1 = "pfno"strxml = "<?xml version='1.0' encoding='utf-8'?>"
strxml = strxml & "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>"
strxml = strxml & " <soap:Body>"
strxml = strxml & "    <Get_PeiZaiID xmlns='http://tempuri.org/GetData'>"
strxml = strxml & "      <UID>TEST</UID>"
strxml = strxml & "      <pwd>123</pwd>"
strxml = strxml & "      <SDATE>" & "2007-1-1" & "</SDATE>"
strxml = strxml & "      <EDATE>2007-1-10</EDATE>"
strxml = strxml & "    </Get_PeiZaiID>"
strxml = strxml & "  </soap:Body>"
strxml = strxml & "</soap:Envelope>"SoapRequest = strxmlDim XMLHTTP As New MSXML2.XMLHTTPXMLHTTP.Open "POST", url, False
XMLHTTP.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
XMLHTTP.setRequestHeader "HOST", host
XMLHTTP.setRequestHeader "Content-Length", Len(SoapRequest)
XMLHTTP.setRequestHeader "SOAPAction", SOAPAction
 '一定要与WEBSERVICE的命名空间相同，否则服务会拒绝
XMLHTTP.Send (SoapRequest)
'这样就利用XMLHTTP成功发送了与SOAP示例所符的SOAP请求.
'检测一下是否成功：MsgBox XMLHTTP.Status   '返回200是成功    
    Dim xmldoc As New MSXML2.DOMDocument
    
    xmldoc.Load (XMLHTTP.responseXML)
    Response.Write (xmldoc.xml)If XMLHTTP.Status = 200 Then
    Set xmldoc = server.CreateObject("MSXML.DOMDocument")
    xmldoc.Load (XMLHTTP.responseXML)
   MsgBox xmldoc.xml            '显示收到的所有信息
    Else
    MsgBox XMLHTTP.Status
    MsgBox XMLHTTP.StatusText
End If