sml0="abcdefghijklmnoprstuvyz";
cpt0="ABCDEFGHÝJKLMNOPRSTUVYZ";
sml1="çðýöþü";
cpt1="ÇÐIÖÞÜ";
sml2="qwx";
cpt2="QWX";
sml=sml0+sml1+sml2;
cpt=cpt0+cpt1+cpt2;

num="0123456789";
tok1="/";
tok2=".-_";
tok3=",;:";
spc=" ";

tok=tok1+tok2+tok3+spc;

function tuskontrol(t)
{
 brw=(navigator.appName.indexOf("Microsoft") >=0 ) ? 1:-1;

 kk=(brw) ? event.keyCode : e.which;
  
  switch (kk){
    case 413: 
	    ndx=document.activeElement.sourceIndex+1;
		t=-1;
	for(i=ndx;(t==-1)&&(i<document.all.length);i++){
	   tn=document.all[i].tagName;
       if ((tn.indexOf("INPUT")>=0) || (tn.indexOf("SELECT")>=0) || (tn.indexOf("TEXTAREA")>=0))  t=i;
	}
	
       
		if (t>0) document.all[t].focus();
		kk=0;
	break;

	default:
		k=String.fromCharCode(kk);
		switch (t){
			case "n":
				if (num.indexOf(k)<0) kk=0;
			break;
			case "t":
			     num1=num+tok;
				if (num1.indexOf(k)<0) kk=0;
			break;

			case "B":
				r=sml.indexOf(k);
				if (r>=0) kk=cpt.charCodeAt(r);		
			break;

			case "k":
				r=cpt.indexOf(k);
				if (r>=0) kk=sml.charCodeAt(r);		
			break;

        	case "A":
			    kck=sml0+sml1;
			    byk=cpt0+cpt1+spc+".";

				r=kck.indexOf(k);
				if (r>=0) k=byk.charAt(r);

				r=byk.indexOf(k);
				if (r>=0) kk=byk.charCodeAt(r)
				 else kk=0;
			break;

        	case "@":
			    kck=sml0+sml2+num+tok2+"@";
			    byk=cpt0+cpt2;

				r=byk.indexOf(k);
				if (r>=0) k=kck.charAt(r);

				r=kck.indexOf(k);
				if (r>=0) kk=kck.charCodeAt(r)
				 else kk=0;
			break;


			}
         break;
	 } 	 

if (brw) 
    event.keyCode=kk;
else
   e.which=kk;
}


function istarih(oname,opt)
{
	tobj=document.all.item(oname);
	r=(opt==0);
   trh=tobj.value;
if (trh.length>0){
   td=new Date();

	gun=parseInt(getchunk(tok,trh,0),10);
	ay=parseInt(getchunk(tok,trh,1),10)-1;
	yil=parseInt(getchunk(tok,trh,2),10);
 
    gun=(gun>0)?gun:td.getDate();
	ay=(ay>=0)?ay:td.getMonth();

	yil=(yil>0)?((yil<1000)?(yil+2000):yil):td.getFullYear();

	d=new Date(yil,ay,gun);

	gun1=d.getDate();
	ay1=d.getMonth();
	yil1=d.getFullYear();

	r=(gun1==gun)&&(ay==ay1)&&(yil==yil1);

	if (r) {
	   tobj.value=tzero(gun1,2)+"."+tzero(ay1+1,2)+"."+tzero(yil1,4);
	   	   }
	 else
	 {alert(trh+'\n'+"Hatalý Tarih!");tobj.focus();}
}
else 
    if (opt!=0) {alert("Tarihi Giriniz!");} 
return (r);
}
function istarihn(tobj)
{
   trh=tobj.value;
   if (trh == null) return false;
   if (trh == "") return false;
   td=new Date();

	gun=parseInt(getchunk(tok,trh,0));
	ay=parseInt(getchunk(tok,trh,1))-1;
	yil=parseInt(getchunk(tok,trh,2));
 
    gun=(gun>0)?gun:td.getDate();
	ay=(ay>=0)?ay:td.getMonth();

	yil=(yil>0)?((yil<1000)?(yil+2000):yil):td.getFullYear();

	d=new Date(yil,ay,gun);

	gun1=d.getDate();
	ay1=d.getMonth();
	yil1=d.getFullYear();

	r=(gun1==gun)&&(ay==ay1)&&(yil==yil1);

	if (r) tobj.value=tzero(gun1,2)+"."+tzero(ay1+1,2)+"."+tzero(yil1,4)
	 else
	 {alert(trh+'\n'+"Hatalý Tarih!");tobj.focus();}

return (r);

}


function issaat(oname,opt)
{
   tobj=document.all.item(oname);
   r=(opt==0);
   saat=tobj.value;
if (saat.length>0){
   
	hsaat=parseInt(getchunk(tok,saat,0),10);
	dsaat=parseInt(getchunk(tok,saat,1),10);
 
    if (isNaN(hsaat)) hsaat=0 
	if (isNaN(dsaat)) dsaat=0 
    
	r=((hsaat>=0)&&(hsaat<24)&&(dsaat>=0)&&(dsaat<60));

	if (r) tobj.value=tzero(hsaat,2)+":"+tzero(dsaat,2)
	 else
	 {alert(saat+'\n'+"Hatalý Saat!");tobj.focus();}
}
else 
    if (opt!=0) {alerat("Saati Giriniz!");} 
return (0);
}


function ismail0(oname,opt)
{
	tobj=document.all.item(oname);
    v=tobj.value;
	r=(opt==0);
if (v.length>0){	
	v0=getchunk("@",v,0);
	v1=getchunk("@",v,1);
    
	v3=getchunk(".",v1,0);
	v4=getchunk(".",v1,1);
    
    r=(v0.length>0)&&(v3.length>0)&&(v4.length>0);  
	
	ic=sml0+sml2;
	r=(r)&(ic.indexOf(v0.charAt(0))>=0)&&(ic.indexOf(v3.charAt(0))>=0)&&(ic.indexOf(v4.charAt(0))>=0);
	
	if (!r) {alert(v+'\n'+"Hatalý e-Posta Adresi!");tobj.focus();} 
}
 else 
    if (opt!=0) {alert("e-Posta Adresini Giriniz!");} 

return (r);
}


function getchunk(tl,v,c)
{	
	r=0;  d="";
	for (i=0;i<v.length;i++){
	    p=tl.indexOf(v.charAt(i));  
		if (p>=0) r++;
		if ((r==c)&&(p<0)) d=d+v.charAt(i);
     }
return (d);
}


function tzero(v,c)
{
	d="0000"+v;
	return(d.slice(d.length-c,d.length));
}