function checkMail(pForm_s, pField_s, pMessage_s) {
	value = eval('document.'+pForm_s+'.'+pField_s+'.value');
	if((value.indexOf('@') > 0)&&(value.lastIndexOf('.') > 2)&&(value.length > 6)) {return 0;}
	alert(pMessage_s);
	return 1;
}

function checkField(pForm_s, pField_s, pMessage_s, pValue_s) {
	if(eval('document.'+pForm_s+'.'+pField_s+'.value')==pValue_s){
		if(pMessage_s != ''){alert(pMessage_s);}
		eval('document.'+pForm_s+'.'+pField_s+'.focus()');
		return 1;
	}
	return 0;
}

function checkNumeric(pForm_s, pField_s, pMessage_s, pValue_s) {
	checkVal = eval('document.'+pForm_s+'.'+pField_s+'.value');
	if((checkVal == '') || isNaN(checkVal)){
		if(pMessage_s != ''){alert(pMessage_s);}
		eval('document.'+pForm_s+'.'+pField_s+'.focus()');
		return 1;
	}
	return 0;
}

function checkSelect(pForm_s, pField_s, pMessage_s, pFaultIndex_s) {
	if(eval('document.'+pForm_s+'.'+pField_s+'.selectedIndex') == pFaultIndex_s) {
		alert(pMessage_s);
		return 1;
	}
	return 0;
}

function checkRadio(pForm_s, pField_s, pMessage_s){
	var i;
	var o=eval('document.'+pForm_s+'.'+pField_s);
	for(i=0;i<o.length;i++) if(o[i].checked) return 0;
	if(pMessage_s.length > 0) alert(pMessage_s);
	return 1;
}

function checkFields(pForm_s) {
	checksum = 0;
	for(i=0;i<fieldList.length;i++) {
		switch(fieldList[i][3]) {
			case 'Text':
				checksum += checkField(pForm_s, fieldList[i][0], fieldList[i][1], fieldList[i][2]);
			break;
			case 'Numeric':
				checksum += checkNumeric(pForm_s, fieldList[i][0], fieldList[i][1], fieldList[i][2]);
			break;
			case 'Email':
				checksum += checkMail(pForm_s, fieldList[i][0], fieldList[i][1]);
			break;
			case 'Select':
				checksum += checkSelect(pForm_s, fieldList[i][0], fieldList[i][1], fieldList[i][2]);
			break;
			case 'Radio':
				checksum += checkRadio(pForm_s, fieldList[i][0], fieldList[i][1], fieldList[i][2]);
			break;
		}
		if(checksum > 0) {return false;}
	}
	if(checksum == 0) {
		return true;
	}
}

function checkFileType(pExtList_s, pFile_s, pAllowEmpty_b, pMessage_s) {
	if(!pAllowEmpty_b && (pFile_s == '')) {
		alert(pMessage_s);
		return false;
	}
	if(pFile_s == '') {return true;}
	else {
		var pos = pFile_s.lastIndexOf('.') + 1;
		var fileExt = pFile_s.substr(pos, pFile_s.length - pos);
		var extArr = pExtList_s.split(',');
		var acceptExt = false;
		var i;
		for(i=0;i<extArr.length;i++) {
			if(fileExt == extArr[i]) {
				acceptExt = true;
			}
		}
		if(!acceptExt) alert(pMessage_s);
		return acceptExt;
	}
}