global type f_internet_char_converter from function_object
end type

forward prototypes
global function string f_internet_char_converter (string as_text, integer ai_incod_uncode)
end prototypes

global function string f_internet_char_converter (string as_text, integer ai_incod_uncode);
// PARAM ai_incod_uncode = 0: from %D7%A6%D7%99%D7%A0%D7%95%D7%A8 to HEB
// PARAM ai_incod_uncode = 1: from HEB to %D7%A6%D7%99%D7%A0%D7%95%D7%A8 

OleObject wsh
Integer  li_rc
string ls_temp

wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.language = "javascript"

IF ai_incod_uncode = 1 THEN
	ls_temp = wsh.Eval("encodeURIComponent('" + as_text + "')")
ELSE
	ls_temp = wsh.Eval("decodeURIComponent('" + as_text + "')")
END IF

RETURN ls_temp

end function