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
				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 BuroyaYaziEkTempKontrol()
			UyariMesaji = ""
			Dim frm
			set frm = document.forms("buroyayazi")
				ListAlan frm.buro.value,"Büro"
				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"
				'TextAlan 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"
				if UyariMesaji <> ""  then
					MsgBox Uyarimesaji,vbExclamation,"Hata!"
					BKurum2KontrolEt = false
				else
					BKurum2KontrolEt = true 				
				end if
		End Function