Steps to Reproduce Behavior

1. Create a Visual Basic ActiveX DLL Project called "VBUDTPrj."
2. Add class module called "VBUDTObj."
3. Define a user defined data type as follows:

        
   Public Type TestUDT
      strName as String
      strDept as String  
   End Type
   						

4. Implement the following method:

   Public Function TestMethod()As Variant
     Dim rtnArray(10) As Variant
     Dim intCnt As Integer
     For intCnt = 0 To 9
       Dim udtTestData As TestUDT
       udtTestData.strName = "Name"
       udtTestData.strDept = "Department"
       rtnArray(intCnt) = udtTestData
     Next
     TestMethod = rtnArray
   End Function
   						

5. Create an ASP Page that calls this Method:

     <%
       Dim objTest, udtArray, udtData
       Set objTest = Server.CreateObject("VBUDTPrj.VBUDTObj")
       udtArray = objTest.TestMethod()
       udtData = udtArray(1)  
       Response.Write( "Name = " & udtData.strName & "<BR>" )
       Response.Write( "Dept = " & udtData.strDept & "<BR>" )
     %>
   						

6. Run the ASP page and the following error occurs:
   Microsoft VBScript runtime error '800a0030'
   Error Loading DLL: TestMethod
   

Back to the top