function Validate_Submit ()
wenn frmNewRec.BirthDate.value= "" oder nicht isdate (frmNewRec.BirthDate.value) dann
msgbox „erreichen bitte ein gültiges Geburtsdatum im yyyy Format-DD Millimeter“, vbexclamation, „Geburtstag“
frmNewRec.BirthDate.value= ""
frmNewRec.BirthDate.focus
'frmNewRec.CancelForm.value= " 1 "
Validate_Submit = falsch
sonst
'frmNewRec.action= " SaveNew.asp "
'frmNewRec.CancelForm.value= " 0 "
Validate_Submit=true
'frmNewRec.submit
beenden wenn
Funktion beenden
|