r7132: - start a convention of making object constructors end in Obj, so we
[kai/samba.git] / swat / esptest / formtest.esp
1 <% page_header("columns", "ESP Form Test"); %>
2
3 <%
4 var f = FormObj("FormTest", 3, 2);
5 f.element[0].label = "First Name";
6 f.element[0].name  = "firstName";
7 f.element[0].value = form['firstName'];
8 f.element[1].label = "Last Name";
9 f.element[1].name  = "lastName";
10 f.element[1].value = form['lastName'];
11 f.element[2].label = "Color";
12 f.element[2].type  = "select";
13 f.element[2].list  = new Array("Red", "Green", "Blue", "Yellow");
14 f.element[2].value = form['Color'];
15 f.submit[0] = "OK";
16 f.submit[1] = "Cancel";
17
18 display_form(f);
19
20 <%
21   /* if its a post then the user has filled in the form, so
22      report the values 
23   */
24   if (form['submit'] == "OK") {
25 %>
26   You chose firstName=@@form['firstName'] lastName=@@form['lastName']<p>
27   
28 <%
29    simple_table(form);
30   }
31 %>
32
33 <% page_footer(); %>