Sub ShowM()
	Dim Tp
	Set Tp = window.event.srcElement 
			document.all.KisiselT.Style.display = "None"
			document.all.OgrenimT.Style.display = "None"			
			document.all.BeceriT.Style.display = "None"			
			document.all.TecrubeT.Style.display = "None"			
			document.all.ReferansT.Style.display = "None"			
			document.all.AskerlikT.Style.display = "None"			
			document.all.SaglikT.Style.display = "None"			
			document.all.DigerT.Style.display = "None"			
			document.all.GelirT.Style.display = "None"			
			document.all.SosyalT.Style.display = "None"			
			
			document.all.Kisisel.bgcolor = ""
			document.all("Ogrenim").bgcolor = ""
			document.all("Beceri").bgcolor = ""
			document.all("Tecrube").bgcolor = ""
			document.all("Referans").bgcolor = ""
			document.all("Askerlik").bgcolor = ""
			document.all("Saglik").bgcolor = ""
			document.all("Diger").bgcolor = ""
			document.all("Gelir").bgcolor = ""
			document.all("Sosyal").bgcolor = ""

			document.all(Tp.id & "T").style.display = ""
			window.event.srcElement.bgcolor = "#00262E"
	end Sub

Function validate_Kisisel_B()

dim str_error
str_error=""

if document.FrontPage_Form1.K_Ad_Soyad.value="" then
	str_error=str_error & "Lütfen Ad Soyad bölümünü boş bırakmayınız." & vbcrlf
end if	
if document.FrontPage_Form1.Dogum_Yeri.value="" then
	str_error=str_error & "Lütfen Doğum Yeri bölümünü boş bırakmayınız." & vbcrlf
end if
if document.FrontPage_Form1.K_Medeni_Durum.value="" then
	str_error=str_error & "Lütfen Medeni Durum bölümünü boş bırakmayınız." & vbcrlf
end if
if document.FrontPage_Form1.K_EvAdresi.value="" then
	str_error=str_error & "Lütfen Ev Adresi bölümünü boş bırakmayınız." & vbcrlf
end if
if document.FrontPage_Form1.K_Ev_Tel.value="" then
	str_error=str_error & "Lütfen Ev Telefonu bölümünü boş bırakmayınız." & vbcrlf
end if
if document.FrontPage_Form1.K_Email.value="" then
	str_error=str_error & "Lütfen E-Mail bölümünü boş bırakmayınız." & vbcrlf
end if
	
	
	
if str_error<>"" then
	alert(str_error)
	validate_Kisisel_B=false
else
	validate_Kisisel_B=true
end if

end function 

	
Sub Kisisel_B()
	if validate_Kisisel_B then
		document.all("KisiselT").style.display = "None"
		document.all("OgrenimT").style.display = ""
		document.all("Kisisel").bgcolor = ""
		document.all.Ogrenim.bgcolor = "#00262E"
	end if	
end Sub

Sub Ogrenim_B()
document.all("OgrenimT").style.display = "None"
document.all("BeceriT").style.display = ""
document.all("Ogrenim").bgcolor = ""
document.all.Beceri.bgcolor = "#00262E"
end Sub

Sub Beceri_B()
document.all("BeceriT").style.display = "None"
document.all("TecrubeT").style.display = ""
document.all("Beceri").bgcolor = ""
document.all.Tecrube.bgcolor = "#00262E"
end Sub

Sub Tecrube_B()
document.all("TecrubeT").style.display = "None"
document.all("ReferansT").style.display = ""
document.all("Tecrube").bgcolor = ""
document.all.Referans.bgcolor = "#00262E"
end Sub

Sub Referans_B()
document.all("ReferansT").style.display = "None"
document.all("AskerlikT").style.display = ""
document.all("Referans").bgcolor = ""
document.all.Askerlik.bgcolor = "#00262E"
end Sub

Sub Askerlik_B()
document.all("AskerlikT").style.display = "None"
document.all("SaglikT").style.display = ""
document.all("Askerlik").bgcolor = ""
document.all.Saglik.bgcolor = "#00262E"
end Sub

Sub Saglik_B()
document.all("SaglikT").style.display = "None"
document.all("DigerT").style.display = ""
document.all("Saglik").bgcolor = ""
document.all.Diger.bgcolor = "#00262E"
end Sub

Sub Diger_B()
document.all("DigerT").style.display = "None"
document.all("GelirT").style.display = ""
document.all("Diger").bgcolor = ""
document.all.Gelir.bgcolor = "#00262E"
end Sub

Sub Gelir_B()
document.all("GelirT").style.display = "None"
document.all("SosyalT").style.display = ""
document.all("Gelir").bgcolor = ""
document.all.Sosyal.bgcolor = "#00262E"
end Sub

	sub basla()
			document.all("KisiselT").style.display = ""
			document.all.Kisisel.bgcolor = "#00262E"
	end sub

	sub degis()
		Dim Tp
		Set Tp = window.event.srcElement 
		if 	not document.all(Tp.id & "T").style.display = "" Then
				window.event.srcElement.bgcolor = "#00262E"
		end if
	end sub

	sub degis1()
		Dim Tp
		Set Tp = window.event.srcElement 
		if 	not document.all(Tp.id & "T").style.display = "" Then
			window.event.srcElement.bgcolor = ""
		end if
	end sub