option explicit
dim errm

function blimedlem_onSubmit()
  errm = ""

  if document.all.navn.value = "" then
    errm = errm + "Navn må fylles ut" + chr(13) + chr(10)
  end if

  if document.all.adresse.value = "" then
    errm = errm + "Adresse må fylles ut" + chr(13) + chr(10)
  end if

  if not isNumeric(document.all.postnr.value) then
    errm = errm + "Postnummer må fylles ut med 4 gyldige tegn" + chr(13) + chr(10)
  end if

  if document.all.sted.value = "" then
    errm = errm + "Sted må fylles ut" + chr(13) + chr(10)
  end if
  
  '------------
  
  if errm <> "" then
    msgbox errm
    blimedlem_onSubmit = False
  else
    blimedlem_onSubmit = True
  end if

end function