<%
' Codigo ofrecido por tutores.org
Function QueryBrowserCapability(Capability)
dim bAns
set oBrowser = Server.CreateObject("MSWC.BrowserType")
Select Case UCase(Capability)
Case "TABLES"
bAns = oBrowser.Tables
response.write"tu navegador no soporta tablas<br>"
'si queremos enviar a una pagina sin tablas
' response.redirect"pagina_sin_tablas.html"
Case "FRAMES"
bAns = oBrowser.Frames
response.write"tu navegador no soporta frames<br>"
'si queremos enviar a una pagina sin frames
' response.redirect"pagina_sin_frames.html
Case "JAVA"
bAns = oBrowser.JavaApplets
response.write"tu navegador no soporta Aplets de Java<br>"
'si queremos enviar a una pagina sin javas
' response.redirect"pagina_sin_javas.html
Case "COOKIES"
bAns = oBrowser.Cookies
response.write"tu navegador no soporta cookies<br>"
'si queremos enviar a una pagina sin cookies
' response.redirect"pagina_sin_cookies.html
Case "ACTIVEXCONTROLS"
bAns = oBrowser.ActiveXControls
response.write"tu navegador no soporta Controles activex<br>"
'si queremos enviar a una pagina sin Controles activex
' response.redirect"pagina_sin_Controles_activex.html
Case "BACKGROUNDSOUNDS"
bAns = oBrowser.BackgroundSounds
response.write"tu navegador no soporta sonidos de Fondo<br>"
'si queremos enviar a una pagina sin sonidos de fondo
' response.redirect"pagina_sin_sonidos.html
Case "JAVASCRIPT"
bAns = oBrowser.JavaScript
response.write"tu navegador no soporta javascript<br>"
'si queremos enviar a una pagina sin javascript
' response.redirect"pagina_sin_javascript.html
Case "VBSCRIPT"
bAns = oBrowser.VBScript
response.write"tu navegador no soporta VBScript<br>"
'si queremos enviar a una pagina sin VBScript
' response.redirect"pagina_sin_VBScript.html
Case Else
bAns = False
End Select
QueryBrowserCapability = bAns
set oBrowser = Nothing
End Function
%>
Si no se muestra nada , indica que tu navegador acepta todo lo indicado en el codigo