option explicit
dim errm

function mail_onSubmit()
  errm = ""

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

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

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

if document.all.Samling.value = "" then
    errm = errm + "Sted for samlingen må fylles ut" + chr(13) + chr(10)
  end if

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

end function