Type mismatch on accessing an array

[habfan]

I am having an issue where I call a com object that returns an array of values. The function is a variant that returns the error code or array. I can access the isarray, lbound, ubound, and correct vartype (8200). When I attempt to access the actual values I get the error on the page. The code I am using works fine in a VBA solution but I need to move this to an ASP though. Any help would be appreciated.

 

[Genimuse]

What error do you get? What is the specific line where the error is being thrown?

(In case you haven't done so, in IE be certain to go to Tools->Internet Options and choose the Advanced tab, and uncheck "Show friendly HTTP error messages," so you'll get more detailed errors.)

 

[habfan]

I have http friendly on, the exact message I get is
Microsoft VBScript runtime error '800a000d' type mismatch

The code is

Dim oCustomSecurity
Dim strReturn

Set oCustomSecurity CreateObject("CPMCustomSecurity.Class1")
strReturn = oCustomSecurity.fnGetUserGroup("localhost")
if IsArray(strReturn)
for i = lbound(strReturn) to ubound(strReturn)
k = strReturn(i)
next
endif

it is the line k=strReturn that causes the error. I have checked the return type with vartype and get 8200 which is the expected array of string returned.

Thanks, for any help

 

[Genimuse]

Hmm, quite a mystery, then. It must have to do with how ASP expects the array.

There's an article on it here, hopefully it will help:

http://www.15seconds.com/issue/990826.htm

 

[habfan]

Thanks,

I have read the post and it does not offer a solution to the issue I am facing though it did give me some ideas. My issue is moving data from com to asp. Which is most likely the same type of issue. So I will pass a string then parse it in the asp page. If anyone knows of a solution to the isses of passing an array from a vb com to an asp page I would like to here from you.

Thanks,

Habfan

 

[Genimuse]

Yeah, I saw that it went the opposite direction, but didn't see anything out there about going the other way, so hoped it might spark something. Best of luck.

 

[tsuji]

Hello habfan,

[1] Check out the ms article 250344 and download arrayconvert.exe:

http://support.microsoft.com/default.aspx?scid=kb;en-us;250344

[2] Out of the extracted file, regsvr32 the ads.dll, after placing it to a desirable folder.

[3] Then use it this way.
[tt]
'if it is not server.createobject
Set oCustomSecurity = CreateObject("CPMCustomSecurity.Class1")
strReturn = oCustomSecurity.fnGetUserGroup("localhost")
set cnvt = createobject("ads.arrayconver")
if IsArray(strReturn) then
strReturn = cnvt.cstrarray(strReturn)
for i = lbound(strReturn) to ubound(strReturn)
k = strReturn(i)
next
endif
[/tt]
regards - tsuji