option explicit
dim errm

function checkout_onSubmit()
  errm = ""

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

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

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

  '------------
  
  if errm <> "" then
    msgbox errm
    checkout_onSubmit = False
  else
    checkout_onSubmit = True
  end if

end function