home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch22 / viewers.asp < prev    next >
Encoding:
Text File  |  1998-07-13  |  769 b   |  37 lines
  1. <HTML>
  2. <FONT FACE="Comic Sans MS" SIZE=3>
  3. <H1>Welcome to ASP</H1>
  4. There are <% =Application("Viewers") %> users currently connected to the server.
  5. <P>
  6. You have connected from the following IP address: <% =Session("User") %> (<% =Session("HName") %>)
  7. <P>
  8. We already know that your browser:
  9. <BR>
  10. 1.
  11. <% Set Browser = Server.CreateObject("MSWC.BrowserType") %>
  12. <% If Browser.VBscript Then 
  13.     Response.Write "Can "
  14. Else
  15.     Response.Write "Can't "
  16. End If
  17. %> execute VBScript code.
  18. <BR>
  19. 2.
  20. <% If Browser.Frames Then
  21.     Response.Write "Can "
  22. Else
  23.     Response.Write "Can't "
  24. End If
  25. %> display frames.
  26. <BR>
  27. 3.
  28. <% If Browser.Tables Then
  29.     Response.Write "Can "
  30. Else
  31.     Response.Write "Can't "
  32. End If
  33. %> display tables.
  34.  
  35. </FONT>
  36. </HTML>
  37.