ÿþFunction ValidUserNameSearch(inputStr)

	Dim Error

	Error = ""

	Error = LengthValidate(inputStr,20,"4F'3G ©'1(1J")

	Error = Error & ValidateUserName(inputStr)

	validUserNameSearch = Error

End function



Function ValidNameSearch(inputStr)

	Dim Error

	Error = ""

	inputStr = HrstClientReplace(inputStr)

	inputStr = HrstClientHtmlEncode(inputStr)

	Error = LengthValidate(inputStr,20,"F'E")

	ValidNameSearch = Error

End function



Function ValidFamilySearch(inputStr)

	Dim Error

	Error = ""

	inputStr = HrstClientReplace(inputStr)

	inputStr = HrstClientHtmlEncode(inputStr)

	Error = LengthValidate(inputStr,30,"F'E .'FH'/¯J")

	ValidFamilySearch = Error

End function



Function ValidBestUserNameSearch()

	Dim Error,TitleError

	TitleError = " : D7A' .7'G'J 2J1 1' (171A FE'JJ/ *" & chr(13) & chr(10)

	Error = ""

	Error = ValidUserNameSearch(Trim(form1.UserNameSearch.value))

	If Error <> "" Then

		Error = TitleError + Error 

		ALert(Error)

		form1.UserNameSearch.focus()

		ValidBestUserNameSearch = False

	End if

End function





Function ValidSearchForm()

	Dim Error,TitleError

	TitleError = " : D7A' .7'G'J 2J1 1' (171A FE'JJ/ *" & chr(13) & chr(10)

	Error = ""

	Error = ValidNameSearch(Trim(form1.NameSearch.value))

	Error = Error & ValidFamilySearch(Trim(form1.FamilySearch.value))

	Error = Error & ValidUserNameSearch(Trim(form1.UserNameSearch.value))

	If Error <> "" Then

		Error = TitleError + Error 

		ALert(Error)

		form1.NameSearch.focus()

		ValidSearchForm = False

	End if

End function



Function ValidCourseNameSearch(inputStr)

	Dim Error

	Error = ""

	inputStr = HrstClientReplace(inputStr)

	inputStr = HrstClientHtmlEncode(inputStr)

	Error = LengthValidate(inputStr,200,"F'E /H1G "EH24J")

	ValidCourseNameSearch = Error

End function



Function ValidCourseIDSearch(inputStr)

	Dim Error

	Error = ""

	inputStr = HrstClientReplace(inputStr)

	inputStr = HrstClientHtmlEncode(inputStr)

	Error = LengthValidate(inputStr,20,"4F'3G /H1G "EH24J")

	Error = Error + ValidateString(inputStr,"4F'3G /H1G "EH24J")

	ValidCourseIDSearch = Error

End function



Function ValidCourseSearchForm()

	Dim Error,TitleError

	TitleError = " : D7A' .7'G'J 2J1 1' (171A FE'JJ/ *" & chr(13) & chr(10)

	Error = ""

	Error = ValidCourseNameSearch(Trim(form1.CourseNameSearch.value))

	Error = Error & ValidCourseIDSearch(Trim(form1.CourseIDSearch.value))

	If Error <> "" Then

		Error = TitleError + Error 

		ALert(Error)

		form1.CourseNameSearch.focus()

		ValidCourseSearchForm = False

	End if

End function



Function ValidCourseExeSearchForm()

	Dim Error,TitleError,InputStr

	Dim Sy,Sm,Sd,Ey,Em,Ed

	Sy = form1.YearStartDateSearch.value

	Sm = form1.MonStartDateSearch.value

	Sd = form1.DayStartDateSearch.value

	Ey = form1.YearEndDateSearch.value

	Em = form1.MonEndDateSearch.value

	Ed = form1.DayEndDateSearch.value

	TitleError = " : D7A' .7'G'J 2J1 1' (171A FE'JJ/ *" & chr(13) & chr(10)

	Error = ""

	Error = ValidCourseNameSearch(Trim(form1.CourseNameSearch.value))

	Error = Error & ValidCourseIDSearch(Trim(form1.CourseIDSearch.value))



	If Error <> "" Then

		Error = TitleError + Error 

		ALert(Error)

		form1.CourseNameSearch.focus()

		ValidCourseExeSearchForm = False

	    Elseif ((Sy*Sm*Sd = 0) and (Not Sy+Sm+Sd = 0)) Then

		    Alert(TitleError & "D7A' *'1J. 41H9 /H1G 1' ©'ED H'1/ FE'JJ/")

		    form1.DayStartDateSearch.focus()

		    ValidCourseExeSearchForm = False

	        Elseif ((Ey*Em*Ed = 0) and (Not Ey+Em+Ed = 0)) Then

			    Alert(TitleError & "D7A' *'1J. ~'J'F /H1G 1' ©'ED H'1/ FE'JJ/")

		        form1.DayEndDateSearch.focus()

		        ValidCourseExeSearchForm = False

	End if

End function