Dim UyariMesaji
UyariMesaji = ""

Sub TarihSirala(TarihAlanlari,TarihAlanIsimleri,count)
Dim i 
	
	for i = 0 to count-1
		if isdate(TarihAlanlari(i)) then
			exit sub			
		end if
	Next
	
	for i = 0 to count-2 	
		if TarihAlanlari(i) = "" then
			TarihAlanlari(i) = TarihAlanlari(i+1)
		
		elseif TarihAlanlari(i+1) = "" then
			TarihAlanlari(i+1) = TarihAlanlari(i+1) 		
		else
			if CDate(TarihAlanlari(i+1)) - CDate(TarihAlanlari(i)) < 0  then
				UyariMesaji = UyariMesaji & TarihAlanIsimleri(i) & " alanı "  & TarihAlanIsimleri(i+1) & " alanından büyük olamaz" & vbCrLf
				Exit Sub	
			end if
		end if
	Next 	
end Sub	

Sub NumAlan(AlanDeger, AlanAdi, MaxDeger, MinDeger, BosKabul)
		
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If Instr(1,AlanDeger,"+") > 0 or Instr(1,AlanDeger,"-") > 0 Then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçersiz Karakterler İçeriyor." & vbCrLf
		Exit Sub    
	End If
	If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer Tamsayı Olmalıdır." & vbCrLf
	        Exit Sub
		End If
	   If CSng(AlanDeger) > MaxDeger And MaxDeger <> -1 Then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MaxDeger & " Değerinden Büyük Olamaz." & vbCrLf
	        Exit Sub
	   End If
	   If CSng(AlanDeger) < CSng(MinDeger) And MinDeger <> -1 Then			
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MinDeger & " Değerinden Küçük Olamaz." & vbCrLf
	        Exit Sub
	   End If
	Else
		If Not (AlanDeger = "" and BosKabul) then
	      UyariMesaji = UyariMesaji & AlanAdi & " Alanına Nümerik Bir Değer Girilmesi Gereklidir." & vbCrLf
	    	Exit Sub
		End If
	End If	
End Sub
Sub NumAlanHaneKontrol(AlanDeger, AlanAdi, MaxDeger, MinDeger, HaneSayisi,BosKabul)
	      Dim  Anahtar1,result
				If Trim(AlanDeger) <> AlanDeger Then
				UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
			End if
			If IsNumeric(AlanDeger) Then
				result=InStr(Replace(AlanDeger,".",","),",")
				if (result<>0) then
					Anahtar1 = Split(Replace(AlanDeger,".",","), ",", -1, 1)
					if len(Anahtar1(1))>HaneSayisi then
					UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & (HaneSayisi) & " Haneli Bir Sayı Olmalıdır." & vbCrLf
					Exit Sub
					end if
					if CSng(Anahtar1(0)) = CSng(MaxDeger) And MaxDeger <> -1 Then
						if CSng(Anahtar1(1)) > 0 Then
							UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MaxDeger & " Değerinden Büyük Olamaz." & vbCrLf
						end if	
					else					
						if CSng(Anahtar1(0)) > CSng(MaxDeger) And MaxDeger <> -1 Then
							UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MaxDeger & " Değerinden Büyük Olamaz." & vbCrLf
							Exit Sub
						End If
					end if
					
					if CSng(Anahtar1(0)) < CSng(MinDeger) And MinDeger <> -1 Then			
						UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MinDeger & " Değerinden Küçük Olamaz." & vbCrLf
						Exit Sub
					End If
				
				else
					If CSng(AlanDeger) > MaxDeger And MaxDeger <> -1 Then
						UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MaxDeger & " Değerinden Büyük Olamaz." & vbCrLf
						Exit Sub
					End If
					If CSng(AlanDeger) < CSng(MinDeger) And MinDeger <> -1 Then			
						UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & MinDeger & " Değerinden Küçük Olamaz." & vbCrLf
						Exit Sub
					End If
				End If
				
			Else
				If Not (AlanDeger = "" and BosKabul) then
					UyariMesaji = UyariMesaji & AlanAdi & " Alanına Nümerik Bir Değer Girilmesi Gereklidir." & vbCrLf
        			Exit Sub
				End If
			End If
End Sub

Sub NumAlan2(AlanDeger, AlanAdi, MaxDeger, MinDeger, HaneSayisi,BosKabul)
	
	If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer Tamsayı Olmalıdır." & vbCrLf
            Exit Sub
		End If
        If CSng(AlanDeger) > MaxDeger And MaxDeger <> -1 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & (HaneSayisi) & " Haneli Bir Sayı Olmalıdır." & vbCrLf
            Exit Sub
        End If
        If CSng(AlanDeger) < MinDeger And MinDeger <> -1 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanındaki Değer " & (HaneSayisi) & " Haneli Bir Sayı Olmalıdır." & vbCrLf
            Exit Sub
        End If
    Else
		If Not (AlanDeger = "" and BosKabul) then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanına Nümerik Bir Değer Girilmesi Gereklidir." & vbCrLf
        	Exit Sub
		End If
    End If

