Просто кусочек кода:
/*
lo_xmlhttp = CREATE oleobject
lo_xmlhttp.ConnectToNewObject('MSXML2.XMLHTTP')
lo_xmlhttp.Open ('POST', s_postdata, FALSE)
lo_xmlhttp.send ('')
*/

Проблема с send, ежели сервер бизи или потерялась конекшн (отключил провод от нэтворка)
Билдэр крутитса пары секунд а потом уходит в "systemerror" ивент.

Что нибудь типа:
If lo_xmlhttp.readyState <> 4 then
lo_xmlhttp.waitForResponse = 2
End If

If (lo_xmlhttp.readyState <> 4) Or (lo_xmlhttp.Status <> 200) Then
lo_xmlhttp.Abort()
lo_xmlhttp.disconnectObject()
DESTROY lo_xmlhttp
RETURN
END IF


Туды её в качель...