Function EnglandSelfCateringHolidays_ContactFrm_OnSubmit()

     EnglandSelfCateringHolidays_ContactFrm_OnSubmit = False

     Set eaForm = Document.EnglandSelfCateringHolidays_ContactFrm

     If Trim(eaForm.eaContName.value) = "" Then
       MsgBox "Your Name is Required", vbInformation, "Need Input"
       eaForm.eaContName.Focus
     ElseIf Trim(eaForm.eaContEmail.value) = "" Then
       MsgBox "Your Email Address is Required", vbInformation, "Need Input"
       eaForm.eaContEmail.Focus
     ElseIf Trim(eaForm.eaContBody.value) = "" Then
       MsgBox "Message Body is Required", vbInformation, "Need Input"
       eaForm.eaContBody.Focus
     Else
       EnglandSelfCateringHolidays_ContactFrm_OnSubmit = True
     End If
     
End Function