End Sub

Sub TelefonAlan(AlanDeger, AlanAdi,BosKabul)
	AlanDeger = Trim(AlanDeger)
    If IsNumeric(AlanDeger) Then
		If csng(AlanDeger) <> Round(csng(AlanDeger),0) or InStr(AlanDeger,",")>0 or InStr(AlanDeger,".")>0 then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
		End If
        If CSng(AlanDeger) > 9999999999 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If CSng(AlanDeger) < 0 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If Len(AlanDeger) < 10 Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            Exit Sub
        End If
        If Left(cstr(AlanDeger),1) = "0" Then
            UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
            UyariMesaji = UyariMesaji & " Alan Kodu yazılırken başına 0 eklenmemelidir." & vbCrLf
            Exit Sub
        End If        
    Else
		If Not (AlanDeger = "" and BosKabul) then
	        UyariMesaji = UyariMesaji & AlanAdi & " Alanına Alan Kodu + 7 Hane Rakam Girilmelidir." & vbCrLf
        	Exit Sub
		End If
    End If

End Sub

Function TarihAlan(AlanDeger, AlanAdi, BosKabul)
    AlanDeger = Trim(AlanDeger)
    TarihAlan = AlanDeger
    Dim MyIsDate
    MyIsDate = True
    
    if AlanDeger = "" And BosKabul Then Exit function
    if AlanDeger = "" And Not BosKabul then MyIsdate = False

    If Len(Trim(AlanDeger))>0 then
        If IsDate(AlanDeger) Then
         
		    if Mid(AlanDeger,2,1) = "/" Then AlanDeger = "0" & AlanDeger
		    if Mid(AlanDeger,5,1) = "/" Then AlanDeger = Left(AlanDeger,3) & "0" & Right(AlanDeger,Len(AlanDeger)-3)
		    
		    if Len(AlanDeger) <> 10 Then 	
				UyariMesaji = UyariMesaji & AlanAdi & " Alanına (gg/aa/yyyy) Şeklinde Geçerli Bir Tarih Girilmesi Gereklidir." & vbCrLf
				Exit function
			 End if

			if (Mid(AlanDeger,3,1) <> "/" OR Mid(AlanDeger,6,1) <> "/") Then
				MyIsDate = False
			End If 

            If cint(Mid(AlanDeger, 4, 2)) > 12 Then
                MyIsDate = False
            ElseIf DateDiff("d", "01/01/1900", AlanDeger) < 0 Then
                MyIsDate = False
            ElseIf cint(Right(AlanDeger, 4)) > 2050 Then
                MyIsDate = False
            End If
        Else
            MyIsDate = False
        End If
    End If

    If MyIsDate = False then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanına (gg/aa/yyyy) Şeklinde Geçerli Bir Tarih Girilmesi Gereklidir." & vbCrLf
    End If

End function

