PRB: "Errors Occurred" upon Accessing Index Server 2.0 via RDS (216973)

MORE INFORMATION

Index Server 2.0 was shipped (with Windows NT Option Pack 4) before the MDAC 2.0 release. As a result, Index Server 2.0 was not tested with MDAC 2.0 components when it was released. The release of Service Pack 4 for Windows NT 4.0 included some modifications that corrected the way Index Server 2.0 works with RDS 2.0 components (or later versions).

Steps to Reproduce Behavior

1. Start a new Microsoft Visual Basic project. Form1 is created by default.
2. Reference the following libraries from the Project/Reference menu:
   • "Microsoft ActiveX Data Objects 2.0 (or 2.1) library"
   • "Microsoft Remote Data Services 2.0 (or 2.1) library"
3. Insert a Command Button on the form. Command1 is created by default.
4. Insert the following code into the General Declaration section of Form1:

   Option Explicit
   Dim RS As ADODB.Recordset
   
   Private Sub DoQuery(HTTPServer As String)
   
       Dim Scope, QueryText, sSQL As String
   
       Scope = "C:\"                   ' Set the scope of the query
       QueryText = "Index"      ' Set the criteria of the query
       
       sSQL = "SELECT Filename, Path, Size, Write FROM Scope('" + Chr(34) + _
            Scope + Chr(34) + "') WHERE CONTAINS('" + Chr(34) + QueryText + _
            Chr(34) + "') > 0" ' ORDER BY Rank DESC"
   
       ' Create the recordset via the data-factory
       Data_Factory HTTPServer, sSQL
   
       ' Print out column titles
       Debug.Print "Filename", "Path", "Size", "Write"
       Debug.Print "-------------", "------", "------", "----------"
       ' Print out data
       
      Do Until RS.EOF
           Debug.Print RS("Filename"), RS("Path"), RS("Size"), RS("Write")
           RS.MoveNext
       Loop
       
       RS.Close
       Set RS = Nothing
       
   End Sub
   
   Private Sub Command1_Click()
       Dim HTTPServer As String
       Dim WebServer As String
       
       WebServer = InputBox("What is the name of your Web (IIS) Server?")
       HTTPServer = WebServer
       
       ' Execute the query
       DoQuery (HTTPServer)
       
   End Sub
   
   Public Sub Data_Factory(HTTPServer As String, sSQL As String)
       
       Dim DS As New RDS.DataSpace
       Dim DF As Object
       
       Set DF = DS.CreateObject("RDSServer.DataFactory", "http://" & HTTPServer)
       'next line produces error (not recognizing the provider) with NT4 SP3 or before
       Set RS = DF.Query("Provider=msidxs", sSQL, adOpenDynamic)
      
   End Sub
       
   
   					

5. Press F5 to run your project. Specify the name of your web server when prompted to do so.