function ChkEmail(psEMail) {
var arrayOfStrings, bReturn;
var sPrefix, sDomain, sSuffix
bReturn = true;
if (trim(psEMail).length == 0)
bReturn = false;
// Parse  prefix, domain from string
if (bReturn) {
arrayOfStrings = psEMail.split("@")
sPrefix = arrayOfStrings[0];
sDomain = arrayOfStrings[1];
if ((trim(sPrefix).length == 0) || (trim(sDomain).length == 0)) {
bReturn = false;
}
}
// Parse  domain, suffix from domain
if (bReturn) {
arrayOfStrings = sDomain.split(".")
sDomain = arrayOfStrings[0];
sSuffix = arrayOfStrings[1];
if ((trim(sDomain).length == 0) || (trim(sSuffix).length == 0)) {
bReturn = false
}
}
return !bReturn;
}

function trim(pString){
var iStart, iEnd;
var sTrimmed = "";
var cChar;

// Return empty sting if parameter is undefined
if (pString==null)
return sTrimmed;

iEnd = pString.length - 1;
iStart = 0;
bLoop = true;
cChar = pString.charAt(iStart);
while ((iStart < iEnd) && ((cChar == "\n") || (cChar == "\r") ||
(cChar == "\t") || (cChar == " "))){
iStart ++;
cChar = pString.charAt(iStart);
}
cChar = pString.charAt(iEnd);
while ((iEnd >= 0) && ((cChar == "\n") || (cChar == "\r") ||
(cChar == "\t") || (cChar == " "))){
iEnd-=1;
cChar = pString.charAt(iEnd);
}
if (iStart <= iEnd){
sTrimmed = pString.substring(iStart, iEnd + 1);
} else {
sTrimmed = "";
}
return sTrimmed;
}

function ChkBlanco(Str)
{	var s = trim(Str);
if (s.length == 0) {
return true}
else {return false;}
}
function ChkNumero(num)
{return isNaN(trim(num));}