array query with multiple <SELECT> form field

[Burton Figg]

I have a SELECT statement which holds a list of times (for adding
appointments to a database):

e.g.

<select name="time" id="time" size="3" multiple>
<option value="00:00">0 0:00</option>
<option value="00:30">0 0:30</option>
<option value="01:00">0 1:00</option>
<option value="01:30">0 1:30</option>
<option value="02:00">0 2:00</option>
<option value="02:30">0 2:30</option>
</select>

on the process page, I want to loop through the values of the "time" select
field, and enter them into a database.

I have tried this:

strSubject = request.Form("s ubject")
strDate = request.Form("t heDate")
strTime = request.Form("t ime")
strBody = request.Form("b ody")
strName = request.Form("n ame")
strTel = request.Form("t el")
strEmail = request.Form("e mail")

myArray = Split(Request(" time"),",")

For iy = 0 To UBound(myArray)
sql = "INSERT INTO appointments (the_Date, the_time, fldSub, fldBod,
fldName, fldTel, fldEmail) "
sql = sql & " VALUES
('"&strDate&"', '"&strTime&"',' "&strSubject&"' ,'"&strBody&"', '"&strName&"',' "
&strTel&"','"&s trEmail&"')"

set MyConn = oConn.Execute(s ql)
Set MyConn = Nothing
Next

but it only inserts into the database the value of the first "time" record
(e.g. if I selected 00:00, 00:30, 02:30 it inserts "00:00" each of the three
times through the loop.

The output of the "time" field is:

00:00, 00:30, 02:30

so I thought this line:

myArray = Split(Request(" time"),",")

would split the "time" field into 3 chunks, and each time through the loop I
was expecting it to take the next value.

Am I missing something obvious?

Thanks

Jim

[Ray at]

You're inserting strTime instead of myArray(iy).

Also, you should split with ", " instead of "," since there's that space in
between each time value.

Also, instead of
Set MyConn = oConn.Execute(s ql)
just use:
oConn.Execute sql

One other suggestion I have is to get in the habit of using spaces when
concatenating strings. Like, instead of:

&strDate&"','"& strTime&"','"&s trSubject&"','"

do:

& strDate & "','" & strTime & "','" & strSubject & "','" ...

In addition to making your code more readable, it'll avoid confusion when
you're using code like so:

Dim h1
h1 = "15 feet"
Response.Write "Joe jumped "&h1

Ray at home

"Burton Figg" <so*****@somewh ere.com> wrote in message
news:bu******** **@sparta.btint ernet.com...

I have a SELECT statement which holds a list of times (for adding
appointments to a database):

e.g.

<select name="time" id="time" size="3" multiple>
<option value="00:00">0 0:00</option>
<option value="00:30">0 0:30</option>
<option value="01:00">0 1:00</option>
<option value="01:30">0 1:30</option>
<option value="02:00">0 2:00</option>
<option value="02:30">0 2:30</option>
</select>

on the process page, I want to loop through the values of the "time" select field, and enter them into a database.

I have tried this:

strSubject = request.Form("s ubject")
strDate = request.Form("t heDate")
strTime = request.Form("t ime")
strBody = request.Form("b ody")
strName = request.Form("n ame")
strTel = request.Form("t el")
strEmail = request.Form("e mail")

myArray = Split(Request(" time"),",")

For iy = 0 To UBound(myArray)
sql = "INSERT INTO appointments (the_Date, the_time, fldSub, fldBod,
fldName, fldTel, fldEmail) "
sql = sql & " VALUES
('"&strDate&"', '"&strTime&"',' "&strSubject&"' ,'"&strBody&"', '"&strName&"',' " &strTel&"','"&s trEmail&"')"

set MyConn = oConn.Execute(s ql)
Set MyConn = Nothing
Next

but it only inserts into the database the value of the first "time" record
(e.g. if I selected 00:00, 00:30, 02:30 it inserts "00:00" each of the three times through the loop.

The output of the "time" field is:

00:00, 00:30, 02:30

so I thought this line:

myArray = Split(Request(" time"),",")

would split the "time" field into 3 chunks, and each time through the loop I was expecting it to take the next value.

Am I missing something obvious?

Thanks

Jim