
Passing a variant to a methos in an ActiveX object
I have an .asp script accessing some ActiveX objects in a VB .dll. The code
snippet to follow is the script code. The line below;
=========> Lightbox.AddChild 1, LightboxDetail <==============
Gives me an error. The method, Lightbox.AddChild takes as the 2nd parameter
a reference to an "Object". At run time I get a "Type mismatch" error.
In a VB executable I can easily fix this by doing the statement;
dim Lightbox as Object
but in VBScript I can only do
dim Lightbox
What can I do to solve this problem of resolving this type mismatch?
Thank you.
Todd
<%
Dim Lightbox
Dim LightboxDetail
Dim LightboxDetailList
Set Lightbox = Server.CreateObject("WebBO.CLightbox")
Lightbox.Att(2) = "PaddleNow6"
Lightbox.Att(3) = "Let's do the San Juans"
Set LightboxDetail = Server.CreateObject("WebBO.CLightboxDetail")
LightboxDetail.Att(3) = "Image1"
LightboxDetail.Att(4) = "Comment1"
LightboxDetail.Att(5) = "Descr1"
response.write(LightboxDetail.Att(3))
response.write(LightboxDetail.Att(4))
response.write(LightboxDetail.Att(5))
=========> Lightbox.AddChild 1, LightboxDetail <==============
Set LightboxDetailList = Lightbox.GetChild(1)
%>