Share via

Code to Find the Available Catalogs

  • Article

The names and attributes of the catalogs in the Product Catalog System are available in a recordset returned by the Catalog property of the CatalogManager object. The following example creates a recordset of the available catalogs and prints out a list of catalog names.

Dim oCatMgr
Dim rsCatalogs
' Get a local reference to the CatalogManager
' object created in the global.asa file.
Set oCatMgr = Application("MSCSCatalogManager")
Set rsCatalogs = oCatMgr.Catalogs
'Write out the catalog names from the recordset.
If (rsCatalogs.RecordCount > 0) Then
    rsCatalogs.MoveFirst()
    Do While Not rsCatalogs.EOF
        Response.Write rsCatalogs.Fields("CatalogName").Value
        Response.Write "<BR>"
        rsCatalogs.MoveNext()
    Loop
End If


All rights reserved.