Problema ejecutando un PROCEDURE

[altairax]

Hola, estoy haciendo un microsistema que me ayude a hacer modificaciones de sueldos a los empleados. Ya existe originalmente un procedimiento para hacer dicho cambio y yo solo necesito enviarle un monton de paràmetros.
A la hora de invocar dicho procedimiento me causa este error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo.

/MassiveTrance/procesar.asp, línea 81

Ya revisè y revisè, me la he pasado en google como 3 días y no encuentro, pongo el codigo para ver si alguna buena alma caritativa puede ayudarme:

Código:

<%@ Language=VBScript %>
<!--#include file="Include/connect.asp" -->
<%
response.flush

random = Request.Form("random")
sueldonuevo = Request.Form("sueldo")
VALor= Request.Form("QUERY") 'este es un query, o select de una consulta donde le voy a cambiar el salario

Set rsVALor = Server.CreateObject("ADODB.Recordset")
rsVALor.Open VALor, connEmind, adOpenStatic, adLockReadOnly
Set comando = Server.CreateObject("ADODB.Command")
							

With comando

	  .ActiveConnection = connEmind
	  .CommandText = "M4PR_HACER_MS_ST"
		.CommandType = adCmdStoredProc
		
.Parameters.Append .CreateParameter ("@VPRIMERATABLA", adNumeric, adParamInput, , Request.Form("random"))
				
.Parameters.Append .CreateParameter ("@VID_SOCIEDAD", 	adVarchar, adParamInput, 2, rsVALor.Fields("ID_SOCIEDAD"))

.Parameters.Append .CreateParameter ("@VID_ID_EMPLEADO",adVarchar, adParamInput, 10, rsVALor.Fields("ID_Empleado"))

.Parameters.Append .CreateParameter ("@VFEC_ALTA_ANTERIOR", 	adDate, adParamInput, , rsVALor.Fields("FEC_ALTA_EMPLEADO"))

.Parameters.Append .CreateParameter ("@VFEC_ALTA_NUEVA",adDate, adParamInput, , Date())
				
.Parameters.Append .CreateParameter ("@VFEC_ANTIGUEDAD", adDate, adParamInput, , rsVALor.Fields("FEC_ANTIGUEDAD"))

.Parameters.Append .CreateParameter ("@VID_ESTADO_NOMINA",adVarchar, adParamInput,10, rsVALor.Fields("ID_ESTADO_NOMINA"))
				
.Parameters.Append .CreateParameter ("@VID_ESTADO_PLANTILLA", adVarchar, adParamInput, 4, rsVALor.Fields("ID_ESTADO_PLANTILLA"))

.Parameters.Append .CreateParameter ("@VID_CABECERA_IMSS",adVarchar, adParamInput,10, rsVALor.Fields("ID_CABECERA_IMSS"))
			  
.Parameters.Append .CreateParameter ("@VID_CATEGORIA",adVarchar, adParamInput, 4, rsVALor.Fields("ID_CATEGORIA"))

.Parameters.Append .CreateParameter ("@VID_CENTRO_COSTO",adVarchar, adParamInput, 4, rsVALor.Fields("ID_CENTRO_COSTO"))
				
.Parameters.Append .CreateParameter ("@VID_CENTRO_TRABAJO", adVarchar, adParamInput, 10, rsVALor.Fields("ID_CENTRO_TRABAJO"))
			 
 .Parameters.Append .CreateParameter ("@VID_CONTRATO_INTERNO",adVarchar, adParamInput, 2, rsVALor.Fields("ID_CONTRATO_INTERNO"))

 .Parameters.Append .CreateParameter ("@VFEC_INICIO_CONTRATO",	adDate, adParamInput, , rsVALor.Fields("FEC_INICIO_CONTRATO"))
			  
.Parameters.Append .CreateParameter ("@VFEC_FIN_CONTRATO",
adDate, adParamInput, , rsVALor.Fields("FEC_FIN_CONTRATO"))
				
