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
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.