===schema script for this test================

DROP DATABASE IF EXISTS bug21141;
CREATE DATABASE bug21141;
USE bug21141;

CREATE TABLE dummy (
  Col1 int
, Col2 varchar(45)
, Col3 varchar(45)
);

DELIMITER $$

DROP PROCEDURE IF EXISTS `usp_insDummy` $$
CREATE PROCEDURE `usp_insDummy`(
  in ip_col1 int
, in ip_col2 varchar(45)
, in ip_col3 varchar(45)
)
BEGIN

insert into dummy
select ip_col1,ip_col2,ip_col3;

END $$

DELIMITER ;

GRANT ALL ON bug21141.* TO swuser@'%' IDENTIFIED BY 'swuser';


===contents of testcase.vbs ==================
Option Explicit

'AUTHOR : Hari Naidu.A
'DATED  : 14-07-2006
'
'sumbitted per Bug #21141
'simplified by Shawn Green 2006-07-19

Const cConnectionString= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=bug21141;UID=swuser; pwd=swuser;OPTION=3"

'ADO constants

Const adParamInput = &H0001
Const adCmdStoredProc = &H0004
Const adInteger=3
Const adVarChar=200

dim Connection1
dim cmd 

dim userCN,col2,col3
  
Set Connection1 = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")

Connection1.Open cConnectionString 
userCN = 1
Col2   = "Hari"
Col3   = "Naidu"

WScript.Echo "User ID   :" & userCN
WScript.Echo "First Name:" & Col2
WScript.Echo "Last      :" & Col3

set cmd.ActiveConnection = Connection1
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "usp_insDummy"
cmd.Parameters.Append cmd.CreateParameter("?ip_col1", adInteger, adParamInput, 4,userCN)
cmd.Parameters.Append cmd.CreateParameter("?ip_col2", adVarChar, adParamInput,45,col2)
cmd.Parameters.Append cmd.CreateParameter("?ip_col3", adVarChar, adParamInput,45,col3)

cmd.Execute
WScript.Echo "Record added"
Connection1.Close
Set Connection1 = nothing
Set cmd = nothing

===output from: cscript testcase.vbs===

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

User ID   :1
First Name:Hari
Last      :Naidu
Error: Freeing pointer out of range at line 880, '\build\mysql-gpl-5.0.18-build\mysql-5.0.18\libmysql\client.c'
C:\Shawn\MySQL\Issues\bug21141\testcase.vbs(57, 1) Microsoft OLE DB Provider for ODBC Drivers: [MySQL][ODBC 3.51 Driver][mysqld-5.0.21-community-nt-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '{ call usp_insDummy(1, 'Hari', 'Naidu') }' at line 1

Warning: Not freed memory segments: 1
Warning: Memory that was not free'ed (16 bytes):
            16 bytes at 0x0019a4d68, allocated at line  175 in '\build\mysql-gpl-5.0.18-build\mysql-5.0.18\mysys\my_error.c'
Maximum memory usage: 26674 bytes (27k)

=== excerpt from the ODBC trace file =========
>SQLExecDirect
| >SQLPrepare
| | >my_malloc
| | | my: size: 31  my_flags: 16
| | | exit: ptr: 0x19a4ba0
| | <my_malloc
| | enter: { call usp_insDummy(?, ?, ?) }
| | info: Parameter count: 3
| | exit: SQL_SUCCESS
| <SQLPrepare

=== excerpt from the general query log========
060719 15:55:30	      2 Connect     swuser@localhost on bug21141
		      2 Query       select database()
060719 15:55:31	      2 Query       { call usp_insDummy(1, 'Hari', 'Naidu') }
		      2 Quit 
==============================================