469,592 Members | 1,674 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,592 developers. It's quick & easy.

split array twice and do a multiple insert

Here is the code:

<%
dim testArray, testArray2
dim Conn, rs
dim sSQL, sConnString
'response.write request.form("sel1")
'testArray = split(request.form("sel1"),",")
'for each gidstuff In testArray
'Response.Write gidstuff & "<br />"
'next
'define the connection string, specify database
sConnString="whatever_it_is"
'create an ADO connection and recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'Open the conn
Conn.Open sConnString
testArray = split(request.form("sel1"),",")
For i = lbound(testArray) to ubound(testArray)
'second split
aSplitArray = split(testArray(i),"$")
'response.write "GID:" & aSplitArray(0) &" STOREID:" & aSplitArray(1) &
"<br>"
sSQL="insert into group_editor_log (storeid, oldgid, newgid, stamp,
eventid, valid) select '" & _
aSplitArray(1) & "', '" & aSplitArray(0) & "', '" & 1 & "', '" & date()
& "', '" & 1 & "', '" & 1 & "'"
response.write sSQL & "<br>"
Conn.execute(sSQL)
Next
response.end()
'sSQL="insert into group_editor_log (storeid, oldgid, newgid, stamp,
eventid, valid) select '" & _
'aSplitArray(1) & "', '" & aSplitArray(0) & "', '" & 1 & "', '" &
date() & "', '" & 1 & "', '" & 1 & "'"
%>

I am grabbing multiple select list items and splitting them twice,
reason for this is that I am carrying over 2 values from the select
list.

My problem is this when I am doing a multiple insert the records are
duplicated, in other words, if I select 3 it inserts 6 six, I can't
figure out how to insert the exact amount of records that are selected.

Please help!

Dec 20 '06 #1
1 4625

<cl**********@yahoo.comwrote in message
news:11**********************@80g2000cwy.googlegro ups.com...
Here is the code:

<%
dim testArray, testArray2
dim Conn, rs
dim sSQL, sConnString
'response.write request.form("sel1")
'testArray = split(request.form("sel1"),",")
'for each gidstuff In testArray
'Response.Write gidstuff & "<br />"
'next
'define the connection string, specify database
sConnString="whatever_it_is"
'create an ADO connection and recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'Open the conn
Conn.Open sConnString
testArray = split(request.form("sel1"),",")
For i = lbound(testArray) to ubound(testArray)

since you have one insert for each item in your array, you must have 6 items
not 3 in your array

write it to screen and see

'second split
aSplitArray = split(testArray(i),"$")
'response.write "GID:" & aSplitArray(0) &" STOREID:" & aSplitArray(1) &
"<br>"
sSQL="insert into group_editor_log (storeid, oldgid, newgid, stamp,
eventid, valid) select '" & _
aSplitArray(1) & "', '" & aSplitArray(0) & "', '" & 1 & "', '" & date()
& "', '" & 1 & "', '" & 1 & "'"
response.write sSQL & "<br>"
Conn.execute(sSQL)
Next
response.end()

Why is the insert repeated here?
'sSQL="insert into group_editor_log (storeid, oldgid, newgid, stamp,
eventid, valid) select '" & _
'aSplitArray(1) & "', '" & aSplitArray(0) & "', '" & 1 & "', '" &
date() & "', '" & 1 & "', '" & 1 & "'"
%>

I am grabbing multiple select list items and splitting them twice,
reason for this is that I am carrying over 2 values from the select
list.

My problem is this when I am doing a multiple insert the records are
duplicated, in other words, if I select 3 it inserts 6 six, I can't
figure out how to insert the exact amount of records that are selected.

Please help!

Dec 21 '06 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by nieuws | last post: by
5 posts views Thread by Stu Cazzo | last post: by
3 posts views Thread by Jan Hanssen | last post: by
11 posts views Thread by Brian | last post: by
2 posts views Thread by sicario | last post: by
35 posts views Thread by Lee Crabtree | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.