function Trim(TRIM_VALUE){
if(TRIM_VALUE.length < 1){
return "";
}
TRIM_VALUE = RTrim(TRIM_VALUE);
TRIM_VALUE = LTrim(TRIM_VALUE);
if(TRIM_VALUE==""){
return "";
}
else{
return TRIM_VALUE;
}
} //End Function
function RTrim(VALUE){
var w_space = String.fromCharCode(32);
var v_length = VALUE.length;
var strTemp = "";
if(v_length < 0){
return "";
}
var iTemp = v_length -1;

while(iTemp > -1){
if(VALUE.charAt(iTemp) == w_space){
}
else{
strTemp = VALUE.substring(0,iTemp +1);
break;
}
iTemp = iTemp-1;

} //End While
return strTemp;

} //End Function

function LTrim(VALUE){
var w_space = String.fromCharCode(32);
if(v_length < 1){
return"";
}
var v_length = VALUE.length;
var strTemp = "";

var iTemp = 0;

while(iTemp < v_length){
if(VALUE.charAt(iTemp) == w_space){
}
else{
strTemp = VALUE.substring(iTemp,v_length);
break;
}
iTemp = iTemp + 1;
} //End While
return strTemp;
} //End Function



function tikrintiKlausima(formObj){
var tekstas = formObj.tekstas.value;
tekstas=Trim(tekstas);
if(tekstas!=''){
return true;
 }
else{
alert('Neįvedėte klausimo');
return false;
}
}


function tikrintiEpasta(formObj){
if(formObj.e_pastas.value!='')
   { 	
    var incoming= formObj.e_pastas.value;
	var emailstring = incoming;
	var ampIndex = emailstring.indexOf("@");
	var afterAmp = emailstring.substring((ampIndex + 1), emailstring.length);
		// find a dot in the portion of the string after the ampersand only
	var dotIndex = afterAmp.indexOf(".");
		// determine dot position in entire string (not just after amp portion)
	dotIndex = dotIndex + ampIndex + 1;
		// afterAmp will be portion of string from ampersand to dot
	afterAmp = emailstring.substring((ampIndex + 1), dotIndex);
		// afterDot will be portion of string from dot to end of string
	var afterDot = emailstring.substring((dotIndex + 1), emailstring.length);
	var beforeAmp = emailstring.substring(0,(ampIndex));
		//old regex did not allow subdomains and dots in names
		//var email_regex = /^[\w\d\!\#\$\%\&\'\*\+\-\/\=\?\^\_\`\{\|\}\~]+(\.[\w\d\!\#\$\%\&\'\*\+\-\/\=\?\^\_\`\{\|\}\~])*\@(((\w+[\w\d\-]*[\w\d]\.)+(\w+[\w\d\-]*[\w\d]))|((\d{1,3}\.){3}\d{1,3}))$/;
	var email_regex = /^\w(?:\w|-|\.(?!\.|@))*@\w(?:\w|-|\.(?!\.))*\.\w{2,3}/ 
		// index of -1 means "not found"
	if ((emailstring.indexOf("@") != "-1") &&
		(emailstring.length > 5) &&
		(afterAmp.length > 0) &&
		(beforeAmp.length > 1) &&
		(afterDot.length > 1) &&
		(email_regex.test(emailstring)) ) {
		//  return true;
	} else {
			alert("Negerai įvedėte e-pašto adresą! ");
			formObj.e_pastas.focus();
			return false;
	}

   }
}

function tikrintiSuvestinesMetus(){
stripped = document.suvestines_metai.metai.value.replace(/[\(\)\.\-\ ]/g, '');
gerai=true;
//strip out acceptable non-numeric characters
if (isNaN(parseInt(stripped)) || stripped.length<4) {
  alert("Netaisyklingai įvedėte metus. Taisyklingas formatas pvz: \"2004\"");
  gerai=false;
}

return gerai;
}

function tikrintiData(formObj){
//alert("asdasd");

//formObj=document.suvestines_data;
if(formObj.metai.value!=''||formObj.menuo.value!=''||formObj.diena.value!=''){

if(isNaN(formObj.metai.value)||formObj.metai.value.length<4)
	{
	alert ('Metai turi būti sudaryti\n iš 4 skaičų!');
	formObj.metai.value='';
	formObj.metai.focus();
	return false;
	}
if(isNaN(formObj.menuo.value)||formObj.menuo.value.length<2)
	{
	alert ('Menuo turi būti sudarytas\n iš 2 skaičų!');
	formObj.menuo.value='';
	formObj.menuo.focus();
	return false;
	}
if(formObj.menuo.value>12)
	{
	alert ('Neteisingai įvestas menuo!');
	formObj.menuo.value='';
	formObj.menuo.focus();
	return false;
	}
if(isNaN(formObj.diena.value)||formObj.diena.value.length<2)
	{
	alert ('Diena turi būti sudaryta\n iš 2 skaičų!');
	formObj.diena.value='';
	formObj.diena.focus();
	return false;
	}
if(formObj.diena.value>31)
	{
	alert ('Neteisingai įvesta diena!');
	formObj.diena.value='';
	formObj.diena.focus();
	return false;
	}
	return true;
}
}