function GetValue(obj){
	var val = null;
	if(obj){
		if(obj.tagName){
			switch(obj.tagName.toUpperCase()){
				case "SELECT":
					val = obj.options[obj.selectedIndex].value;
					break;

				default:
					val = obj.value;
					break;
			}
		} else {	
			//RADIO
			if(obj.length){
				for(i=0;i<obj.length;i++){
					if(obj[i].checked){val=obj[i].value;break;}
				}
				if(val==null){val="";}
			}
			else{
				val = obj.value;
			}
		}
	}
	return val;
}

function SetValue(obj, val){
	if(obj){
		switch(obj.tagName){
			case "SELECT":
				obj.selectedIndex=0;
				obj.selectedIndex=-1;

				for(so=0;so<obj.options.length;so++){
					if(obj.options[so].value==val){obj.options.selectedIndex=so;break;}
				}
				break;
			
			case "RADIO":
				if(obj.length){
					for(i=0;i<obj.length;i++){
						obj[i].checked = (obj[i].value==val) ? true : false;
					}
				}
				else{
					obj.checked = (obj.value==val) ? true : false;
				}
				break;
					
			default:
				obj.value = val;
				break;
		}
	}
	return val;
}

function IsBlank(obj){return (GetValue(obj)=="");}

function IsEqual(obj1, obj2){return (GetValue(obj1)==GetValue(obj2));}

function IsEmail(obj, allowBlank){
	var s = new String(GetValue(obj));
    var i = 1;
    var sLength = s.length;
    
    if (sLength==0) {return (allowBlank) ? true : false;} //check length
    while ((i < sLength) && (s.charAt(i) != "@")) {i++;} //find @
	
	if ((i >= sLength) || (s.charAt(i) != "@")) {return false;}
    else {i += 2;}
    
    while ((i < sLength) && (s.charAt(i) != ".")) {i++;}//find .
    if ((i >= sLength - 1) || (s.charAt(i) != ".")) {return false;}
	else {return true;}   
}

function IsNumeric(strString, allowBlank){
	var strValidChars = "0123456789.,-$";
	var strChar;
	var blnResult = true;
	
	if(allowBlank==null){allowBlank=false;}
	if (strString.length == 0){return allowBlank;}

	//  test strString consists of valid characters listed above
	for (i = 0; i < strString.length && blnResult == true; i++) {
	   strChar = strString.charAt(i);
	   if (strValidChars.indexOf(strChar) == -1){blnResult = false;}
	}
	return blnResult;
}