function loadByAJAX(form) {
    var xmlHttpObject = null;
    if(window.XMLHttpRequest) { // safari,firefox
        xmlHttpObject = new XMLHttpRequest();
    } else if (window.ActiveXObject) {
        try{
            xmlHttpObject = new ActiveXObject("Msxml2.XMLHTTP");
        }catch(e){
            try{
                xmlHttpObject = new ActiveXObject("Microsoft.XMLHTTP");
            }catch(e){
            }
        }
    }
    if (!xmlHttpObject) {
        return false;
    }
    xmlHttpObject.onreadystatechange = function() {
        var result = document.getElementById("result");
        if ((xmlHttpObject.readyState == 4) &&
            (xmlHttpObject.status == 200)) {
            if (xmlHttpObject.responseText.match(/<table(?:.|\n)*<\/table>/i)) {
                result.innerHTML = RegExp.lastMatch;
            }
        }
    };
    xmlHttpObject.open("GET", "/cgi-bin/r_info.cgi?"+
                       "filename=heng.r_info.txt&"+
                       "query="+form.query.value, true);
    xmlHttpObject.send(null);
}