Sub PrintProperties( RS ) Wscript.Echo "PropertyCount=" & RS.Properties.Count for i = 0 to RS.Properties.Count - 1 Wscript.Echo " Property " & RS.Properties(i).Name & " = " & RS.Properties(i).Value Next End Sub set Q=CreateObject("IXSSO.Query") Q.Columns = "filename, directory, size, write" Q.Query = "#filename *.asp" ' Q.GroupBy = "filename[d]" Q.GroupBy = "directory[a]" Q.Catalog = "system" set Util=CreateObject("IXSSO.Util") Util.AddScopeToQuery Q, "\" Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE Q.MaxRecords = 20000 WScript.echo " Query = " & Q.Query WScript.echo " Columns = " & Q.Columns WScript.echo " CiScope = " & Q.CiScope WScript.echo " CiFlags = " & Q.CiFlags WScript.echo " GroupBy = " & Q.GroupBy WScript.echo " Catalog = " & Q.Catalog WScript.echo " OptimizeFor = " & Q.OptimizeFor WScript.echo " AllowEnumeration = " & CStr(Q.AllowEnumeration) WScript.echo " MaxRecords = " & Q.MaxRecords set RS=Q.CreateRecordSet( "nonsequential" ) WScript.echo "RS - IChapteredRowset prop = " & RS.Properties("IChapteredRowset").Value '
' WScript.echo " QueryTimedOut =" &if Q.QueryTimedOut then Response.Write("TRUE") else Response.Write("FALSE") %>
' WScript.echo " QueryIncomplete = " &if Q.QueryIncomplete then Response.Write("TRUE") else Response.Write("FALSE") %>
' WScript.echo " OutOfDate = " &if Q.OutOfDate then Response.Write("TRUE") else Response.Write("FALSE") %>

   CatFieldCount = 0
   Header = ""
   For i = 0 to RS.Fields.Count - 1
     If RS(i).Name <> "Chapter" then
        CatFieldCount = CatFieldCount + 1

        If header <> "" then
             Header = Header & "  " & RS(i).Name
        else
             Header = RS(i).Name
        end if
     End if
   Next

   ' PrintProperties( RS )

   WScript.Echo Header
 
   F1 = 0
   Do While Not RS.EOF
      F1 = F1 + 1
      Record = Left(CStr(F1) & ".      ", 4)
      For i = 0 to RS.Fields.Count - 1
        
         If RS(i).Name <> "Chapter" then
             ' wscript.echo RS(i).Value
             If Record <> "" then
                  Record = Record & "  " & RS(i).Value
             else
                  Record = RS(i).Value
             end if
         End if
      Next
      WScript.Echo Record

      Set RS2 = RS.Fields("Chapter").Value
      ' wscript.echo "typename(rs2) = " & typename(rs2)
      F2 = 0
      if F1 = 1 then
          ' PrintProperties( RS2 )
          WScript.echo "RS2 - IChapteredRowset prop = " & RS2.Properties("IChapteredRowset").Value
      end if
      Do While Not RS2.EOF

          F2 = F2 + 1

          Record = Left(CStr(F1) + "." + CStr(F2) + ".      ", 8)
          For j = 0 to RS2.Fields.Count - 1
           ' wscript.echo RS2(j).Value
             If RS2(j).Name <> "Chapter" then
               ' If "FILENAME" <> RS2(j).Name then
                 If "DIRECTORY" <> RS2(j).Name then
                      Record = Record & "  " & RS2(j).Value
                 End if
             End if
         Next
         WScript.Echo Record
      RS2.MoveNext

      Loop
      RS2.close
      Set RS2 = Nothing
  RS.MoveNext
  Loop
  RS.close
  Set RS = Nothing