Function HrstClientReplace(StrInput)	
	StrInput = Replace(StrInput, "ی", "ي")	
	StrInput = Replace(StrInput, chr(152), chr(223))	
	HrstClientReplace = StrInput
End Function


Function EmptyValidate(StrInput, Name)
	Dim Error
	Error=""
	IF IsNull(StrInput) Or IsEmpty(StrInput) Or StrInput="" Then
		Error = " لطفا " &  Name & " را وارد نماييد " & chr(13)&chr(10)
	End IF
	EmptyValidate = Error
End Function

Function LengthValidate(StrInput, length, Name)
		Dim Error
		IF Len(StrInput) > Length Then
			Error = "حداکثر طول مجاز " & Name & " " & Length & " کاراکتر مي باشد... " & " رشته وارد شده  = " & Len(StrInput) & "کاراکتر" & chr(13)&chr(10)
		End IF
		LengthValidate = Error
End Function	


Function ValidateUserName(StrInput)
	Dim Error, Flag , GoodChar, i, c
	Error = ""
	GoodChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
	Flag = True
	For i = 1 to Len( StrInput )
		c = mid( StrInput, i, 1 )
		if ( InStr( GoodChar, c ) = 0 ) then
			Flag = False
			Exit For
		end if
	Next
	IF Flag = False Then
		Error = "(a..z A..Z 0..9)" & "کاراکترهاي استفاده شده در شناسه کاربري مجاز نمي باشد" & chr(13)& chr(10)
	End IF
	ValidateUserName = Error
End Function

Function ValidateString(StrInput,Name)
	Dim Error, Flag , GoodChar, i, c
	Error = ""
	GoodChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.-"
	Flag = True
	For i = 1 to Len( StrInput )
		c = mid( StrInput, i, 1 )
		if ( InStr( GoodChar, c ) = 0 ) then
			Flag = False
			Exit For
		end if
	Next
	IF Flag = False Then
		Error = "(a..z A..Z 0..9)" &  "كاراكترهاي استفاده شده در " & Name & " مجاز نمي باشد " & chr(13)&chr(10)
	End IF
	ValidateString = Error
End Function


Function ValidateOldPassWord(StrInput,Name)
	Dim Error, Flag , GoodChar, i, c
	Error = ""
	GoodChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
	    Flag = True
	    For i = 1 to Len( StrInput )
		    c = mid( StrInput, i, 1 )
		    if ( InStr( GoodChar, c ) = 0 ) then
			    Flag = False
			    Exit For
		    end if
	    Next
	    IF Flag = False Then
		    Error = "(a..z A..Z 0..9)" & "كاراكترهاي استفاده شده در " & Name & "مجاز نمي باشند" & chr(13)&Chr(10)
	    End IF
	ValidateOldPassWord = Error
End Function

Function ValidatePassWord(StrInput,Name)
	Dim Error, Flag , GoodChar, i, c
	Error = ""
	GoodChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
	If Len( StrInput ) < 6 Then
		 Error = "طول " & Name & "بايد حداقل 6 كاراكتر باشد " & chr(13)&Chr(10)
	Else
	    Flag = True
	    For i = 1 to Len( StrInput )
		    c = mid( StrInput, i, 1 )
		    if ( InStr( GoodChar, c ) = 0 ) then
			    Flag = False
			    Exit For
		    end if
	    Next
	    IF Flag = False Then
		    Error = "(a..z A..Z 0..9)" & "كاراكترهاي استفاده شده در " & Name & "مجاز نمي باشند" & chr(13)&Chr(10)
	    End IF
	  End if
	ValidatePassWord = Error
End Function


Function HrstClientHtmlEncode(StrInput)
	StrInput = Replace(StrInput, "<", "&lt;")
	StrInput = Replace(StrInput, ">", "&gt;")
	StrInput = Replace(StrInput, "&", "&amp;")
	StrInput = Replace(StrInput, """", "&quot;")
	HrstClientHtmlEncode = StrInput
End Function


Function ValidateFileName(StrInput)
	Dim Error, Flag , GoodChar, i, c
	Error = ""
	GoodChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\ /:.()_-=+"
	Flag = True
	For i = 1 to Len( StrInput )
		c = mid( StrInput, i, 1 )
		if ( InStr( GoodChar, c ) = 0 ) then
			Flag = False
			Exit For
		end if
	Next
	IF Flag = False Then
		Error = "کاراکترهاي استفاده شده در نام فايل معتبر مجاز نمي باشد" & chr(13)&chr(10)& "لطفا در نام فايل از حروف انگليسي استفاده نماييد" & chr(13)&chr(10)& "استفاده نكنيد"& " Space " & "لطفا در نام فايل از"
	End IF
	ValidateFileName = Error
End Function