You have to number your net, gross, date, and time form fields as well.
(Why do you have separate date and time columns in your table? Why not just
one field for this data?)
Also, when you're doing INSERTs, don't create a recordset object.
Try this code. (Three files)
FORM.HTM:
<html><head></head>
<body>
<form method="post" action="form.as p">
Apples: <input name="apples" type="text" />
Oranges: <input name="oranges" type="text" />
<input type="submit" />
</form>
</body>
</html>
--------------------------------------
FORM.ASP:
<html><head></head>
<body>
<%
Dim iOranges, iApples
iApples = Request.Form("a pples")
iOranges = Request.Form("o ranges")
%>
<form method="post" action="insert. asp">
<input type="hidden" name="apples" value="<%=iAppl es%>" />
<input type="hidden" name="oranges" value="<%=iOran ges%>" />
<table>
<tr>
<th colspan="5">App les</th>
</tr>
<tr>
<td> </td>
<td>net price</td>
<td>gross price</td>
<td>date</td>
<td>time</td>
</tr>
<% For i = 1 To iApples %>
<tr>
<td>Apples <%=i%></td>
<td><input name="Applesnet <%=i%>" type="text" /></td>
<td><input name="Applesgro ss<%=i%>" type="text" /></td>
<td><input name="Applesdat e<%=i%>" type="text" /></td>
<td><input name="Applestim e<%=i%>" type="text" /></td>
</tr>
<% Next %>
<tr>
<th colspan="5">Ora nge</th>
</tr>
<tr>
<td> </td>
<td>net price</td>
<td>gross price</td>
<td>date</td>
<td>time</td>
</tr>
<% For i = 1 To iOranges %>
<tr>
<td>Apples <%=i%></td>
<td><input name="Orangesne t<%=i%>" type="text" /></td>
<td><input name="Orangesgr oss<%=i%>" type="text" /></td>
<td><input name="Orangesda te<%=i%>" type="text" /></td>
<td><input name="Orangesti me<%=i%>" type="text" /></td>
</tr>
<% Next %>
</table>
<input type="submit" />
</form>
</body>
</html>
--------------------------------------
INSERT.ASP:
<%
Dim iOranges, iApples
iApples = Request.Form("a pples")
iOranges = Request.Form("o ranges")
Set oADO = CreateObject("A DODB.Connection ")
oADO.Open YourConnectionS tringHere
For i = 1 To iApples
sSQL = "INSERT INTO [apples] ([net],[gross],[date],[time]) VALUES (" & _
Request.Form("A pplesnet" & i) & "," & _
Request.Form("A pplesgross" & i) & "," & _
Request.Form("A pplesdate" & i) & "," & _
Request.Form("A pplestime" & i) & ")"
' oADO.Execute sSQL,,129 UNCOMMENT IF ALL IS FINE
RESPONSE.WRITE SSQL & "<BR>"
Next
For i = 1 To iOranges
sSQL = "INSERT INTO [Oranges] ([net],[gross],[date],[time]) VALUES (" & _
Request.Form("O rangesnet" & i) & "," & _
Request.Form("O rangesgross" & i) & "," & _
Request.Form("O rangesdate" & i) & "," & _
Request.Form("O rangestime" & i) & ")"
' oADO.Execute sSQL,,129 UNCOMMENT IF ALL IS FINE
RESPONSE.WRITE SSQL & "<BR>"
Next
oADO.Close : Set oADO = Nothing
%>
Ray at home
"Nick" <an*****@gmail. com> wrote in message
news:c3******** *************** ***@posting.goo gle.com...
Loop to create an array from a dynamic form.
I'm having trouble with an application, and I'll try to explain it as
clearly as possible:
1. I have a form with two fields, say Apples and Oranges. The user
selects from a drop down menu, between 1-10 of each and clicks submit.
The resulting page will display a NEW form, with rows and a list of
fields for the amount of each items selected.
Example. If I selected 3 apples and 5 oranges, the resulting page
would show 3 rows of text fields for apples and 5 rows of text fields
for oranges.
The form fields would be (after each semicolon, the first word is the
form element name (Apple1, Apple2)):
Apple1: net price | gross price | date | time
Apple2: net price | gross price | date | time
Apple3: net price | gross price | date | time
Orange1: net price | gross price | date | time
Orange2: net price | gross price | date | time
Orange3: net price | gross price | date | time
Orange4: net price | gross price | date | time
Orange5: net price | gross price | date | time
I want to insert each one of these records into the database, each
record being a net, gross price, date and time for apple 1-X and
orange 1-X. The apples will go into the apple table and the oranges
will go into the oranges table.
I'm used to looping like this:
for each item in request.form
if left(item, 6) = "orange" then
orange = orange & request.form(it em) & ","
end if
next
After that, I'll create a loop that inserts each record into the
database separately, something of this nature:
for each item in orange
set rsOrange= server.createob ject("adodb.rec ordset")
strSql = "select * from oranges"
rsOrange.open strSql, Connstr, 1, 3
rsOrange.Addnew
rsOrange("net") = request.form("n et")
rsOrange("gross ") = request.form("g ross")
rsOrange("date" ) = request.form("d ate")
rsOrange("time" ) = request.form("t ime")
rsOrange.Update
rsOrange.close
next
But since this is a multi dimensional array (gross, net, date, time
will need to be inserted correspondingly ), you can see my dilemma. I
understand how they work when hard coded, but not to dynamically
create and populate them, then use in an insert statement. Sorry if
this is elementary, but any help would really be appreciated.
Thanks!
