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(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 += campo_email + "\n";
            enviar = false;
        }//if        
        
        if (enviar){ validar_ajax_recuperarpass();
        }else alert(men);
    }//validar_email
    
    function validar_ajax_recuperarpass()
    {
        var form = document.getElementById("formul2");
        var req = null;

        req = get_request();

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

        req.onreadystatechange = function() {
            recoger_ok_recuperarpass(req);
        };
        
        req.open('POST',form.action,true);
        req.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
        var param = "email=" + escape(form.email.value);
        req.send(param);
    }//validar_ajax_recuperarpass

    function recoger_ok_recuperarpass(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";
                            men = correo_no + " (2)";
                        break;
                        case "<p>codigo=3</p>":
                            men = "Los parámetros no son correctos.";
                        break;
                        default:
                            men = correo_no + " (2)";
                    }
                    alert(men);
                } else
                    alert(correo_no + " (3)");
            }
        } catch (e) {}
    }//recoger_ok_recuperarpass