Board index » Web Programming » split array twice and do a multiple insert

Web Programming62
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!


-

<clayalphonso@yahoo.com>wrote in message



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







Why is the insert repeated here?









-