// JScript File

    var a_page = 'APage.aspx';

    function set_location(url){
        location=url;
    }
    function init(){
        if(top!=window){
            if(typeof(top.set_location)!="undefined")
                top.set_location(window.location);
        }else{
            RSExecute(a_page,'Empty',empty,cbError,'');
        }
    }
    
	function cbError(co) {
        alert("Error callback fired.");
        if (co.message) {
	        alert("Context:" + co.context + "\nError: " + co.message);
        }
    }
	function clear_record(f,c){
        var a = f.split('|');
        var count = a.length;
        if(count){
            for (var i=0;i<count;i++) {
                var ctl = get_element(c+a[i]);
                if(ctl && ctl.value) {
                    ctl.value = '';
                }
            }
        }
    }
    function validate_record(id,f,c,v){
        var a = f.split('|');
        var a2 = v.split('|');
        var count = a.length;
        var ret = false;
        if(count){
            for (var i=0;i<count;i++) {
                var iid=c+id+a[i];
                if(!validate(iid,eval(a2[i]))){
                    if(!ret){
                        set_focus(iid);
                    }
                    ret = true;
                }
            }
            if(ret){
                return false;
            }
        }
        send_record(id,f,c);
    }
    function send_record(id,f,c){
        var a = f.split('|');
        var count = a.length;
        if(count){
            var v = get_element(c+id+a[0]).value;
            for (var i=1;i<count;i++) {
                var ctl = get_element(c+id+a[i]);
                if(ctl.tagName=='SELECT'&&ctl.multiple){
                    var os = ctl.options;
                    var ocount = os.length
                    v+='|p|';
                    for (var oi=0;oi<ocount;oi++) {
                        if(os[oi].selected){
                            v+=''+os[oi].value+',';
                        }
                    }
                }else if(ctl.tagName=='IFRAME'){
                    v+='|p|'+ctl.contentWindow.GetValue();
                }else{
                    v+='|p|'+ctl.value;
                }
            }
            send_record_arr(id,f,v,c);
        }

    }
    function send_record_arr(id,f,v,c){
        RSpostExecute(a_page,'SendRecord',id,f,v,c,write_request,cbError,'');
    }
    function event_stop(e){
        if(e.stopPropagation){ e.stopPropagation(); }
	        e.cancelBubble = true;
        if(e.preventDefault){ e.preventDefault(); }
            e.returnValue = false;
        return false
    }
    function write_request(co){
        var count = co.a.length;
        if(count){
            for (var i = 0; i < count; i++) {
                var ctl = get_document_element(co.d, co.a[i]);
                writit(co.a[i], ctl.innerHTML);
            }
            if(co.f){
                var t=get_element(mp_top);
                if(t){
                    t.focus();
                }
            }
        }
    }
    function empty(){;}