home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / BrowserCap_VBScript.asp < prev    next >
Encoding:
Text File  |  1997-09-02  |  1.7 KB  |  77 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit        %>
  3.  
  4.  
  5. <HTML>
  6.     <HEAD>
  7.         <TITLE>Using the Browser Capabilities Component</TITLE>
  8.     </HEAD>
  9.  
  10.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  11.  
  12.  
  13.         <!-- Display Header -->
  14.  
  15.         <font size="4" face="Arial, Helvetica">
  16.         <b>Using the Browser Capabilities Component</b></font><br>
  17.       
  18.         <hr size="1" color="#000000">
  19.  
  20.  
  21.         <!-- Create a BrowserType Object -->
  22.  
  23.         <%
  24.             Dim bc
  25.             Set bc = Server.CreateObject("MSWC.BrowserType")
  26.         %>
  27.  
  28.  
  29.         <!-- Output a table describing the capabilities -->
  30.         <!-- of a user's browser-->
  31.  
  32.         <Table border=1>
  33.  
  34.             <tr>
  35.             <td>Browser Name</td>
  36.             <td> <%=bc.Browser %> </Td>
  37.  
  38.             <tr>
  39.             <td>Browser Version</td>            
  40.             <td> <%=bc.Version %> </Td>
  41.  
  42.             <tr>
  43.             <td>Major Version</td>
  44.             <td> <%=bc.Majorver %> </Td>
  45.  
  46.             <tr>
  47.             <td>Minor Version</td>
  48.             <td> <%=bc.Minorver %> </Td>
  49.  
  50.             <tr>
  51.             <td>Frame Support</td>
  52.             <td> <%=bc.Frames %> </Td>
  53.  
  54.             <tr>
  55.             <td>Table Support</td>
  56.             <td> <%=bc.Tables %> </Td>
  57.  
  58.             <tr>
  59.             <td>Cookie Support</td>
  60.             <td> <%=bc.Cookies %> </Td>
  61.  
  62.             <tr>
  63.             <td>Background Sound Support</td>
  64.             <td> <%=bc.BackgroundSounds %> </Td>
  65.  
  66.             <tr>
  67.             <td>VBScript Support</td>
  68.             <td> <%=bc.VBScript %> </Td>
  69.  
  70.             <tr>
  71.             <td>JavaScript Support</td>
  72.             <td> <%=bc.JavaScript %> </Td>
  73.  
  74.         </table>
  75.     </BODY>
  76. </HTML>
  77.