PRB: ASP Returns "Error in Loading DLL" with VB Component (178777)

RESOLUTION

• Revert back to a previous version of Visual Basic 5.0 (prior to Service Pack 2).
  
  -or-
  
  
• Implement a class wrapper around the collection object of Visual Basic. To implement a class wrapper around the collection object, follow these steps:
  
  
  1. Add the following code to a class module in Visual Basic:
     

           Option Explicit
           Private m_cList As Collection
     
           'Add
           'Purpose     - Add to list
           'Inputs      - (String)  sKey
           '            - (Variant) vItem
           Public Sub Add(ByVal sKey As String, vItem As Variant)
             m_cList.Add vItem, sKey
     
           End Sub
     
           'Remove
           'Purpose     - Remove from list
           'Inputs      - (String)  sKey
           Public Sub Remove(sKey As String)
             m_cList.Remove sKey
           End Sub
     
           Public Property Get Count() As Long
             Count = m_cList.Count
           End Property
     
           Public Property Get Item(sKey As String) As Variant
             On Error Resume Next
             If m_cList.Count > 0 Then
               If IsObject(m_cList(sKey)) Then
                 Set Item = m_cList(sKey)
               Else
                 Item = m_cList(sKey)
               End If
             End If
           End Property
     
           Public Property Get NewEnum() As IUnknown
             On Error Resume Next
             Set NewEnum = m_cList.[_NewEnum]
           End Property
     
           Private Sub Class_Initialize()
             On Error Resume Next
             Set m_cList = New Collection
           End Sub
     
           Private Sub Class_Terminate()
             On Error Resume Next
             Set m_cList = Nothing
           End Sub
     								

  2. In Visual Basic, under the Tools menu, click Procedure Attributes, click Advanced, and select the Item methods Procedure ID as default and select the NewEnum procedure Id as -4 (you will need to type this in manually).
  3. Place this code into a class module for the project. Instead of using a collection, use the class module with this code.
  4. To test this new object, create a test Active Server Page with the following code:
     

           <%
           'Create an instance of the new collection object.
           Set objMyColl = Server.CreateObject("Project1.Class1")
     
           If IsObject(objMyColl) Then
              Response.Write "Yes, I am an object" & "<BR><BR>"
     
              'Add some test members.
              objMyColl.Add CStr("1"), "Apple"
              objMyColl.Add CStr("2"), "Orange"
              objMyColl.Add CStr("3"), "Banana"
     
              'Get the count of the members.
           Response.Write "I have " & objMyColl.Count & " members" & "<BR><BR>"
     
               Response.Write "The members are: " & "<BR>"
               For Each Item in objMyColl
                 Response.Write item & "<BR>"
               Next
            Else
               Response.Write "Server failed to create object."
            End if
     
           %>