option explicit
dim errm

function paamelding_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 document.all.tlf.value = "" then
    errm = errm + "Telefonnummer må fylles ut" + chr(13) + chr(10)
  end if

  if not document.all.medlem(0).checked then
    if not document.all.medlem(1).checked then
      if not document.all.medlem(2).checked then
        errm = errm + "Du må velge om du er, ønsker å bli, eller ikke ønsker å bli medlem"
      end if
    end if
  end if
  
  '------------
  
  if errm <> "" then
    msgbox errm
    paamelding_onSubmit = False
  else
    paamelding_onSubmit = True
  end if

end function