<TD><B><FONT SIZE=2> <% ' Print something so that the table border gets displayed If IsEmpty(C.Properties(Item)) Then Response.Write "  " ' Determine if the property is a Boolean End If If VarType(C.Properties(Item)) = 11 Then Response.Write CStr(CBool(C.Properties(Item))) Else Response.Write C.Properties(Item) End If %> </FONT></B></TD> </TR> <% Next %> </TABLE>
<% Set RS = C.Execute("SELECT * FROM publishers") %>
<TABLE BORDER=1>
<% For Item = 0 To RS.Properties.Count - 1 %> <TR> <TD><FONT SIZE=2><%=RS.Properties(Item).Name%></FONT></TD> <TD><B><FONT SIZE=2> <% ' 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 %> </FONT></B></TD> </TR> <% Next %> </TABLE>
<% RS.Close %> <% C.Close %> <BR> <BR> <% End If %> </BODY> </HTML>