Function newart_onSubmit()

  dim msg

  if not IsDate( document.newart.fradato.value ) then
    msg = msg & "Fra dato: Ugyldig verdi, bruk datoformat dd.mm.yyyy" & chr(10) & chr(13)
  end if

  if not IsDate( document.newart.tildato.value ) then
    msg = msg & "Til dato: Ugyldig verdi, bruk datoformat dd.mm.yyyy" & chr(10) & chr(13)
  end if
  
  if not (isNumeric( document.newart.prioritering.value ) or document.newart.prioritering.value = "") then
    msg = msg & "Prioritering må være et tall mellom 0 og 9999" & vbcrlf &_
                "0 er høyest prioritert"
  end if

  if ( Len( msg ) > 0 ) then
    msgbox( msg )
    newart_onSubmit = false
  else
    newart_onSubmit = true
  end if

End Function