' VBScript source code
	function MakeVisible()
		if document.frmSearchCriteria.SearchTypeA.checked = true then
			document.frmSearchCriteria.AuditorFileNumber.disabled = false
			document.frmSearchCriteria.AuditorFileNumberLabel.style.color = "blue"

 			document.frmSearchCriteria.DateMM.disabled = true
			document.frmSearchCriteria.DateDD.disabled = true
			document.frmSearchCriteria.DateYYYY.disabled = true
			document.frmSearchCriteria.DateLabel.style.color = "gray"
			
			document.frmSearchCriteria.Grantor.disabled = true
			document.frmSearchCriteria.GrantorLabel.style.color = "gray"

			document.frmSearchCriteria.Grantee.disabled = true
			document.frmSearchCriteria.GranteeLabel.style.color = "gray"

			document.frmSearchCriteria.DocumentType.disabled = true
			document.frmSearchCriteria.DocumentTypeLabel.style.color = "gray"
 		end if	
 		
		if document.frmSearchCriteria.SearchTypeG.checked = true then
			document.frmSearchCriteria.AuditorFileNumber.disabled = true
			document.frmSearchCriteria.AuditorFileNumberLabel.style.color = "gray"

 			document.frmSearchCriteria.DateMM.disabled = true
			document.frmSearchCriteria.DateDD.disabled = true
			document.frmSearchCriteria.DateYYYY.disabled = true
			document.frmSearchCriteria.DateLabel.style.color = "gray"

			document.frmSearchCriteria.Grantor.disabled = false
			document.frmSearchCriteria.GrantorLabel.style.color = "blue"

			document.frmSearchCriteria.Grantee.disabled = false
			document.frmSearchCriteria.GranteeLabel.style.color = "blue"
			
			document.frmSearchCriteria.DocumentType.disabled = true
			document.frmSearchCriteria.DocumentTypeLabel.style.color = "gray"
 		end if	 		
 
 		if document.frmSearchCriteria.SearchTypeD.checked = true then
			document.frmSearchCriteria.AuditorFileNumber.disabled = true
			document.frmSearchCriteria.AuditorFileNumberLabel.style.color = "gray"

 			document.frmSearchCriteria.DateMM.disabled = false
			document.frmSearchCriteria.DateDD.disabled = false
			document.frmSearchCriteria.DateYYYY.disabled = false
			document.frmSearchCriteria.DateLabel.style.color = "blue"

 			document.frmSearchCriteria.Grantor.disabled = true
			document.frmSearchCriteria.GrantorLabel.style.color = "gray"

			document.frmSearchCriteria.Grantee.disabled = true
			document.frmSearchCriteria.GranteeLabel.style.color = "gray"

			document.frmSearchCriteria.DocumentType.disabled = true
			document.frmSearchCriteria.DocumentTypeLabel.style.color = "gray"
 		end if	 	
 		
 		if document.frmSearchCriteria.SearchTypeT.checked = true then
			document.frmSearchCriteria.AuditorFileNumber.disabled = true
			document.frmSearchCriteria.AuditorFileNumberLabel.style.color = "gray"

 			document.frmSearchCriteria.DateMM.disabled = true
			document.frmSearchCriteria.DateDD.disabled = true
			document.frmSearchCriteria.DateYYYY.disabled = true
			document.frmSearchCriteria.DateLabel.style.color = "gray"

			document.frmSearchCriteria.Grantor.disabled = false
			document.frmSearchCriteria.GrantorLabel.style.color = "blue"

			document.frmSearchCriteria.Grantee.disabled = false
			document.frmSearchCriteria.GranteeLabel.style.color = "blue"
			
			document.frmSearchCriteria.DocumentType.disabled = false
			document.frmSearchCriteria.DocumentTypeLabel.style.color = "blue"
  		end if	 			
	end function	
	
	
	function ValidateInput()
		dim strError
		
		strError = false
 
 		if document.frmSearchCriteria.SearchTypeA.checked = true then
 			if document.frmSearchCriteria.AuditorFileNumber.value = "" then  
				alert("Auditor File Number Must Be Entered")
				document.frmSearchCriteria.AuditorFileNumber.focus 
				strError = true
				exit function
			end if
		end if

 		if document.frmSearchCriteria.SearchTypeG.checked = true then
 			if document.frmSearchCriteria.Grantor.value = "" and document.frmSearchCriteria.Grantee.value = "" then  
				alert("Grantor or Grantee Must Be Entered")
				document.frmSearchCriteria.Grantor.focus 
				strError = true
				exit function
			end if
		end if

 		if document.frmSearchCriteria.SearchTypeD.checked = true then
 			if document.frmSearchCriteria.DateDD.value = "" or document.frmSearchCriteria.DateMM.value = "" or document.frmSearchCriteria.DateYYYY.value = "" then  
				alert("Date Must Be Entered")
				document.frmSearchCriteria.DateMM.focus 
				strError = true
				exit function
			end if
		end if

 		if document.frmSearchCriteria.SearchTypeT.checked = true then
 			if document.frmSearchCriteria.Grantor.value = "" and document.frmSearchCriteria.Grantee.value = "" then  
				alert("Grantor or Grantee Must Be Entered")
				document.frmSearchCriteria.Grantor.focus 
				strError = true
				exit function
			end if
		end if
 		
		if strError = false then 
 			document.frmSearchCriteria.submit()
 		end if

	end function