ConvertToString (VBScript)

Sub QueryRecordset_OnClick()
   Dim objADORs
      strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
      Set ADF = ADS1.CreateObject _
      ("RDSServer.DataFactory", strServer)
   Set objADORs = ADF.Query _
   (txtConnect.Value,txtQueryRecordset.Value)ADF.ConvertToString(objADORs)End Sub 
www.51windows.Net