function validateForm(Frm, bConfirm, bDisable, bDisableR, groupError) {
	var testOk = false;
	if (groupError) { 
		window.groupError = 1; 
		errorData = new Array(); 
		} 
	else 
		window.groupError = 0;
		
	for (var i=0; i<Frm.elements.length; i++) {						// Pasa por todos los elementos del formulario		
		if (Frm.elements[i].alt) {							// coge el texto de la clave alt
			var validateType = Frm.elements[i].alt;
			var validateObj = Frm.elements[i];
			testOk = false;			
			var params = validateType.split(/[|]/);					// Separa los parámetros
		
			if (params[0] == 'money') {						// Establece el flag para los de tipo money				
				var dollarsign	= (params[1].indexOf('$') != -1);
				var grouping	= (params[1].indexOf(',') != -1);
				var decimal		= (params[1].indexOf('.') != -1);
				}
			
			if (params[params.length-1] == 'bok')					// Establece el flag si admite o no blancos
				blankOK = true;
	
			switch (params[0]) {							//Llama a la función que toque en función del tipo
				case 'blank'	: if (validateBlank(validateObj)) testOk = true; break;
				case 'equalto'	: if (validateEqualTo(validateObj, params[1], Frm)) testOk = true; break;
				case 'length'	: if (validateLength(validateObj, params[1])) testOk = true; break;
				case 'number'	: if (validateNumber(validateObj)) testOk = true; break;
				case 'numberl'	: if (validateNumberL(validateObj, params[1])) testOk = true; break;
				case 'numberr'	: if (validateNumberR(validateObj, params[1], params[2] )) testOk = true; break;
				case 'alnum'	: if (validateAlnum(validateObj, params[1], params[2], params[3], params[4], params[5] )) testOk = true; break;				
				case 'decimal'	: if (validateDecimal(validateObj, params[1], params[2] )) testOk = true; break;
				case 'decimalr'	: if (validateDecimalR(validateObj, params[1], params[2], params[3], params[4] )) testOk = true; break;				
				case 'ip'		: if (validateIP(validateObj, params[1], params[2])) testOk = true; break;
				case 'ssn'		: if (validateSSN(validateObj)) testOk = true; break;
				case 'money'	: if (validateMoney(validateObj, dollarsign, grouping, decimal)) testOk = true; break;
				case 'zip'		: if (validateZip(validateObj)) testOk = true; break;
				case 'phone'	: if (validatePhone(validateObj)) testOk = true; break;
				case 'email'	: if (validateEmail(validateObj)) testOk = true; break;
				case 'cc'		: if (validateCC(validateObj)) testOk = true; break;
				case 'select'	: if (validateSelect(validateObj)) testOk = true; break;
				case 'selectm'	: if (validateSelectM(validateObj, params[1], params[2])) testOk = true; break;
				case 'selecti'	: if (validateSelectI(validateObj, params[1])) testOk = true; break;
				case 'checkbox'	: if (validateCheckbox(validateObj, Frm.name, validateObj.name, params[1], params[2])) testOk = true; break;
				case 'radio'	: if (validateRadio(validateObj, Frm.name, validateObj.name)) testOk = true; break;
				// Add additional cases here
				default			: alert(params[0] + 'Tipo no encontrado');
				}
			if (!testOk && !groupError) return false;
			}
		}
	if (groupError) {
		var alertStr = "Los campos que aparecen a continuación tienen valores incorrectos o deben ser rellenados.\n\n";
		for (var i in errorData) {
			revertClass = errorData[i].className;
			if (typeof errorData[i].type != 'undefined'  && typeof errorData[i].name != 'undefined') { 
				errorData[i].className = errorClass;
				alertStr += " -" + formatName(errorData[i]) + "\n";
				}
			else {
				var temp = errorData[i];
				temp[0].className = errorClass;
				alertStr += " -" + formatName(temp[0]) + "\n";
				}
			errorProcess(errorData[0],0,1);
			}
		errorData[0].focus();
		alert(alertStr);
		return false;
		}
/*******************************************************
*	Aquí se pueden añadir condiciones especiales
********************************************************/		
		
	if (typeof bConfirm == 'undefined') bConfirm = 0;			// Comprueba el flag de envio
	if (typeof bDisable == 'undefined') bDisable = 0;	
	if (typeof bDisableR == 'undefined') bDisableR = 0;	
	if (bConfirm)
		{
		if(!confirm(confirmMsg))
			{
			if (confirmAbortMsg != '') alert(confirmAbortMsg);	// muestra el msg de confirmación si se solicita
			return false;
			}
		}
	if (bDisable) Frm.elements[submitButton].disabled=true;			// Deshabilita el boton de submit si se solicita
	if (bDisableR) Frm.elements[resetButton].disabled=true;			// Deshabilita el boton de reset si se solicita
		
	return true;								// El formulario ha sido validado

	}

