New Page 1

<HTML><HEAD>
<TITLE>QODBC Live Data Demo</TITLE>
</HEAD>

<H2>Show QODBC Properties</H2>

<b><%= "The Current server time (California USA) is: " & Now()  %></b>

<H3>This page shows the properties of the QODBC driver as seen by the
Windows 2000 IIS Web server.</H3>


<%
   Set C = Server.CreateObject("ADODB.Connection")
   C.Open "QuickBooks Data"
%>
<ul>
<LI><FONT SIZE=4>Connection Properties</FONT>
<TABLE BORDER=1>
<%   For Item = 0 To C.Properties.Count - 1 %>
<TR>
<TD><FONT SIZE=2>
<%= C.Properties(Item).Name %></FONT></TD>

<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
   ElseIf 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>

<P>
<LI><FONT SIZE=4>Resultset Properties</FONT>
<BR>

<%  Set RS = C.Execute("SELECT * FROM employee") %>

<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>

<%  Set bc = Server.CreateObject("MSWC.BrowserType") %>

<H3>The following is a list of properties of your browser:</H3>
<TABLE BORDER=1>
<TR><TD>Browser Type</TD> <TD><%= bc.Browser %></TD>
<TR><TD>What Version</TD> <TD><%= bc.Version %></TD>
<TR><TD>Major Version</TD> <TD><%= bc.Majorver %></TD>
<TR><TD>Minor Version</TD> <TD><%= bc.Minorver %></TD>
<TR><TD>Frames</TD> <TD><%= CStr(CBool(bc.Frames)) %></TD>
<TR><TD>Tables</TD> <TD><%= CStr(CBool(bc.Tables)) %></TD>
<TR><TD>Cookies</TD> <TD><%= CStr(CBool(bc.cookies)) %></TD>
<TR><TD>Background Sounds</TD> <TD><%= CStr(CBool(bc.BackgroundSounds)) %></TD>
<TR><TD>VBScript</TD> <TD><%= CStr(CBool(bc.VBScript)) %></TD>
<TR><TD>JavaScript</TD> <TD><%= CStr(CBool(bc.Javascript)) %></TD>
</TABLE>
<BR>


</HTML>