errorADODB.Command error '800a0d5d'

[Sayra]

Hola ahora tengo este error a la ahora de agregar un nuevo usuario

ADODB.Command error '800a0d5d'

Application uses a value of the wrong type for the current operation.

al tienen idea de como repararlo?

Gracias por la asistencia

[u_goldman]

Pon tu codigo

Salu2,

[Sayra]

El codigo para crear un usuario es el siguiente

if IDUser <> "" then

' Actualiza datos usuario

else
'Nuevo usuario

If oRec.eof then
' Parámetros
oConn.ClearParameters
oConn.CreateParameter "@user_nomb" , advarchar, adParamInput,50, Request.Form("first_name")
oConn.CreateParameter "@user_apel" , advarchar, adParamInput,50, Request.Form("last_name")
oConn.CreateParameter "@coun_id" , adtinyint, adParamInput,1, Request.Form("country")
oConn.CreateParameter "@user_mail" , advarchar, adParamInput,50, Request.Form("pers_email")
oConn.CreateParameter "@site_id" , adsmallint,adParamInput, 2, Request.Form("site")
oConn.CreateParameter "@buss_id" , adsmallint,adParamInput, 2, Request.Form("bussines_unit")
oConn.CreateParameter "@user_telf" , advarchar, adParamInput,12, Request.Form("pers_phone")
oConn.CreateParameter "@func_id" , adsmallint,adParamInput, 2, Request.Form("funcion")
oConn.CreateParameter "@user_sdate" , addate, adParamInput, 8, Request.Form("start_year") & "-" & Request.Form("start_month") & "-" & Request.Form("start_day")
oConn.CreateParameter "@user_pgmail", advarchar, adParamInput,50, Request.Form("pg_email")
oConn.CreateParameter "@leve_id" , adtinyint, adParamInput,1, Request.Form("level")
oConn.CreateParameter "@user_univ" , advarchar, adParamInput,50, Request.Form("university")
oConn.CreateParameter "@user_pgtel" , advarchar, adParamInput,12, Request.Form("pg_phone")
oConn.CreateParameter "@user_nive" , adtinyint, adParamInput,1, Request.Form("access_level")

if len(Request.Form("password")) = 0 then
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, "123"
else
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, Request.Form("password")
end if

oConn.CreateParameter "@user_stat" , adtinyint, adParamInput,1, Request.Form("activo")
oConn.CreateParameter "@manager", adInteger, adParamInput, 4, iManager

' Iniciar la transacción
oConn.BeginTrans

oConn.CreateParameter "@user_id", adInteger, adParamOutput, 4, null
' Tomar nuevo id
iUserId = oConn.GetParameterValue("@user_id")
sMess = "The User has been created"

else
%>
<script>
alert('User already exist.');
</script>
<%
end if

[u_goldman]

Sayra, va a ser un poco dificil, puesto que no tenemos la estructura de tu base de datos a la mano, fijate que estes pasando el tamano de los campos correctamente y su tipo de dato correcto.

[Sayra]

Hola, gracias por la ayuda me fui a tomar un café y de regreso me di cuenta que tenia un a línea comentada, cuando la descomente me funciono bien el codigo gracias por todo