function testu_nepran(kampo,averto)
{
with (kampo)
{
if (value==null||value==""||value==0)
  {alert(averto);return false;}
 else {return true}
}
}

function testu_formon(thisform)
{
with (thisform)
{
 if (Math.ceil(kn.value) !=kn.value *1) {
    alert("Nekorekta kongresa numero");
kn.style.background = "#FFCCCC";kn.focus();return false;
    }
else if (testu_nepran(kn,"Bonvolu rekontroli vian kongresan numeron!")==false)
  {kn.focus();return false;} 

 else if (ukodo.value.indexOf("-",4)!=4 || ukodo.value.length !==6) {
    alert("Nekorekta aŭ neplena UEA-kodo");
ukodo.style.background = "#FFCCCC";ukodo.focus();return false;
    }
    
else if (testu_nepran(ukodo,"Bonvolu rekontroli vian UEA-kodon!")==false)
  {ukodo.focus();return false;}   
    
else if (testu_nepran(ra,"Bonvolu indiki vian retadreson!")==false)
  {ra.focus();return false;}
        var str = ra.value;
        var at="@";
		var dot=".";
		var lat=str.indexOf(at);
		var lstr=str.length;
		var ldot=str.indexOf(dot);
        var kontrolo = 0;
		if (str.indexOf(at)==-1){
		 kontrolo = 1;
		}

		if (str.indexOf(at)==-1 || str.indexOf(at)==0 || str.indexOf(at)==lstr){
	 kontrolo = 1;
		}

		if (str.indexOf(dot)==-1 || str.indexOf(dot)==0 || str.indexOf(dot)==lstr){
		  kontrolo = 1;
		}

		 if (str.indexOf(at,(lat+1))!=-1){
		     kontrolo = 1;
		 }

		 if (str.substring(lat-1,lat)==dot || str.substring(lat+1,lat+2)==dot){
		   kontrolo = 1;
		 }

		 if (str.indexOf(dot,(lat+2))==-1){
		   kontrolo = 1;
		 }
		
		 if (str.indexOf(" ")!=-1){
		    kontrolo = 1;
		 }
    if (kontrolo == 1) {
         alert("Nekorekta retadreso!");
ra.style.background = "#FFCCCC";ra.focus();return false;
        
        }
         
}
}