Sub VersionX()
Dim cnn1
Dim strCnn
Dim strVersionInfo
' Open connection.
Set cnn1 = Server.CreateObject("ADODB.Connection")
strCnn = "driver={SQL Server};server=srv;" & _
"user id=sa;password=;database=Pubs;"
cnn1.Open strCnn
strVersionInfo = "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("Provider Version") & vbCr & _
"Driver Name: " & cnn1.Properties("Driver Name") & vbCr & _
"Driver Version: " & cnn1.Properties("Driver Version") & vbCr & _
"Driver ODBC Version: " & cnn1.Properties("Driver ODBC Version")
Response.Write strVersionInfo
cnn1.Close
End Sub
Call VersionX()