/*-------------------------------------------------------------
 E Mail Address check.
 2001/02/14 Programmed by santiago
 Copyright (c) 2001 Iam Design Network. All Rights Reserved.
 --------------------------------------------------------------*/
function checkEmail(usrEmail) {
    if (usrEmail.indexOf('@') == -1) {
        alert(msgNeedAt);
        return false;
    } else if (usrEmail.indexOf(',') != -1) {
        alert(msgNeedComma);
        return false;
    } else if (usrEmail.match(/[!"#$%&'\(\)=\\|,:;^\[\]\{\}`*?<>]/)) {
        alert(msgBadAddress1);
        return false;
    } else {
        // check more
        var atCount = 0;
        for (var i = 0; i < usrEmail.length; i++) {
            var ch = usrEmail.substring(i, i + 1);
            if ((ch >= "A" && ch <= "Z") || (ch >= "a" && ch <= "z") || (ch >= "0" && ch <= "9") ||
                (ch == "@") ||
                (ch == ".") ||
                (ch == "_") ||
                (ch == "-")
                ) {
                    if (ch == "@") {
                        atCount++;
                    }
            } else {
                alert(msgBadAddress1);
                return false;
            }
        }

        if (atCount > 1) {
            alert(msgSomeAt);
            return false;
        }

        if (usrEmail.indexOf('@') == 0) {
            alert(msgStartAt);
            return false;
        }

        if (usrEmail.indexOf('@') < usrEmail.length - 1) {
            var subStr = usrEmail.substring(usrEmail.indexOf('@') + 1);
            if (subStr.indexOf('.') == -1) {
                alert(msgNoDot);
                return false;
            } else if (usrEmail.indexOf('.') + 1 == usrEmail.length) {
                alert(msgEndDot);
                return false;
            } else {
                return true;
            }
        } else {
            alert(msgEndAt);
            return false;
        }
    }
    return false;
}