Items:

<%

nItems = Request.Form("Items").Count

For i = 1 To nItems

' Show previously submitted Items

Response.Write "

Trim(Request.Form("Items")(i)) & """>
"

Next

If Request.Form("Item") <> "" Then

' paint a new input box, and store the old Item in Items collection

Response.Write "

Trim(Request.Form("Item")) & """>
"

Response.Write "

Please enter an Item,
"

Response.Write "and submit them one at a time
"

Response.Write "by pressing the Add Item button.
"

Response.Write ""

Else

' No Item was submitted, don't show an error

Response.Write "

Please enter an Item,
"

Response.Write "and submit them one at a time
"

Response.Write "by pressing the Add Item button.
"

Response.Write "
"

End If

%>

<% End If %>