//Public function of_ordering_http_post (string as_vipsj,string as_url) returns string
//string as_vipsj
//string as_url
long ll_temp
string ls_ref
string responsetext=""
string ls_temp
string ls_writh
string ls_err
oleobject http
//runtimeerror er1
ls_ref = as_url
http = CREATE oleobject
http.connecttonewobject("Microsoft.XMLHTTP")
http.open("post",ls_ref,FALSE)
TRY
http.setrequestheader("If-Modified-Since","0")
CATCH (runtimeerror er1)
END TRY
http.send(as_vipsj)
ll_temp = http.readystate
IF ll_temp <> 4 THEN
DESTROY http
ls_err = ""
ELSE
responsetext = http.responsetext
ls_temp = gfunc.uf_getmiditem(responsetext,",",responsetext)
ls_writh = gfunc.uf_getmiditem(ls_temp,":",ls_temp)
ls_err = mid(ls_temp,2,1)
END IF
IF isvalid(http) = FALSE THEN DESTROY http
RETURN ls_err