Código fuente de 'Propiedades navegador 3.asp'

<html>
<head>
<title>Propiedades navegador 3 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b>
<font size="3">Propiedades navegador 3</font></b>
<body style="font-family: Arial; font-size: 9pt">

<br><br>

<%
'EXAMPLE USAGE
'bFrames = PropiedadesNavegador("Frames")
'if bFrames = false then response.Redirect "NoFrames.htm"

Function PropiedadesNavegador(Capability)
dim bAns
set oBrowser = Server.CreateObject("MSWC.BrowserType")
Select Case UCase(Capability)
    Case "TABLES"
        bAns = oBrowser.Tables
    Case "FRAMES"
        bAns = oBrowser.Frames
    Case "JAVA"
		bAns = oBrowser.JavaApplets
    Case "COOKIES"
		bAns = oBrowser.Cookies
    Case "ACTIVEXCONTROLS"
		bAns = oBrowser.ActiveXControls
    Case "BACKGROUNDSOUNDS"
		bAns = oBrowser.BackgroundSounds
    Case "JAVASCRIPT"
		bAns = oBrowser.JavaScript
    Case "VBSCRIPT"
		bAns = oBrowser.VBScript
    Case Else
		bAns =  False
End Select

PropiedadesNavegador = bAns
set oBrowser = Nothing
End Function

if propiedadesNavegador("tables")=true then 
response.write "Tu navegador acepta tablas<br>"
else
response.write "Tu navegador NO acepta tablas<br>"
end if

if propiedadesNavegador("frames")=true then 
response.write "Tu navegador acepta frames (marcos)<br>"
else
response.write "Tu navegador NO acepta frames (marcos)<br>"
end if

if propiedadesNavegador("java")=true then 
response.write "Tu navegador permite applets java<br>"
else
response.write "Tu navegador NO permite applets java<br>"
end if

if propiedadesNavegador("cookies")=true then 
response.write "Tu navegador permite cookies<br>"
else
response.write "Tu navegador NO permite cookies<br>"
end if

if propiedadesNavegador("activexcontrols")=true then 
response.write "Tu navegador acepta controles activeX<br>"
else
response.write "Tu navegador NO acepta controles activeX<br>"
end if

if propiedadesNavegador("backgroundsounds")=true then 
response.write "Tu navegador puede reproducir música<br>"
else
response.write "Tu navegador NO puede reproducir música<br>"
end if

if propiedadesNavegador("javascript")=true then 
response.write "Tu navegador acepta javascript<br>"
else
response.write "Tu navegador NO acepta javascript<br>"
end if

if propiedadesNavegador("vbscript")=true then 
response.write "Tu navegador acepta vbcript<br>"
else
response.write "Tu navegador NO acepta vbcript<br>"
end if
%>