Home > Archive > ASP > December 2006 > split array twice and do a multiple insert
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
split array twice and do a multiple insert
|
|
| clayalphonso@yahoo.com 2006-12-20, 6:56 pm |
| 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!
| |
| Alan M 2006-12-21, 3:56 am |
|
<clayalphonso@yahoo.com> wrote in message
news:1166642871.945873.119120@80g2000cwy.googlegroups.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!
>
|
|
|
|
|