--------------------------------------------------------------------------------
< %@ language = vbscript%>
< % Response.Expires = 0 %>
< HTML>
< HEAD>
< TITLE> Dynamically Growing Form< /TITLE>
< /HEAD>
< BODY>
< %
If Request("Action") = "Submit the List" Then
´ Show what was entered.
Response.Write "< B> Here are the Items submitted:< /B> < BR> "
nItems = Request.Form("Items").Count
For i = 1 To nItems
´ Show submitted Items
Response.Write Request.Form("Items")(i) & "< BR> "
Next
Response.Write Request("Item") & "< BR> "
Else
´ Create the form from all items. %>
< FORM Action=dynaform.asp Method=Post>
< B> Items:< /B> < BR>
< %
nItems = Request.Form("Items").Count
For i = 1 To nItems
´ Show previously submitted Items
Response.Write "< INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Items")(i)) & """> < BR> "
Next
If Request.Form("Item") < > "" Then
´ paint a new input box, and store the old Item in Items collection
Response.Write "< INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Item")) & """> < BR> "
Response.Write "< P> Please enter an Item,< BR> "
Response.Write "and submit them one at a time< BR> "
Response.Write "by pressing the Add Item button.< BR> "
Response.Write "< INPUT Type=Text Size=50 Name=Item Value=""""""> "
Else
´ No Item was submitted, don´t show an error
Response.Write "< P> Please enter an Item,< BR> "
Response.Write "and submit them one at a time< BR> "
Response.Write "by pressing the Add Item button.< BR> "
Response.Write "< INPUT Type=Text Size=40 Name=Item Value=""""""> < BR> "
End If
%>
< P>
< INPUT Type="Submit" Name="Action" Value="Add Item to List">
< INPUT Type="Submit" Name="Action" Value="Submit the List">
< BR>
< % End If %>
< /FORM>
< /BODY>
< /HTML>
|
