split question, I guess

[middletree]

Not really sure what the problem is, perhaps I am using split wrong.

Page should get form fields form previous page and some of them will go into
a tabel called Personal. Other items, to resolve a many-to-many
relationship, will go into a table called PersonalPeople, which consists of
2 fields: the PK's from the People table and the Perosnal table. I decided
to have the 30 or so checkboxes on the first page all have the same name, as
they are built dynamcially from the People table. If you check boxes
numbered 1, 6, and 19, then request.form("P eople") returns a string of
(1,6,19)

All of the above has been confirmed to work using Response.write.

Now, I want to pull each value from the above comma-delimted string and
insert them into the PersonalPeople table. I had already obtained the
PersonalID (the PK of the Personal Table). so I built a loop which would
take the values out of the comma-delimted string, and insert them along with
the PersonalID

Can't seem to make it work. I've spent way too many hours on this one
problem. Any help would be appreciated. Here's the code that's relevant,
with a couple of quick comments at the end. This code is from the 2nd page,
the one that is after the form is submitted.
:

--------------------------
strConnection = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=C:\Inetp ub\wwwroot\Grac e\Shape.mdb;Use r Id=admin;Passwo rd=;"

Set objConnection = Server.CreateOb ject("ADODB.Con nection")
objConnection.C onnectionString = strConnection
objConnection.O pen

'this is the stuff that goes into personal table, but also need to add
things in
'combo tables, like gift, people, area,

strSQL = "INSERT INTO Personal[blah,blah,blah]
strSQL = strSQL & "VALUES [blah,blah,blah]
objConnection.E xecute strSQL

'get the PersonalID (PK) that was just inserted
set rs = objConnection.e xecute("select MAX(PersonalID) from Personal")
'response.write "New ID was " & rs(0)
strPersonalID = rs(0)

objConnection.C lose
Set objConnection = nothing

'these three will pull from the checkboxes, should give a string
Set objConnection = Server.CreateOb ject("ADODB.Con nection")
objConnection.C onnectionString = strConnection
objConnection.O pen

strPeopleID = request.form("P eople")
if len(strPeopleID )>0 then
arrPeople = SPLIT(strPeople ,",")
for x=lbound(arrPeo ple) to ubound(arrPeopl e)
strSQL = "INSERT into PersonalPeople( PersonalID,Peop leID) "
strSQL = strSQL & "VALUES('"&strP ersonalID&"','" &strPeopleID&"' )"
response.write strSQL
response.end
objConnection.E xecute strSQL
next
end if

=============== =============== =====

Thing is, I put a response.write after that --if len(strPeopleID )>0 then--
line, and it became apparent that I was, in fact, falling into the IF
statement correctly. But for some reason, the next response.write doesn't
yield anything. So I guess I am doing the split thing wrong. I tried doing a
response.write arrPeople, but it threw an error. So I can't see where I am
going wrong.

Please help. I'll be glad to send complete code if asked.

[Ray at]

"middletree " <mi********@hto mail.com> wrote in message
news:up******** ******@TK2MSFTN GP10.phx.gbl...

set rs = objConnection.e xecute("select MAX(PersonalID) from Personal")
'response.write "New ID was " & rs(0)
strPersonalID = rs(0)

objConnection.C lose
Set objConnection = nothing

'these three will pull from the checkboxes, should give a string
Set objConnection = Server.CreateOb ject("ADODB.Con nection")
objConnection.C onnectionString = strConnection
objConnection.O pen

strPeopleID = request.form("P eople")
if len(strPeopleID )>0 then
arrPeople = SPLIT(strPeople ,",")
for x=lbound(arrPeo ple) to ubound(arrPeopl e)
strSQL = "INSERT into PersonalPeople( PersonalID,Peop leID) "
strSQL = strSQL & "VALUES('"&strP ersonalID&"','" &strPeopleID&"' )"

I think you'd want to insert arrPeople(x) there instead of strPeopleID.
strPeopleID will equal something like "2, 3, 6, 8, 32, 49"

Also, when you Split() strPeopleID, split by ", " instead of "," or
replace(strPeop leID, ", ", ",") before splitting. There are spaces after
the commas.

Also, is PeopleID a text type column? You have it delimited with '.

Another thing is that you should put spaces after (at least) the &
concatenation operator. If you don't, you'll run into issues if you have a
variable name that starts with an "h" as &h indicates a hex value is to
follow.

Ray at home

[middletree]

WOW! Very helpful tips. Thanks!
"Ray at <%=sLocation% >" <myFirstNameATl ane34dotKOMM> wrote in message
news:#X******** *****@tk2msftng p13.phx.gbl...

"middletree " <mi********@hto mail.com> wrote in message
news:up******** ******@TK2MSFTN GP10.phx.gbl...

set rs = objConnection.e xecute("select MAX(PersonalID) from Personal")
'response.write "New ID was " & rs(0)
strPersonalID = rs(0)

objConnection.C lose
Set objConnection = nothing

'these three will pull from the checkboxes, should give a string
Set objConnection = Server.CreateOb ject("ADODB.Con nection")
objConnection.C onnectionString = strConnection
objConnection.O pen

strPeopleID = request.form("P eople")
if len(strPeopleID )>0 then
arrPeople = SPLIT(strPeople ,",")
for x=lbound(arrPeo ple) to ubound(arrPeopl e)
strSQL = "INSERT into PersonalPeople( PersonalID,Peop leID) "
strSQL = strSQL & "VALUES('"&strP ersonalID&"','" &strPeopleID&"' )"

I think you'd want to insert arrPeople(x) there instead of strPeopleID.
strPeopleID will equal something like "2, 3, 6, 8, 32, 49"

Also, when you Split() strPeopleID, split by ", " instead of "," or
replace(strPeop leID, ", ", ",") before splitting. There are spaces after
the commas.

Also, is PeopleID a text type column? You have it delimited with '.

Another thing is that you should put spaces after (at least) the &
concatenation operator. If you don't, you'll run into issues if you have

a variable name that starts with an "h" as &h indicates a hex value is to
follow.

Ray at home