multiple insert problem !

Fredrik/Sweden · Fredrik/Sweden

hi !
had to come right back...
this time i'm trying to do a multiple insert.
in my admin website i want to add users to a specific project. i klick
that option and all projects are listed nicely. i chose project, then
i get all available users listed with a checkbox in front of each one.
i check the boxes of the users i want to add to the project and then
submit to insert them all into the database. this last step is causing
a 'type mismatch', and i can't find it !

i pass all checked boxes to the insert-file as a comma-delimited list.
i knew then that i had to use the split-funktion to get the items into
an array, and then loop the SQL statement to insert all of them. i'm
not sure here, maybe i'm doing something wrong...
The error message:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/VS_Files/insertAccountsProjects.asp, line 25

code included below (as usual)...
---------------------------------------------------------------------------
listAllProjects.asp


<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Con

SQLstring = "SELECT ProjectID, ProjectName FROM Projects"
RS.Open SQLstring
%>

<html>
<body bgcolor="">

<center>
<table width="500" border=1 bgcolor=""
cellpadding="4" cellspacing="0">
<tr>
<td align="center" colspan="2" bgcolor="">
<font face="Arial" size="3"><b>
Choose a Project
</b></font>
</td>
</tr>

<%
'loop through all available Projects & display them

WHILE NOT RS.EOF
%>
<tr>


<td width="100"><a
href="chooseUserToAddToProject.asp?PID=<%=RS("Proj ectID")%>">
<%=RS("ProjectID")%></a>
</td>
<td width="200"><%=RS("ProjectName")%>
</td>
</tr>
<%
RS.MoveNext
WEND
%>

<%
RS.Close : Set RS = Nothing
Con.Close : Set con = Nothing
%>

</table>

<a href="admin.html">Back</a>

</center>
</body>
</html>
---------------------------------------------------------------------
chooseUserToAdToProject.asp


<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Con

SQLstring = "SELECT Pnr, FirstName, LastName FROM Accounts"
RS.Open SQLstring

'Get the ProjectID from listAllProjects.asp (throuh the
querystring)

ProID = Request.Querystring("PID")
%>

<html>
<body bgcolor="">

<center>
<FORM METHOD="POST" ACTION="insertAccountsProjects.asp">
<table width="500" border="1" bgcolor="" cellpadding="4"
cellspacing="0">
<tr>
<td align="center" colspan="4" bgcolor="">
<font face="Arial" size="3"><b>
Choose user to add to <%=ProID%>
</b></font>
</td>
</tr>

<%
'loop through all available users & display them

WHILE NOT RS.EOF
%>
<tr>
<td width="30">
<INPUT TYPE="CHECKBOX" NAME="check" VALUE=<%=RS("Pnr")%>>
</td>
<td width="90"><%=RS("Pnr")%> </td>
<td width="150"><%=RS("FirstName")%> </td>
<td><%=RS("LastName")%> </td>
</tr>
<%
RS.MoveNext
WEND

RS.Close
Con.Close
%>
<tr>
<td colspan=4 align="right">
<input type="submit" value="Add to project">
</td>
</tr>
</table>
<input type="hidden" name="pro" value="<%=ProID%>"> 
</FORM>
<a href="admin.html">Back</a>
</center>
</body>
</html>
---------------------------------------------------------------------------
insertAccountsProjects.asp


<html>
<body>
<%
Dim insertList
insertList = Request.Form("check")

insertList = "'" & Replace(insertList, ", ", "','") & "'"

insertArray = split(insertList, ",")

Project = Request.Form("pro") 'Get the Project id from the hidden
field in choose user-file

if insertList = "''" then

'No items to insert
Response.Write "You did not select any items to insert!" 'so far
so good
Response.Write Project 'just a check to see that project has the
right value...it does !
Else
Dim SQLstring

FOR i = 0 to ubound(insertArray)

SQLstring = "INSERT INTO [AccountsProjects] ([Pnr],
//25[ProjectID])" &_
"VALUES (" & "'" & insertList(i) & "', '" & Project & "')"
Con.Execute sqlString
NEXT
end if
%>
--------------------------------------------------------------------------

Ray at · Ray at

Change insertList(i) to insertArray(i) in the for/next loop.

Ray at home

"Fredrik/Sweden" <fredda054@hotmail.com> wrote in message
news:a501fefe.0310030321.5ec9b436@posting.google.c om...

>
> Error Type:
> Microsoft VBScript runtime (0x800A000D)
> Type mismatch
> /VS_Files/insertAccountsProjects.asp, line 25

> insertList = Request.Form("check")
>
> insertList = "'" & Replace(insertList, ", ", "','") & "'"
>
> insertArray = split(insertList, ",")
>
> FOR i = 0 to ubound(insertArray)
>
> SQLstring = "INSERT INTO [AccountsProjects] ([Pnr],
> //25[ProjectID])" &_
> "VALUES (" & "'" & insertList(i) & "', '" & Project & "')"
> Con.Execute sqlString
> NEXT
> end if

Fredrik Holm · Fredrik Holm

Off Course Ray !!! your absolutely right...it was just to obvious for me
to see !!!
Thank you again !!!
(i think i'll have to say something about you in my project =)

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

multiple insert problem !

Thread Tools

Display

multiple insert problem !

Similar Questions and Discussions

insert multiple row

insert multiple row and table

Multiple DB Insert

Multiple Insert or Looping Insert

Insert Multiple INTO multiple table

Re: multiple insert problem !

Re: multiple insert problem !

Posting Permissions