Web Techniques: Figure 3

Figure 3
HTML code used to create Figure 2.
<HTML>
<HEAD>
<TITLE>Simple Validation Example</TITLE>
</HEAD>
<BODY>
    <OBJECT ID="TextBox1" WIDTH=120 HEIGHT=30
     CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3">
        <PARAM NAME="VariousPropertyBits" VALUE="746604571">
        <PARAM NAME="Size" VALUE="2540;635">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="0">
    </OBJECT>
<BR>
<BR>
    <OBJECT ID="CommandButton1" WIDTH=200 HEIGHT=40
     CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57">
        <PARAM NAME="Caption" VALUE="Submit choice (1-10)">
        <PARAM NAME="Size" VALUE="2540;846">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="ParagraphAlign" VALUE="3">
        <PARAM NAME="FontWeight" VALUE="0">
    </OBJECT>
    <SCRIPT LANGUAGE="VBScript">

<!--
Sub CommandButton1_Click()
  If Int(TextBox1.Text) = TextBox1.Text AND TextBox1.Text > 1 _
AND TextBox1.Text <=10 Then
     MsgBox "Thank you for your choice"
  Else
     MsgBox "Please enter an *integer* between 1 and 10!"
  End If  
End Sub
-->
    </SCRIPT>
</BODY>
</HTML>