//Public function of_ordering_http_get (string as_url) returns string

//string as_url

long ll_temp

string ls_ref

string ls_err

string responsetext=""

oleobject http

//runtimeerror er1

ls_ref = as_url

http = CREATE oleobject

http.connecttonewobject("Microsoft.XMLHTTP")

http.open("GET",ls_ref,FALSE)

TRY

http.setrequestheader("If-Modified-Since","0")

CATCH (runtimeerror er1)

END TRY

http.send()

ll_temp = http.readystate

IF ll_temp <> 4 THEN

DESTROY http

ls_err = "-1"

ELSE

ls_err = http.responsetext

END IF

IF isvalid(http) = FALSE THEN DESTROY http

RETURN ls_err