function Validator(theForm)


  If (theForm.EMAIL.value = "") Then
    MsgBox "Please enter a value for the ""EMAIL"" field.", 0, "Validation Error"
    theForm.EMAIL.focus()
    Validator = False
    Exit Function
  End If

  If (Len(theForm.EMAIL.value) < 3) Then
    MsgBox "Please enter at least 3 characters in the ""EMAIL"" field.", 0, "Validation Error"
    theForm.EMAIL.focus()
    Validator = False
    Exit Function
  End If
  Validator = True 
End Function