function lidwordenav(){
alert("ggggggggggggg")
var IDlid=document.getElementById("lidwordenav")
alert("vvvvvv")
if (IDlid.checked==false){ 
alert("ja")
document.getElementById("lidwordenzend").disabled=true
}
else
{

alert("nee")
document.getElementById("lidwordenzend").disabled=false
}

}


Function lidwordenzenden()
 
   Dim jip,str, e
   jip=0
   ja=0
   
   
      Set e = document.formlidworden.lidwordenvoorl
 
   If Len(e.value) = 0 then
   jip=1
      str = msgbox("Er is niets ingevuld bij lidwordenvoorletters", vbOKOnly + vbExclamation, "Fout")
     End if
   
   Set e = document.formlidworden.lidwordennaam
 
   If Len(e.value) = 0 then
   jip=1
      str = msgbox("De lidwordennaam is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
     End if
	 
	  Set e = document.formlidworden.lidwordenadres
	  If Len(e.value) = 0 then
		jip=1
      str = msgbox("Het lidwordenadres is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
     End if
	 
	  Set e = document.formlidworden.lidwordenpostcode
	  If Len(e.value) = 0 then
		jip=1
      str = msgbox("De lidwordenpostcode is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
     End if
	 
	  Set e = document.formlidworden.lidwordenwoonplaats
	  If Len(e.value) = 0 then
		jip=1
      str = msgbox("De lidwordenwoonplaats is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
     End if
	 
	  Set e = document.formlidworden.lidwordenbank
	  If Len(e.value) = 0 then
		jip=1
      str = msgbox("Het lidwordenbankrekeningnummer is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
     End if
	 
Set e = document.formlidworden.lidwordenemail

If Len(e.value) = 0 then
jip=1
str = msgbox("Het e-maillidwordenadres is niet ingevuld)", vbOKOnly + vbExclamation, "Fout")
end if
If Len(e.value) <> 0 then

if jip=0 then
Set e = document.formlidworden.lidwordenemail
k=instr(e.value,"@")
if k=0 then
jip=1
str = msgbox("Het e-maillidwordenadres is niet juist (er MOET een @ in staan)", vbOKOnly + vbExclamation, "Fout")
end if
end if

Set e = document.formlidworden.lidwordennaamk
If Len(e.value) <> 0 then
Set e = document.formlidworden.lidwordengebdatum
If Len(e.value) = 0 then
jip=1
str = msgbox("De geboortedatum van het kind is niet ingevuld", vbOKOnly + vbExclamation, "Fout")
else
if IsDate(e.value)=false then
jip=1
str = msgbox("De geboortedautm van het kind is niet juist", vbOKOnly + vbExclamation, "Fout")
end if
end if
end if


if jip=0 then
Set e = document.formlidworden.lidwordenemail
k=instr(e.value,".")
if k=0 then
jip=1
str = msgbox("Het e-maillidwordenadres is niet juist (er MOET een . in staan)", vbOKOnly + vbExclamation, "Fout")
end if
end if
end if

Set e = document.formlidworden.lidwordenbetaut
if e.checked=true then
str = msgbox("U geeft toestemming voor automatisch incasso door Laposa. Nb: mocht u het niet eens zijn met een incasso dan heeft u de bevoegdheid om het bedrag binnen 30 dagen na afschrijving- zonder opgave van redenen- bij uw (post)lidwordenbank terug te vorderen.", vbOKCancel + vbInformation, "Automatische incasso")
if str=2 then
jip=1
e.checked=false
end if
end if


	  


     If jip =0 then
     formlidworden.Submit
   End if
End Function
</script>