<%
Option Explicit
Dim BC
set BC = server.createobject("MSWC.BrowserType")
Response.Write "Przegldarka: " & BC.Browser & " " & BC.Version & "<BR>"
Response.Write "Platforma: " & BC.Platform & "<BR>"
Response.Write "DHTML: " & BC.dhtml & "<BR>"
Response.Write "Ramki: " & BC.frames & "<P>"
Response.Write "Tabele: " & BC.tables & "<BR>"
Response.Write "Cookies: " & BC.cookies & "<BR>"
Response.Write "Dwiki ta: " & BC.backgroundsounds & "<BR>"
Response.Write "VBScript: " & BC.vbscript & "<P>"
Response.Write "JavaScript: " & BC.javascript & "<BR>"
Response.Write "Aplety Java: " & BC.javaapplets & "<BR>"
Response.Write "Obiekty sterujce ActiveX: " & BC.activexcontrols & "<BR>"
Response.Write "AOL: " & BC.AOL & "<P>"
Response.Write "Beta: " & BC.Beta & "<BR>"
Response.Write "CDF: " & BC.cdf
%>
