Function MTSKEkleKontr2342()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("bguncelle")
				NumAlan frm.tckimlik.value,"T.C. Kimlik No",99999999999,10000000000,False
				TextAlan frm.adisoyadi.value,"Adı Soyadı",6,50,False
				ListAlan frm.gorevi.value,"Görevi"
				TelefonAlan frm.ceptel.value,"Cep Telefonu",False
				NumAlan frm.belgeno.value,"Belge No",9999999999,1,False
				TarihAlan frm.belgetarihi.value,"Belge Tarihi",False
				NumAlan frm.kursno.value,"Kurs No",9999999999,1,False
				TextAlan frm.kursveren.value,"Belgeyi Veren Kurum",6,50,False
				
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					MTSKEkleKontr2342 = false
				else
					MTSKEkleKontr2342 = true 				
				end if
		End Function

		Function BG398743KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("bguncelle")
				TextAlan frm.yonetici.value,"Yönetici Adý ve Soyadý",6,50,False
				TextAlan frm.ygorev.value,"Yönetici Görevi",5,50,False
				EmailAlan frm.mail.value,"E-Posta",150,False
				WebAlan frm.web.value,"Web Sayfası",150,True
				TextAlan frm.adres.value,"Adres",20,250,False
				TelefonAlan frm.telefon.value,"Telefon",False
				TelefonAlan frm.faks.value,"Faks",True
				TelefonAlan frm.ceptel.value,"Yöneticinin Cep Telefonu",False
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BG398743KontrolEt = false
				else
					BG398743KontrolEt = true 				
				end if
		End Function
		
		Function PersonelGorevlendir()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("gorevlendir")
				NumAlan frm.sayi.value,"Personel Sayısı",300,1,False
				TarihAlan frm.tarih.value,"Görev Tarihi",False
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					PersonelGorevlendir = false
				else
					PersonelGorevlendir = true 				
				end if
		End Function
		
		Function PersonelGorevlendirGoster()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("gorevlendirgoster")
				TarihAlan frm.tarih.value,"Görev Tarihi",False
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					PersonelGorevlendirGoster = false
				else
					PersonelGorevlendirGoster = true 				
				end if
		End Function
		
		Function BuroyaYaziEkTempKontrol()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("buroyayazi")
				ListAlan frm.buro.value,"Büro"
				TextAlanK frm.mesaj.value,"Yazý Ýçeriði",30,1000,False
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BuroyaYaziEkTempKontrol = false
				else
					BuroyaYaziEkTempKontrol = true 				
				end if
		End Function
		
		Function BuroYaziEkKontrol()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("buroyaziekle")
				ListAlan frm.yazan.value,"Büro"
				TextAlanK frm.mesaj.value,"Yazý Metni",20,4000,False
				ListAlan frm.oncelik.value,"Öncelik"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BuroYaziEkKontrol = false
				else
					BuroYaziEkKontrol = true 				
				end if
		End Function
		
		Function PG54003KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("pdegistir")
				ParolaAlan frm.eskiparola.value,frm.yeniparola1.value,frm.yeniparola2.value,"Eski Parola","Yeni Parola","Yeni Parola (Tekrar)",6,32
				if frm.yeniparola1.value = "123456" and frm.yeniparola2.value = "123456" then Uyarimesaji = "Parola olarak 123456 kabul edilmemektedir..."
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					PG54003KontrolEt = false
				else
					PG54003KontrolEt = true 				
				end if
		End Function

		Function SRC7653KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("guvenligiris")
				TextAlan frm.username.value,"Kullanýcý Adý",6,32,False
				TextAlan frm.password.value,"Parola",6,32,False
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					SRC7653KontrolEt = false
				else
					SRC7653KontrolEt = true 				
				end if
		End Function

		Function KategoriEkle003KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("kategoriekle")
				TextAlan frm.adi.value,"Kurum Kategorisi Adý",3,100,False
				ListAlan frm.aktif.value,"Aktiflik"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					KategoriEkle003KontrolEt = false
				else
					KategoriEkle003KontrolEt = true 				
				end if
		End Function

		Function BuroEkle003KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("buroekle")
				TextAlan frm.adi.value,"Büro Adý",10,100,False
				ListAlan frm.aktif.value,"Aktiflik"
				ListAlan frm.buroid.value,"Büro Kullanýcýsý"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BuroEkle003KontrolEt = false
				else
					BuroEkle003KontrolEt = true 				
				end if
		End Function
		
		Function BuroKullEkle0312KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("burokulekle")
				TextAlan frm.kodu.value,"Kullanýcý Kodu",6,32,False
				TextAlan frm.parola.value,"Parola",6,32,False
				TextAlan frm.adi.value,"Adý",6,100,False
				ListAlan frm.aktif.value,"Aktiflik"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BuroKullEkle0312KontrolEt = false
				else
					BuroKullEkle0312KontrolEt = true 				
				end if
		End Function

		Function BuroKullDuz0312KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("burokulduz")
				TextAlan frm.kodu.value,"Kullanýcý Kodu",6,32,False
				TextAlan frm.adi.value,"Adý",6,100,False
				ListAlan frm.aktif.value,"Aktiflik"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BuroKullDuz0312KontrolEt = false
				else
					BuroKullDuz0312KontrolEt = true 				
				end if
		End Function

		Function BKurum2KontrolEt()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("kurumekle")
				NumAlan frm.kodu.value,"Kullanýcý Kodu",99999999,100000,False
				TextAlan frm.parola.value,"Parola",6,32,False
				TextAlan frm.adi.value,"Adý",6,100,False
				ListAlan frm.aktif.value,"Aktiflik"
				ListAlan frm.resmi.value,"Resmi/Özel"
				ListAlan frm.kategori.value,"Kategori"
				ListAlan frm.egitimbolgesi.value,"Eğitim Bölgesi"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BKurum2KontrolEt = false
				else
					BKurum2KontrolEt = true 				
				end if
		End Function