Function form1_onSubmit

	Dim testVal

	If SelectionChecked(testVal) then
	   form1_onSubmit = True
	Else
	   If testVal = "1" then
	  	liVal = MsgBox("Please select an option for question 1.", 0, "BIIA Survey")
	   Else
	   	liVal = MsgBox("Please select an option for question 2.", 0, "BIIA Survey")
	   End if
	   form1_onSubmit = False
	End if

End Function

Function SelectionChecked(ByRef intVal)

	Dim bResult, sVal1, sVal2

	sVal1 = document.form1.Option1.value
	sVal2 = document.form1.Option2.value

	If sVal1 > "" AND _
	   sVal2 > "" then
	   SelectionChecked = True
	Else
	   If sVal1 = "" then
	      intVal = "1"
	   Else
	      intVal = "2"
	   End if
	   SelectionChecked = False	
	End if

End Function

Function ReFreshPage(objForm)

	objForm.Option1.Value = ""
	objForm.Option2.Value = ""
	objForm.txtComment.Value = ""

End Function