| Ukážka | |
| Script | <SCRIPT LANGUAGE="VBScript">
<!-- Sub Submit_OnClick Dim Formular Set Formular = document.MojForm If IsNumeric(Formular.Text1.Value) Then If Formular.Text1.Value < 1 Or Formular.Text1.Value > 20 Then MsgBox "Prosím vložte číslo od 1 do 20." Else MsgBox "Formulár je vyplnený správne." End If Else MsgBox "Prosím vlož číslo." End If End Sub --></SCRIPT> |
| Object | <FORM name="MojForm"> Vlož číslo od 1 do 20: <INPUT name="Text1" size="20" > <INPUT name="Submit" type="button" value="Odoslať"> </FORM> |