dim sobjxml,Retrieval
Set sobjxml= Server.CreateObject("Microsoft.XMLDOM")
sobjxml.async=false
Set Retrieval  = Server.CreateObject("Microsoft.XMLHTTP")

 subaddress="http://127.0.0.1/pos/yeepay.asp?services=<COD-MS>"
 subaddress=subaddress&"<SessionHead>"
 subaddress=subaddress&"<Version>1.0</Version>"
 subaddress=subaddress&"<ServiceCode>COD401</ServiceCode>"
 subaddress=subaddress&"<TransactionID>WDJCOD401201109209406136041</TransactionID>"
 subaddress=subaddress&"<SrcSysID>yeepay</SrcSysID>"
 subaddress=subaddress&"<DstSysID>WDJ</DstSysID>"
 subaddress=subaddress&"<ReqTime>20110920134123</ReqTime>"
 subaddress=subaddress&"<HMAC>63800a0d17df15162f266ca73601c9e8</HMAC>"
 subaddress=subaddress&"</SessionHead>"
 subaddress=subaddress&"<SessionBody>"
 subaddress=subaddress&"<EmployeeID>111</EmployeeID>"
 subaddress=subaddress&"<Password>698d51a19d8a121ce581499d7b701668</Password>"
 subaddress=subaddress&"<PosSn>92991SN2910004</PosSn>"
 subaddress=subaddress&"</SessionBody>"
 subaddress=subaddress&"</COD-MS>"
 

if Retrieval.status<>200 then response.write "页面不存在或发生错误"
response.end
end if

Retrieval.open  "post",subaddress,false
Retrieval.send()
sobjxml.loadxml (Retrieval.responsetext)
Set Retrieval = Nothing
错误类型:
msxml3.dll (0x80004005)
未指定的错误 
/pos/send.asp, 第 31 行
为什么?怎么解?