Show Flex/ODBC Properties

<%= "The Current server time (Colorado) is: " & Now() %>

This page shows the properties of the Flex/ODBC driver as seen by the NT 4 Web server.

<% Set C = Server.CreateObject("ADODB.Connection") C.Open "DataFlex Test32" %>
  • 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 Dealers") %> <% 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 %>
    <% Set bc = Server.CreateObject("MSWC.BrowserType") %>

    The following is a list of properties of your browser:

    Browser Type <%= bc.Browser %>
    What Version <%= bc.Version %>
    Major Version <%= bc.Majorver %>
    Minor Version <%= bc.Minorver %>
    Frames <%= CStr(CBool(bc.Frames)) %>
    Tables <%= CStr(CBool(bc.Tables)) %>
    Cookies <%= CStr(CBool(bc.cookies)) %>
    Background Sounds <%= CStr(CBool(bc.BackgroundSounds)) %>
    VBScript <%= CStr(CBool(bc.VBScript)) %>
    JavaScript <%= CStr(CBool(bc.Javascript)) %>

    ----------

    Home Search Feedback