PROCEDURE                                         expert_http IS
  req   UTL_HTTP.REQ;
  resp  UTL_HTTP.RESP;
  value VARCHAR2(1024);
  url   VARCHAR2(32767);
  OPT   varchar2(1000);
BEGIN
 --URL := 'https://www.experttexting.com/exptapi/exptsms.asmx/SendSMS?Userid=MAC'||'&'||'pwd=1833334'||'&'||'APIKEY=efff50e05dc145'||'&'||'FROM=DEFAULT'||'&'||'To=96599464527'||'&'||'MSG=This is a Test mail';
   URL := 'https://www.experttexting.com/exptapi/exptsms.asmx/SendSMS?Userid=MAC&pwd=1833334&APIKEY=efff50e05dc145&FROM=DEFAULT&To=96599464527&MSG=This is a Test mail';
 DBMS_OUTPUT.PUT_LINE(URL);
 req := UTL_HTTP.begin_REQUEST(url);
 UTL_HTTP.SET_HEADER(req, 'User-Agent', 'Mozilla/4.0');
 resp := UTL_HTTP.GET_RESPONSE(req);
 begin
  LOOP
   UTL_HTTP.READ_LINE(resp,value,TRUE);
   DBMS_OUTPUT.PUT_LINE(value);
  END LOOP;
   UTL_HTTP.END_RESPONSE(resp);
		EXCEPTION
  	WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(resp);
 end ;
END;