.Parameters.Append .CreateParameter ("@VFEC_FIN_PERIODO_PRUEBA",adDate, adParamInput, , rsVALor.Fields("FEC_FIN_PERIODO_PRUEBA"))
		  	
.Parameters.Append .CreateParameter ("@VID_CONVENIO",	adVarchar, adParamInput, 4, rsVALor.Fields("ID_CONVENIO"))
			 	
.Parameters.Append .CreateParameter ("@VID_DEPARTAMENTO",adVarchar, adParamInput,10, rsVALor.Fields("ID_DEPARTAMENTO"))
				
.Parameters.Append .CreateParameter ("@VID_EMPRESA", adVarchar, adParamInput,10, rsVALor.Fields("ID_EMPRESA"))
				
.Parameters.Append .CreateParameter ("@VID_GRUPO_SALARIO",adVarchar, adParamInput, 1, rsVALor.Fields("ID_GRUPO_SALARIO"))
			
 .Parameters.Append .CreateParameter ("@VID_PUESTO", adVarchar, adParamInput,10, rsVALor.Fields("ID_PUESTO"))
				
.Parameters.Append .CreateParameter ("@VBRUTO_ANUAL", adNumeric, adParamInput,  , rsVALor.Fields("BRUTO_ANUAL"))	
		
.Parameters.Append .CreateParameter("@VID_AGRUPACION_SEGURIDAD", adVarchar, adParamInput,10, rsVALor.Fields("ID_AGRUPACION_SEGURIDAD"))
			 	
.Parameters.Append .CreateParameter ("@VNIVEL_SEGURIDAD", adNumeric, adParamInput,  , rsVALor.Fields("BRUTO_ANUAL"))
				
.Parameters.Append .CreateParameter ("@VID_TIPO_AJUSTE",  adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_AJUSTE"))
			 	
.Parameters.Append .CreateParameter ("@VID_TIPO_SALARIO", adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_SALARIO"))
				
.Parameters.Append .CreateParameter ("@VID_UNIDAD", adVarchar, adParamInput,10, rsVALor.Fields("ID_UNIDAD"))		
				
.Parameters.Append .CreateParameter ("@VID_TURNO", adVarchar, adParamInput, 2, rsVALor.Fields("ID_TURNO"))
				
.Parameters.Append .CreateParameter ("@VID_TIPO_JORNADA",adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_JORNADA"))
			 	
.Parameters.Append .CreateParameter ("@VID_TIPO_TRABAJADOR", 	adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_TRABAJADOR"))
				
.Parameters.Append .CreateParameter ("@VSALARIO", adNumeric, adParamInput, , rsVALor.Fields("SUELDO"))		
				
.Parameters.Append .CreateParameter ("@VEMAIL", adVarchar, adParamInput,50, rsVALor.Fields("DIRECCION_MAIL"))		

.Execute("exec M4PR_HACER_MS_ST") 'ESTA ES LA LINEA 81

'.Execute ' OTRA PRUEBA
'Set rsVALor= Execute("exec sp_emp") 'AQUI HIZE PRUEBAS

end With
comando= Nothing

%>

Nota: este es mi ARCHIVO DE CONEXION

Código:

<%

'***CONEXION CON LA BASE DE DATOS EMIND
Dim ConnectString, conn, ConnectStringEmind, connEmind
ConnectString =  "DRIVER=SQL Server;SERVER=192.168.XXX.XX;UID=sa;DATABASE=emind_altaira;Address=192.168.167.XXXX,XXXX;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeout = 360
conn.ConnectionTimeout = 360
conn.open ConnectString, "USUARIO", "PASSWORD"

ConnectStringEmind =  "DRIVER=SQL Server;SERVER=192.SSS.SSS.SS;UID=sa;DATABASE=emind_altaira;Address=192.168.SSS.SSS,SSS;"
Set connEmind = Server.CreateObject("ADODB.Connection")
connEmind.CommandTimeout = 360
connEmind.ConnectionTimeout = 360
connEmind.open ConnectStringEmind, "USR2", "PWD"

session.Timeout = 120

%>

AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA