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)&"> <b>·</b> <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)&"> <b>· </b> <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