OLEObject dom, HTTP
String Http_Name, result
Try
Http_Name="HTTP://http://... "
Dom=CREATE OLEObject
HTTP=CREATE OLEObject

If HTTP. ConnectToNewObject (" Msxml2. XMLHTTP ") & lt;> 0 then
MessageBox (" HTTP ", "Error")
End the if

If the dom. ConnectToNewObject (" Msxml2. DOMDocument ") & lt;> 0 then
MessageBox (' dom, "Error")
End the if

The dom. The Load (" c: \ dept. XML ")

HTTP. Open (" POST ", Http_Name, TRUE)

HTTP. Send (dom) XML)

The do while HTTP. ReadyState & lt;> 4//'query condition, delay
The Yield ()
Loop

Result=HTTP. The responseText//this test! You don't write
MessageBox (" result ", result)

Dom. DisconnectObject ()
HTTP. DisconnectObject ()
DESTROY the dom
DESTROY the HTTP
The Catch (RuntimeError rte)
MessageBox (' run-time error 'rte. GetMessage (), Information! , OK! The 1)
Return
End the try
An error has occurred at runtime, the error calling external object function the send

please ace to give advice or comments
Is it because I'm to Http_Name is not true?