home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / browcap.asp < prev    next >
Encoding:
Text File  |  1997-09-21  |  570 b   |  30 lines
  1. <%Set BrowCap = CreateObject("MSWC.BrowserType")%>
  2. <HTML>
  3. <HEAD><TITLE>Example Page</TITLE></HEAD>
  4. <BODY>
  5. <H1>Results of the big game</H1>
  6. <%If (BrowCap.Tables=TRUE) Then%>
  7. <TABLE>
  8.   <TR>
  9.     <TD>
  10.       <STRONG>The Dynamite Dynamics</STRONG>
  11.     </TD>
  12.     <TD>
  13.       187
  14.     </TD>
  15.   </TR>
  16.   <TR>
  17.     <TD>
  18.       <STRONG>The Sluggish Statics</STRONG>
  19.     </TD>
  20.     <TD>
  21.       12
  22.     </TD>
  23.   </TR>
  24. </TABLE>
  25. <% Else %>
  26. <STRONG>The Dynamite Dynamics</STRONG>  187<BR>
  27. <STRONG>The Sluggish Statics</STRONG>  12
  28. <% End If %>
  29. </BODY>
  30. </HTML>