Option Explicit

dim validation, header
header = "Incorrect Data Entered"

Sub Check(ByVal FieldValue, ByVal message)
        	If FieldValue = "" Then
            		MsgBox message, 8, Header	
            		validation = False
            	End If
End Sub

Function qsearch_OnSubmit
	dim astrwords
	validation = true
	Call Check(Document.qsearch.qsearch.Value, "Please enter some text to search (not more than 3 words).")
	if document.qsearch.qsearch.value = "Quick Search" then
		msgbox "Enter Text other than default text", 8, header
		validation = false
	else
		validation = true
	end if
	if validation = true then
		astrwords= split(Document.qsearch.qsearch.Value," ")
		if ubound(astrwords) > 2 then
			Msgbox "Please enter no more than 3 words to search.", 8, header
			validation=false
		else
			validation = true
		end if
		erase astrwords
	end if

	if validation = false then
		Qsearch_OnSubmit = False
	else
		QSearch_OnSubmit = true
	end if
End Function

Function dtdsearch_OnSubmit
	validation = true
	Call Check(Document.dtdsearch.search.Value, "Please enter some text to search (not more than 3 words).")
	if document.dtdsearch.search.value = "Bahamas Directory" then
		msgbox "Enter Text other than default text", 8, header
		validation = false
	else
		validation = true
	end if
	if validation = false then
		dtdsearch_OnSubmit = False
	else
		dtdsearch_OnSubmit = true
	end if
End Function

Function google_OnSubmit
	validation = true
	Call Check(Document.google.q.Value, "Please enter some text to search (not more than 3 words).")
	if document.google.q.value = "Google Search" then
		msgbox "Enter Text other than default text", 8, header
		validation = false
	else
		validation = true
	end if

	if validation = false then
		google_OnSubmit = False
	else
		google_OnSubmit = true
	end if
End Function