p2p.wrox.com: Archives - javascript

javascript_objects thread: SV: ADODB.Parameters error 800a0d27
Message #1 by "Robert Nyman" <robert.nyman@c...> on Sat, 26 Oct 2002 13:09:37 +0200
> You should post this to the ASP list...


/Robert

Thanks.  Will do.


-----Ursprungligt meddelande-----
Fr=E5n: Donna Leeb [mailto:dleeb@j...]=20
Skickat: den 26 oktober 2002 01:15
Till: JavaScript Objects
=C4mne: [javascript_objects] ADODB.Parameters error 800a0d27


I'm creating an .asp with JScript.  Trying to pass parameters to a
stored=20
procedure.  In the middle of the parameter append (at NOTE), the program

sends the message  "Object is already in collection. Cannot append."

<%@ LANGUAGE =3D JScript %>
<HTML>
<BODY>
<%
function Back()
{
   history.go(-1);
}
var GoBack =3D "Yes";
var adCmdStoredProc =3D 4;
var adVarChar =3D 200;
var adParamInput =3D 1;
var adoConnection =3D Server.CreateObject("ADODB.Connection");
var adoCommand =3D Server.CreateObject("ADODB.Command");
var adoParam;
adoConnection.Open("BlaBlaBla");
adoCommand.CommandText =3D "StoredProc";
adoCommand.CommandType =3D adCmdStoredProc;
adoCommand.Name =3D "StoredProc";

adoParam =3D adoCommand.CreateParameter("CMPTRN", adVarChar, =
adParamInput,

8, Request.Form("CMPTRN")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("JMCSKU", adVarChar, =
adParamInput,

8, Request.Form("JMCSKU")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("CMPPRT", adVarChar, =
adParamInput,

15, Request.Form("CMPPRT")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("CMPCTG", adVarChar, =
adParamInput,

11, Request.Form("CMPCTG")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("CMPPXR", adVarChar, =
adParamInput,

2, Request.Form("CMPPXR")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("INTLS", adVarChar, =
adParamInput,
2,=20
Request.Form("INTLS"));
adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("SKU", adVarChar, adParamInput, =
8,

Request.Form("SKU"));
adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("CPRTNO", adVarChar, =
adParamInput,

15, Request.Form("CPRTNO")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("CTLG", adVarChar, adParamInput,
11,=20
Request.Form("CTLG"));
adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("PGENUM", adVarChar, =
adParamInput,

4, Request.Form("PGENUM")); adoCommand.Parameters.Append(adoParam);
adoParm =3D  adoCommand.CreateParameter("NOTE", adVarChar, adParamInput,
30,=20
Request.Form("NOTE"));
adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("PRICE", adVarChar, =
adParamInput,=20
14, Request.Form("PRICE")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("PRCECD", adVarChar, =
adParamInput,

1, Request.Form("PRCECD")); adoCommand.Parameters.Append(adoParam);
adoParam =3D adoCommand.CreateParameter("ACTION", adVarChar, =
adParamInput,

1, Request.Form("ACTION")); adoCommand.Parameters.Append(adoParam);
adoCommand.ActiveConnection =3D adoConnection; adoCommand.Execute();
adoConnection.Close; adoConnection =3D null; if (GoBack =3D=3D "Yes") {
   Back();
}
%>
</BODY>
</HTML>

Any help appreciated. =20
Thanks.

Donna
---
Change your mail options at http://p2p.wrox.com/manager.asp or=20
to unsubscribe send a blank email to
Return to Index
P2P Archives
