ADO Test

<% Set C = Server.CreateObject("ADODB.Connection") C.Open "ADOSamples" %>

Connection Properties <% For Item = 0 To C.Properties.Count - 1 %> <% Next %>

<%= C.Properties(Item).Name %>

<% ' Print something so that the table border gets displayed If IsEmpty(C.Properties(Item)) Then Response.Write " " ' Determine if the property is a Boolean ElseIf VarType(C.Properties(Item)) = 11 Then Response.Write CStr(CBool(C.Properties(Item))) Else Response.Write C.Properties(Item) End If %>

Resultset Properties
<% Set RS = C.Execute("SELECT * FROM Products") %> <% For Item = 0 To RS.Properties.Count - 1 %> <% Next %>

<%=RS.Properties(Item).Name%>

<% ' Determine if the property is a Boolean If VarType(RS.Properties(Item)) = 11 Then Response.Write CStr(CBool(RS.Properties(Item))) Else Response.Write RS.Properties(Item) End If %>

<% RS.Close %> <% C.Close %>