FP97: Sample VBScript to Calculate Contents of Drop-Down Lists

MORE INFORMATION

1. In FrontPage Explorer, open or create a Web.
2. Open a Web page in FrontPage Editor.
3. Insert the following form fields, by pointing to Form Field on the Insert menu, and then clicking the appropriate command:

   Two drop-down menus
   One one-line text box
   One push button

4. Right-click the first drop-down menu form field and then click Form Field Properties.
5. In the Name box, type the following name, and then click OK:

   Drop1

6. Repeat steps 4 and 5 for the remaining form fields. Use the following names:

          Object                        Name
          -------------------------------------
   
          Second Drop-Down Menu         Drop2
          One One Line Text Box         Text1
          One Push Button               Button1
   						

7. Right-click the first drop-down menu form field, and then click Form Field Properties.
8. In the Drop-down Menu Properties dialog box, click Add.
9. In the Add Choice dialog box, enter a number in the Choice box, and then click OK.
10. Repeat steps 8 and 9 for each additional number you want to enter.
11. Repeat steps 7 through 10 for the second drop-down form field.
12. Right-click the push button form field and then click Form Field Properties.
13. Click Normal, and then click OK.
14. On the Insert menu, click Script.
15. Click to select the VBScript check box.
16. In the Script box, type the following code:

           sub button1_onclick
    
             ' Create the form object.
             dim theform
             set theform = document.form1
    
             ' Return the value from the first drop-down menu. Drop-down text
             ' boxes return values as text. The Cint function converts text
    
             ' into an integer.
             firstvalue = Cint(theform.drop1.options _
             (theform.drop1.selectedindex).text)
    
             ' Return the value from the second drop-down menu.
             secondvalue = Cint(theform.drop2.options _
             (theform.drop2.selectedindex).text)
    
             ' Display the results in a text box.
             theform.Text1.value = firstvalue + secondvalue
    
           end sub
    						

17. Click OK.
18. Save the file and preview it in your Web browser.