Error de TypeMismatch en CreateObject

[zero_sos]

Hola a todos.

Gracias por entrar a ver mi mensaje en el foro.

Actualmente estoy teniendo un problema con el CreateObject.

Tengo una matris (M,2) en la cual tengo codigo y descripcion de unas categorias. Ahora bien debo hacer un for y por cada categoria instanciar un componente y pedir unos servicios. En otras palabras estoy tratando de hacer lo siguiente:

For c = 0 To m -1

Set vlo_object = CreateObject("On_validar.Asigservicios")
set recordset = vlo_object.GetServicios(""&Session("usrcod")&"","" &Session("usrcompany")&"",""& arreglo(0,1) &"","")

if recordset.eof Then

response.write "Usted no tiene ningun servicio habilitado"

end if


Do while not recordset.eof

Session("Cod_servicio") = recordset.Fields("cod_servicio")
Session("descripcion") = recordset.Fields("descripcion")
session("Titulo") = recordset.Fields("titulo")
session("Link") = recordset.Fields("link")


if session("cod_servicio") = 008 or session("cod_servicio") = 009 then

response.write "<tr>"
response.write "<td width=100% height=15 onmouseover=javascript:this.style.background='#bcd 2ed'; onmouseout=javascript:this.style.background='#F8F8 F8'; bgcolor=#F8F8F8 height=19> "
response.write "<p align="&chr(34)&"Left"&chr(34)&"><a title="&chr(34)& Session("descripcion") & chr(34)&" href="&chr(34)& session("link") &chr(34)&">&nbsp;&nbsp;<b>·</b>&nbsp;<font style="&chr(34)&"font-size: 9pt"&chr(34)&" face=Arial>"& Session("Titulo") &"</a></p>"
response.write "</tr>"

else

response.write "<tr>"
response.write "<td width=100% height=15 onmouseover=javascript:this.style.background='#bcd 2ed'; onmouseout=javascript:this.style.background='#F8F8 F8'; bgcolor=#F8F8F8 height=19> "
response.write "<p align="&chr(34)&"Left"&chr(34)&"><a title="&chr(34)& Session("descripcion") &chr(34)&" href=" & chr(34) & session("link") &"?cod="& session("cod_servicio")&chr(34)&">&nbsp;&nbsp;<b>· </b>&nbsp;<font style="&chr(34)&"font-size: 9pt"&chr(34)&" face=Arial>"& Session("Titulo") &"</a></p>"
response.write "</tr>"

end if

RecordSet2.movenext

Loop

response.write "<tr>"
response.write "<td width=100% height=8></td>"
response.write "</tr>"

set vlo_object = nothing
set recordset = nothing

Next


El problema es que me da como error un Type mismatch al momento de instanciar el metodo GetServicios.

He chequeado todo pero no se que pueda ser...

Alguien tiene una sugerencia??

Muchas Gracias,

Zero

[maestro]

El error indica que no coinciden los tipos, asi que alguna de las variables de la matriz que almacenas en memoria la estas intentando escribir en una tabla de la base de datos en un campo de un tipo que no concuerda (campo numerico y metemos texto) o viceversa.

Otra cosa, ¿porque cargas esa matriz en memoria con varables de sesion?, supone menos memoria ir leyendo el recorset a medida que necesitamos comprobar algo.