function crear_elemento(nombre,atributos)
    {
        if ((document.all && navigator.appName.indexOf("Microsoft") >= 0) || nombre=="object") {
            var str = " ";
            if (atributos!="") {
                var arr = atributos.split(";");
                for (var i=0;i < arr.length;i++) {
                    if ((pos = arr[i].indexOf('='))>=0) {
                        var arr2 = arr[i].split("=");
                        if (arr2.length==2) str += arr2[0]+"="+"'"+arr2[1]+"' ";
                        else str += arr2[0]+"="+"'"+arr[i].substring(pos+1,arr[i].length)+"' ";
                    }//if
                }//for
            }//if
            var elemento = document.createElement("<"+nombre+str+">");
        } else {
            var elemento = document.createElement(nombre);
            if (atributos!="") {
                var arr = atributos.split(";");
                for (var i=0;i < arr.length;i++) {
                    if ((pos = arr[i].indexOf('='))>=0) {
                        var arr2 = arr[i].split("=");
                        if (arr2.length==2) elemento.setAttribute(arr2[0],arr2[1]);
                        else elemento.setAttribute(arr2[0],arr[i].substring(pos+1,arr[i].length));
                    }
                }//for
            }//if
        }//else
        return elemento;
    }//crear_elemento

    
    function get_request()
    {
        var req = null;
        if (window.XMLHttpRequest) {
            req = new XMLHttpRequest();
            if (req.overrideMimeType) {
                req.overrideMimeType('text/xml');
            }
        } else if (window.ActiveXObject) {
            try {
                req = new ActiveXObject("Msxml2.XMLHTTP");
            } catch(e){
                try {
                    req = new ActiveXObject("Microsoft.XMLHTTP");
                } catch(e) {}
            }
        }//if
        return req;
    }//get_request
    
       
    
    function validar_email_newcliente(form)
    {
        var enviar = true;
        var men = "";
        var regexp = new RegExp("^[^@]+@[^@]+\.[^@]+$","gi");

        /*
                    if (form.email.value != "" && (!regexp.test(form.email.value) || form.email.value.length > 60)) {
                        men += "Ha de especificar un email válido!!\n";
                        enviar = false;
                    }
                    */        
                    
        if (form.new_usuario.value == "") {
            men += campo_usuario + "\n";
            enviar = false;
        }//if
        
        if (form.new_pwd.value == "") {
            men += campo_pwd + "\n";
            enviar = false;
        }//if
        
        if (form.nombre_razon.value == "") {
            men += campo_nombre_razon + "\n";
            enviar = false;
        }//if
        
        if (form.nif_cif.value == "") {
            men += campo_nif_cif + "\n";
            enviar = false;
        }//if
        
        if (form.id_pais.value == "0") {
            men += campo_pais + "\n";
            enviar = false;
        }//if
        
        if (form.id_provincia.value == "0") {
            men += campo_provincia + "\n";
            enviar = false;
        }//if
        
        if (enviar){ validar_ajax_newcliente();
        }else alert(men);
    }//validar_email_newcliente
    
    function validar_ajax_newcliente()
    {
        var form = document.getElementById("formul2");
        var req = null;

        req = get_request();

        if (!req) {
            alert(correo_no + " (1)");
            return false;
        }

        req.onreadystatechange = function() {
            recoger_ok_newcliente(req);
        };
        
        req.open('POST',form.action,true);
        req.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
        var param = "new_usuario=" + escape(form.new_usuario.value) + "&new_pwd=" + escape(form.new_pwd.value) + "&nombre_razon=" + escape(form.nombre_razon.value) + "&nif_cif=" + escape(form.nif_cif.value) + "&id_pais=" + escape(form.id_pais.value) + "&poblacion=" + escape(form.poblacion.value) + "&fax=" + escape(form.fax.value) + "&apellidos=" + escape(form.apellidos.value) + "&direccion=" + escape(form.direccion.value) + "&cod_postal=" + escape(form.cod_postal.value) + "&id_provincia=" + escape(form.id_provincia.value) + "&telefono=" + escape(form.telefono.value) + "&email=" + escape(form.email.value);
        req.send(param);
    }//validar_ajax_newcliente

    function recoger_ok_newcliente(req)
    {
        var men = "";
        try {
            if (req.readyState == 4) {
                if (req.status == 200) {
                    //alert(req.responseText);
                    switch (req.responseText) {
                        case "<p>codigo=1</p>":
                            men = correo_si;
                        break;
                        case "<p>codigo=2</p>":
                            men = "No se pudo enviar el correo (1)";
                        break;
                        case "<p>codigo=3</p>":
                            men = "Los parámetros no son correctos.";
                        break;
                        case "<p>codigo=4</p>":
                            men = "No se pudo enviar el correo (2)";
                        break;
                        case "<p>codigo=5</p>":
                            men = "No se pudo enviar el correo. El usuario ya existe.";
                        break;
                        default:
                            men = correo_no + " (2)";
                    }
                    alert(men);
                } else
                    alert(correo_no + " (3)");
            }
        } catch (e) {}
    }//recoger_ok_newcliente