Function ScotlandSelfCateringHolidays_ContactFrm_OnSubmit()

     ScotlandSelfCateringHolidays_ContactFrm_OnSubmit = False

     Set saForm = Document.ScotlandSelfCateringHolidays_ContactFrm

     If Trim(saForm.saContName.value) = "" Then
       MsgBox "Your Name is Required", vbInformation, "Need Input"
       saForm.saContName.Focus
     ElseIf Trim(saForm.saContEmail.value) = "" Then
       MsgBox "Your Email Address is Required", vbInformation, "Need Input"
       saForm.saContEmail.Focus
     ElseIf Trim(saForm.saContBody.value) = "" Then
       MsgBox "Message Body is Required", vbInformation, "Need Input"
       saForm.saContBody.Focus
     Else
       ScotlandSelfCateringHolidays_ContactFrm_OnSubmit = True
     End If
     
End Function