/***************************************************************************/
function validateBlank(formObj) {
	var objName = formatName(formObj);
	
	if (formObj.value == "") {
		if (groupError) { addError(formObj); return true; }
		alert('Introduzca el campo '+objName);		
		errorProcess(formObj,0,1);
		return false;
		}
	var regex = new RegExp(/\S/);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		alert('Introduzca el campo '+objName);
		errorProcess(formObj,1,1);
		return false;			
		}
	return true;
	}
/***************************************************************************/
// Special function used for bok
function checkBlank(formObj) {
	if (formObj.value == "")
		return true;
	var regex = new RegExp(/\S/);
	if (!regex.test(formObj.value))
		return true;			
	return false;
	}
		
/***************************************************************************/
function validateEqualTo(formObj, otherObjName, Frm) {
	var objName = formatName(formObj);
	var equalToValue = Frm.elements[otherObjName].value;

	if (formObj.value != equalToValue) {
		if (groupError) { addError(formObj); return true; }
		alert(otherObjName+' debe ser igual que '+objName+'.\nasegurese de que los datos que ha introducido coinciden.');
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validateLength(formObj,len) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	if (formObj.value.length < parseInt(len)) {
		if (groupError) { addError(formObj); return true; }
		alert('El campo '+objName+' debe tener por lo menos '+len+' caracteres');
		errorProcess(formObj,1,1);
		return false;
		}		
	return true;
	}
	
/***************************************************************************/
function validateNumber(formObj) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	numReg = "^[0-9]+$"
	var regex = new RegExp(numReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert('solo se permiten campos numéricos para el campo '+objName);
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateNumberL(formObj, len) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	numReg = "^[0-9]{"+parseInt(len)+",}$"
	var regex = new RegExp(numReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert('se debe incluir un mínimod de '+len+' valores numéricos para el campo '+objName);
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateNumberR(formObj, lb, ub) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	var num = parseInt(formObj.value);
	numReg = "^\-?[0-9]+$"
	if (lb == 'none') lb = -999999999999999999;
	if (ub == 'none') ub = 999999999999999999;
	var regex = new RegExp(numReg);
	if (!regex.test(num) || num < lb || num > ub ) {
		if (groupError) { addError(formObj); return true; }
		window.alert(objName+" debe ser un entero entre "+lb+" y "+ub);
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateAlnum(formObj, minLen, tCase, numbers, spaces, puncs) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	var arrE = new Array();
	arrE[0] = (minLen == "*") ? "None" : minLen;
	var okChars = "";
	switch (tCase.toUpperCase()) {
		case 'U'	:	okChars = "A-Z"; arrE[1] = "UPPER"; break
		case 'L'	:	okChars = "a-z"; arrE[1] = "lower"; break;
		case 'C'	:	okChars = "A-Z][a-z"; if (minLen != "*") minLen--; arrE[1]="Initial capital"; break;
		default		:	okChars = "a-zA-Z"; arrE[1]="Any"; break;
		}
	if (parseInt(numbers)) { okChars += "0-9"; arrE[2] = "Yes"; } else arrE[2] = "No";
	if (parseInt(spaces)) { okChars += " "; arrE[3] = "Yes"; } else arrE[3] = "No";
	if (puncs == "all") { okChars += puncStr("!@#$%^&*()_+-={}|[]:\";'<\\>?,.?~`"); arrE[4] = "All"; }
	else if (puncs == "none") arrE[4] = "None";
	else { okChars += puncStr(puncs); arrE[4] =  puncStr(puncs).replace(/\\/g,""); }
	var length = (minLen == "*") ? "+" : "{"+minLen+",}";
	var alnumReg = "^["+okChars+"]"+length+"$";
	var regex = new RegExp(alnumReg);
	if (!regex.test(formObj.value) ) {
		if (groupError) { addError(formObj); return true; }
		window.alert("El dato que introdujo ("+formObj.value+") no coincide con el formato solicitado "+objName+"\nLongitud mínima: "+arrE[0]+"\nCase: "+arrE[1]+"\nNumeros permitidos: "+arrE[2]+"\nSe permiten espacios: "+arrE[3]+"\nse permiten caracteres de puntuación: "+arrE[4]);		
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}	
/***************************************************************************/
function validateDecimal(formObj, lval, rval) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	(lval == '*')? lval = '*': lval = parseInt(lval);
	(rval == '*')? rval = '*': rval = parseInt(rval);
	var decReg = "";
	if (lval == 0)
		decReg = "^\\.[0-9]{"+rval+"}$";	
	else if (lval == '*')
		decReg = "^[0-9]"+lval+"\\.[0-9]{"+rval+"}$";
	else if (rval == '*')
		decReg = "^[0-9]{"+lval+"}\\.[0-9]"+rval+"$";
	else
		decReg = "^[0-9]{"+lval+"}\\.[0-9]{"+rval+"}$";
	var regex = new RegExp(decReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert(formObj.value+' no es valido '+objName+'.  reintroduzca el campo '+objName);
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validateDecimalR(formObj, lmin, lmax, rmin, rmax) {
	var objName = formatName(formObj);
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	(lmin == '*')? lmin = 0: lmin = parseInt(lmin);
	(lmax == '*')? lmax = '': lmax = parseInt(lmax);
	(rmin == '*')? rmin = 0: rmin = parseInt(rmin);
	(rmax == '*')? rmax = '': rmax = parseInt(rmax);
	var	decReg = "^[0-9]{"+lmin+","+lmax+"}\\.[0-9]{"+rmin+","+rmax+"}$"
	var regex = new RegExp(decReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert(formObj.value+' no es valido '+objName+'.  reintroduzca el campo '+objName);
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateIP(formObj, portMin, portMax) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	if (typeof portMin == 'undefined') portMin = 0;
	if (typeof portMax == 'undefined') portMax = 99999;
	var portOk = true;
	var ipReg = "^((?:([2]{1}[0-5]{2})|([2]{1}[0-4]{1}[0-9]{1})|([1]?[0-9]{2})|([0-9]{1}))[\\.]){3}(?:([2]{1}[0-5]{2})|([2]{1}[0-4]{1}[0-9]{1})|([1]?[0-9]{2})|([0-9]{1}))(\\:[0-9]{1,5})?$"
	var portLoc = formObj.value.indexOf(":");
	if (portLoc != -1) {
		 var port = parseInt(formObj.value.substring(portLoc+1));
		 if (port < portMin || port > portMax) portOk = false;		
		 }
	var regex = new RegExp(ipReg);
	if (!regex.test(formObj.value) || !portOk) {
		if (groupError) { addError(formObj); return true; }
		if (regex.test(formObj.value) && !portOk)
			window.alert("El número de puerto especificado , "+port+",  está fuera de rengo.\ndebe estar entre "+portMin+" y "+portMax);
		else			
			window.alert(formObj.value+' No es una dirección IP válida.  por favor reintroduzcala ');
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateSSN(formObj) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }

	var regex = new RegExp(/^\d{3}\-\d{2}\-\d{4}$/);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert(formObj.value+' is not a valid Social Security Number.\nYour SSN must be entered in \'XXX-XX-XXXX\' format.');
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
/***************************************************************************/
function validateMoney(formObj, ds, grp, dml) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	var moneySyntax;
	if (ds && grp && dml)		// Dollar sign, grouping, and decimal
		{ moneyReg = "^\\$(?:(?:[0-9]{1,3},)(?:[0-9]{3},)*[0-9]{3}|[0-9]{1,3})(\\.[0-9]{2})$";	moneySyntax = "$XX,XXX.XX"; }
	if (ds && grp && !dml)		// Dollar sign and grouping
		{ moneyReg="^\\$(?:(?:[0-9]{1,3},)(?:[0-9]{3},)*[0-9]{3}|[0-9]{1,3})$"; moneySyntax="$XX,XXX"; }
	if (ds && !grp && dml)		// Dollar sign and decimal
		{ moneyReg="^\\$[0-9]*(\\.[0-9]{2})$"; moneySyntax="$XXXXX.XX"; }
	if (!ds && grp && dml)		// Grouping and decimal
		{ moneyReg="^(?:(?:[0-9]{1,3},)(?:[0-9]{3},)*[0-9]{3}|[0-9]{1,3})(\\.[0-9]{2})?$"; moneySyntax="XX,XXX.XX"; }
	if (ds && !grp && !dml)		// Dollar sign only
		{ moneyReg="^\\$[0-9]*$"; moneySyntax="$XXXXX"; }
	if (!ds && grp && !dml)		// Grouping only
		{ moneyReg="^(?:(?:[0-9]{1,3},)(?:[0-9]{3},)*[0-9]{3}|[0-9]{1,3})$"; moneySyntax="XX,XXX"; }
	if (!ds && !grp && dml)		// Decimal only
		{ moneyReg="^[0-9]*(\\.[0-9]{2})$"; moneySyntax="XXXXX.XX"; }
	if (!ds && !grp && !dml)	// No params set, all special chars become optional
		{ moneyReg="^\\$?(?:(?:[0-9]{1,3},?)(?:[0-9]{3},?)*[0-9]{3}|[0-9]{1,3})(\\.[0-9]{2})?$"; moneySyntax="[$]XX[,]XXX[.XX]"; }
	var regex = new RegExp(moneyReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert(formObj.value+' does not match the required format of '+moneySyntax+' for '+objName+'.');
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}

/***************************************************************************/
function validateSelect(formObj) {
	var objName = formatName(formObj);
	if (formObj.selectedIndex == 0) {
		if (groupError) { addError(formObj); return true; }
		alert('seleccione '+objName);
		errorProcess(formObj,0,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validateSelectM(formObj, minS, maxS) {
	var objName = formatName(formObj);
	var selectCount = 0;
	if (maxS == 999) maxS = formObj.length;
	for (var i=0; i<formObj.length; i++)
		{
		if (formObj.options[i].selected)
			selectCount++; 
		}
	if (selectCount < minS || selectCount > maxS) {
		if (groupError) { addError(formObj); return true; }
		alert('seleccione netre '+minS+' y '+maxS+' '+objName+'.\ntiene seleccionado '+selectCount+' ');
		errorProcess(formObj,0,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validateSelectI(formObj, indexes) {
	var objName = formatName(formObj);
	var arrIndexes =indexes.split(/[,]/);
	var selectOK = true;
	for (var i=0; i<arrIndexes.length; i++)
		{
		if (formObj.selectedIndex == arrIndexes[i])
			selectOK = false;
		}

	if (!selectOK) {
		if (groupError) { addError(formObj); return true; }
		alert('Seleccione una opción valida para '+objName);
		errorProcess(formObj,0,1);
		return false;
		}
	return true;
	}
		
/***************************************************************************/
function validateZip(formObj) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	zipReg = "^[0-9]{5}(|[\- ]?[0-9]{4})$"
	var regex = new RegExp(zipReg);
	if (!regex.test(formObj.value)) {
		if (groupError) { addError(formObj); return true; }
		window.alert("Introduzca un código postal de 5 dígitos.    ");
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}

/***************************************************************************/
function validateEmail(formObj)	{	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }

	var emailStr = formObj.value;
	var emailReg1 = /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/; // not valid
	var emailReg2 = /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/; // valid
	if (!emailReg1.test(emailStr) && emailReg2.test(emailStr)) {// if syntax is valid
		return true;
		}
	else {
		if (groupError) { addError(formObj); return true; }
		window.alert("Introduzca una dirección de correo válida.");
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validatePhone(formObj)	{
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	phoneReg = "^(?:[\(][0-9]{3}[\)]|[0-9]{3})[-. ]?[0-9]{3}[-. ]?[0-9]{4}$";
	var regex = new RegExp(phoneReg);
	if (regex.test(formObj.value)) {
		return true;
		}
	else {
		if (groupError) { addError(formObj); return true; }
		window.alert("Introduzca un número de telefono valido.");
		errorProcess(formObj,1,1);
		return false;
		}
	return true;
	}
	
/***************************************************************************/
function validateCheckbox(formObj, FRM, chkbxName, minC, maxC) {
	var formObj = eval(FRM+'.'+chkbxName);
	var objName = chkbxName;
	var checkTotal = eval(FRM+'.'+chkbxName+'.length');
	var checkCount = 0;
	if (maxC == 999) maxC = checkTotal;
	for (var i=0; i<checkTotal; i++) {
		if (formObj[i].checked) checkCount++;
		}
	if (checkCount < minC || checkCount > maxC) {
		if (groupError) { addError(formObj); return true; }
		alert('Seleccione entre las opciones '+minC+' y '+maxC+' para '+objName+'.\nActualmente tiene seleccionado '+checkCount+' ');
		errorProcess(formObj[0],0,1);
		return false;
		}
	return true;
	}

/***************************************************************************/	
function validateRadio(formObj, FRM, radioName) {	
	var radioLength = eval(FRM+'.'+radioName+'.length');
	var objName = formatName(formObj);
	var selectTotal = 0;
	for (i=0; i<radioLength; i++) {
		if (eval(FRM+'.'+radioName+'['+i+'].checked'))
			selectTotal++;	
		}
	if (selectTotal != 1) {
		if (groupError) { addError(formObj); return true; }
		alert('Seleccione una opción para '+objName);
		errorProcess(formObj,0,1);
		return false;
		}		
	return true;
	}
/***************************************************************************/
function addError(obj) {
	errorData[errorData.length] = obj;	
	}
/***************************************************************************/
function formatName(o) {
	var wStr = (o.name) ? o.name : o.id;
	wStr = wStr.replace(/_/g," ");
	return wStr;
	}
/***************************************************************************/	
function errorProcess(tempObj, sel, foc) {
	revertClass = tempObj.className;
	tempObj.className = errorClass;
	if (sel) tempObj.select();
	if (foc) tempObj.focus();
	}
/***************************************************************************/
function clearStyle(tempObj) {
	if (tempObj.className == errorClass) tempObj.className = revertClass;
	}
/***************************************************************************/	
function puncStr(str) {
	str = str.replace("pipe", "|");
	return str.replace(/([\\\|\(\)\[\{\^\$\*\+\?\.])/g,"\\$1");
//	return str.replace(/([\!\@\#\$\%\^\&\*\(\)\_\+\-\=\{\}\|\[\]\\\:\"\;\'\<\>\?\,\.\/])/g,"\\$1");
	}
/*****************************************************************************************************	
*	CREDIT CARD FUNCTIONS
*
 ****************/	

function cleanupCCNum(ccNum) {
	return ccNum.replace(/\D/g,'');
	}	
/***************************************************************************/	
function validateCC(formObj) {
	var objName = formatName(formObj);	
	if (blankOK && checkBlank(formObj))
		{ blankOK=false; return true; }
	
	switch (eval(ccTypeObj).value) {
		case 'VISA'		: var ccReg = new RegExp(/^4\d{12}(\d{3})?$/); break;
		case 'MC'		: var ccReg = new RegExp(/^5[1-5]\d{14}$/); break;
		case 'DISC'		: var ccReg = new RegExp(/^6011\d{12}$/); break;
		case 'AMEX'		: var ccReg = new RegExp(/^6011\d{12}$/); break;		
		case 'DINERS'	: var ccReg = new RegExp(/^3[0|6|8]\d{12}$/); break;
		case 'ENROUTE'	: var ccReg = new RegExp(/^2[014|149]\d{11}$/); break;
		case 'JCB'		: var ccReg = new RegExp(/^3[088|096|112|158|337|528]\d{12}$/); break;
		// Add additonal card types here
		default			: if (!groupError) alert('Error! no se encontro el tipo de tarjeta!'); return false;
		}
	var formatOK = ccReg.test(formObj.value);
	var luhnOK = validateLUHN(formObj.value);	
	if (!formatOK || !luhnOK) {
		if (groupError) { addError(formObj); return true; }
		alert('El '+objName+' que introdujo no es válido. Compruebelo y vuelva a intentarlo');
		errorProcess(formObj,1,1);
		return false;
		}		
	return true;
	}
/***************************************************************************/	
function validateLUHN(ccString) {
	var odds = "";
	var evens = "";
	var i=1;
	for (i=0; i<ccString.length; i=i+2) {
		var digit = parseInt(ccString.charAt(i)) * 2;
		odds += digit+"";
		}
	for (i=1; i<ccString.length; i=i+2)
		evens += ccString.charAt(i);
	var luhnStr = odds + evens;
	var checkSum = 0;
	for (i=0; i<luhnStr.length; i++)
		checkSum += parseInt(luhnStr.charAt(i));
	return (checkSum % 10 == 0);
	}