HOWTO: Return a Collection from Visual Basic to an ASP Page

• Microsoft Visual Basic Learning, Professional, and Enterprise Editions for Windows, versions 5.0, 6.0
• Active Server Pages

SUMMARY

The Collection object in Visual Basic provides a convenient way to refer to a related group of items as a single object. This article shows a simple sample that demonstrates a way to return the Visual Basic Collection to an Active Server Pages (ASP) page and display the contents in the browser

MORE INFORMATION

The Collections in Visual Basic have a base of 1 by default. You'll use the FOR loop and a Collection's COUNT property to iterate and display each element in the collection.

Step-by-Step Example

• Open a blank new Visual Basic ActiveX DLL project.



• Rename the project as "prjCol" and class as "clsCol."



• Add this code to class clsCol:

  
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
  ' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED
  ' TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
  ' PARTICULAR PURPOSE.
  '
  ' Copyright (C) 1999.  Microsoft Corporation.  All rights reserved.
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim MyCol As New Collection
  Public Function RetCol() As Variant
  
      MyCol.Add "Bill", "1"
      MyCol.Add "Paul", "2"
      MyCol.Add "Steve", "3"
     
      Set RetCol = MyCol
  
  End Function
  
  Public Function ColCount() As Integer
      ColCount = MyCol.Count
  End Function 




• Save and Compile the project.



• Create a blank new ASP page and add the following code:

  
  <%
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
  ' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED
  ' TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
  ' PARTICULAR PURPOSE.
  '
  ' Copyright (C) 1999.  Microsoft Corporation.  All rights reserved.
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  dim obj
  dim col
  dim i
  
  set obj = server.createobject("prjCol.clsCol")
  
  set col = obj.RetCol
  
  for i = 1 to obj.ColCount
  	Response.Write col.Item(cstr(i))
  next
  
  set obj = Nothing
  
  %>
   




• Save the ASP page under one of the virtual roots, run and test the page.

Additional query words:

Keywords : kbCOMt kbVBp500 kbVBp600 kbGrpASP
Version : WINDOWS:5.0,6.0; winnt:
Platform : WINDOWS winnt
Issue type : kbhowto