Sub TextAlan(AlanDeger, AlanAdi, Uzunluk, BosKabul)
	
    If InStr(AlanDeger,"""")>0 or InStr(AlanDeger,"<")>0 or InStr(AlanDeger,">")>0 or InStr(AlanDeger,"!")>0 or InStr(AlanDeger,chr(39))>0 then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Yanlış Karakterler İçeriyor. ' "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(Trim(AlanDeger))=0 and BosKabul=False Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
    End If

    If Len(AlanDeger) > Uzunluk Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanına en uzun " & Uzunluk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Trim(AlanDeger) <> AlanDeger Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
  
End Sub


Sub BosKontrol(AlanDeger, AlanAdi)
	AlanDeger = Trim(AlanDeger)
    If Len(Trim(AlanDeger))=0 Then
	UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
    End If

End Sub

Function SubmitHelp(pageName)
Dim frm
Dim newWindow
	Set frm = Document.Forms("help_submit_form")
	frm.hlpPageName.value=pageName
	frm.submit
	set newWindow= window.open("","yardim_sayfasi")
	newWindow.focus
End Function

Sub EMailAlan(AlanDeger, AlanAdi, Uzunluk, BosKabul)
	if AlanDeger = "" and BosKabul then exit sub
	
    If InStr(AlanDeger,"""")>0 or InStr(AlanDeger,"<")>0 or InStr(AlanDeger,">")>0 or InStr(AlanDeger,"!")>0 or InStr(AlanDeger,chr(39))>0 then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Yanlış Karakterler İçeriyor. ' "" < > ! " & chr(39) & " karakterlerini kullanmayınız." & vbCrLf
    End If

    If Len(Trim(AlanDeger))=0 and BosKabul=False Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Boş Bırakılamaz." & vbCrLf
    End If

    If Len(AlanDeger) > Uzunluk Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanına en uzun " & Uzunluk & " karakter veri girilebilir." & vbCrLf
    End if
    
    If Trim(AlanDeger) <> AlanDeger Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başında veya sonunda boşluk(lar) bulunmaktadır." & vbCrLf
    End if
    If Trim(Left(AlanDeger,4)) = "www." Then 
		UyariMesaji = UyariMesaji & AlanAdi & " Alanının başına www yazmanıza gerek yoktur!" & vbCrLf
    End If
	
	Dim sEmail, nAtLoc
	ChkMail = True
	sEmail = Trim(AlanDeger)
	nAtLoc = InStr(1, sEmail, "@") 
	If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
		ChkMail = False
	ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
		ChkMail = False
	ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
		ChkMail = False
	ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
		ChkMail = False
	End If

	if not (ChkMail) then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı elektronik posta adresi düzenine uygun bir yapıda değildir." & vbCrLf  
	end if
	
End Sub

Function buyukHarfYap(inpControl)
	inpControl.value = UCase(replace(replace(inpControl.value,"ı","I"),"i","İ"))
End Function

Sub IPAlan(AlanDeger, AlanAdi,BosKabul)
	AlanDeger = Trim(AlanDeger)
    If (AlanDeger = "" And BosKabul) then
	    UyariMesaji = UyariMesaji & AlanAdi & " Alanına Geçerli Bir IP Adresi Girilmelidir." & vbCrLf
       	Exit Sub
	End If
	If AlanDeger = "0.0.0.0" or AlanDeger = "255.255.255.255" Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçerli Bir IP Adresi Değildir" & vbCrLf
		UyariMesaji = UyariMesaji & "Her Üç Rakam Grubu 256 dan küçük olmak koşuluyla xxx.xxx.xxx.xxx Şeklinde Geçerli Bir IP Adresi Giriniz." & vbCrLf
		Exit Sub
	End If
	Dim aryIp
	aryIp = Split(AlanDeger,".")
	If UBound(aryIp) <> 3 Then
		UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçerli Bir IP Adresi Değildir" & vbCrLf
		UyariMesaji = UyariMesaji & "Her Üç Rakam Grubu 256 dan küçük olmak koşuluyla xxx.xxx.xxx.xxx Şeklinde Geçerli Bir IP Adresi Giriniz." & vbCrLf
		Exit Sub
	Else
		If cstr(aryIp(0)) <> "" And  cstr(aryIp(1)) <> "" And cstr(aryIp(2)) <> "" And cstr(aryIp(3)) <> "" And IsNumeric(aryIp(0)) And IsNumeric(aryIp(1)) And IsNumeric(aryIp(2)) And IsNumeric(aryIp(3)) Then		
			If aryIp(0) > 255 or aryIp(1) > 255 or aryIp(2) > 255 or aryIp(3) > 255 Then 
				UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçerli Bir IP Adresi Değildir" & vbCrLf
				UyariMesaji = UyariMesaji & "Her Üç Rakam Grubu 256 dan küçük olmak koşuluyla xxx.xxx.xxx.xxx Şeklinde Geçerli Bir IP Adresi Giriniz." & vbCrLf
				Exit Sub
			End If
		Else
			UyariMesaji = UyariMesaji & AlanAdi & " Alanı Geçerli Bir IP Adresi Değildir" & vbCrLf
			UyariMesaji = UyariMesaji & "Her Üç Rakam Grubu 256 dan küçük olmak koşuluyla xxx.xxx.xxx.xxx Şeklinde Geçerli Bir IP Adresi Giriniz." & vbCrLf		
		End If		
	End If	
End Sub

Sub SifreKarakterKontrol(AlanDeger)
		dim ozelKarakterler
		dim rakamlar
		dim harfler
		dim strTemp
		dim ozel
		
		ozelKarakterler = Array(".",":","+","-","*","/","_","@","#","$","%","&")
		rakamlar = Array("0","1","2","3","4","5","6","7","8","9")
		harfler = Array("a","b","c","ç","d","e","f","g","ğ","h","ı","i","j","k","l","m","n","o","ö","p","r","s","ş","t","u","ü","v","y","z","w","x","q","A","B","C","Ç","D","E","F","G","Ğ","H","I","İ","J","K","L","M","N","O","Ö","P","R","S","Ş","T","U","Ü","V","Y","Z","W","X","Q")
		
		for i = 0 to Len(AlanDeger)
			strTemp = Mid(AlanDeger,i+1,1)
			
			for each x in ozelKarakterler
				if strTemp = x then
					ozel = 1
				end if
			next

			for each x in rakamlar
				if strTemp = x then
					rakam = 1
				end if
			next	
				
			for each x in harfler
				if strTemp = x then
					harf = 1
				end if
			next					
		next
		
		if (harf<>1) OR (rakam<>1) OR (ozel<>1) then
			UyariMesaji = UyariMesaji & AlanAdi & " Şifreniz içerisinde en az bir tane özel karakter (.:+-/_@#$%&), sayı ve harf olmalıdır." & vbCrLf
		end if
End Sub