Const STORED_PROC_CMD_TYPE = 4
Const VAR_CHAR_PARAM_TYPE = 200 'Others can be found here: http://msdn.microsoft.com/en-gb/library/windows/desktop/ms675318(v=vs.85).aspx
Const IN_TYPE_PARAMETER = 1 'Others can be found: http://msdn.microsoft.com/en-gb/library/windows/desktop/ms678273(v=vs.85).aspx
Const OUT_TYPE_PARAMETER = 2
Set connection = CreateObject("ADODB.Connection")
connection.Open "xxx" 'Set your connection string here.
Set command= CreateObject("ADODB.Command")
command.ActiveConnection = connection
command.CommandType = STORED_PROC_CMD_TYPE
command.CommandText = "theStoredProc" 'Replace with the stored procedure name.
'If you have any parameters (in or out, declare them here)
command.Parameters.Append command.CreateParameter("@inVar1", VAR_CHAR_PARAM_TYPE, IN_TYPE_PARAMETER, 255, VALUE1)
command.Parameters.Append command.CreateParameter("@inVar2", VAR_CHAR_PARAM_TYPE, IN_TYPE_PARAMETER, 255, VALUE2)
command.Parameters.Append command.CreateParameter("@outVar1", VAR_CHAR_PARAM_TYPE, OUT_TYPE_PARAMETER, 255)
command.Parameters.Append command.CreateParameter("@outVar2", VAR_CHAR_PARAM_TYPE, OUT_TYPE_PARAMETER, 255)
command.Execute
0 'Last line of script must always return a value.