Sub VersionX () Dim cnn1Dim strCnnDim strVersionInfo 'Open connection.Set cnn1 = Server.CreateObject ( "ADODB.Connection") strCnn = "driver = {SQL Server}; server = srv;" & _ "user id = sa; password = Database = public; "cnn1.open strcnnstrversioninfo =" ado version: "& CNN1.Version & VBCR & _" DBMS Name: "& CNN1.Properties (" DBMS Name "& VBCR & _" DBMS VERSION: "& CNN1 .Properties ("DBMS Version" & VBCR & _ "OLE DB VERSION:" & CNN1.Properties ("Ole DB Version" & VBCR & _ "Provider Name:" & CNN1.Properties ("Provider Name" & VBCR & _ "Provider Version:" & CNN1.Properties & VBCR & _ DRIVER NAME: "& CNN1.Properties (" Driver Name "& VBCR & _" Driver Version: "& CNN1.Properties "Driver Version" & VBCR & _ "Driver ODBC Version:" & CNN1.Properties) response.write strVersionInfoccnn1.closend subcall versionX ()