<%
If RevisarComponente("MSWC.BrowserType") Then 'revisar que tengas instalado el componente
Set bc = Server.CreateObject("MSWC.BrowserType")
%>
<H3>La siguiente es una lista de propiedades de tu 'browser':</H3>
<TABLE BORDER=1>
<TR><TD>Tipo</TD> <TD><%= bc.Browser %></TD>
<TR><TD>Versión</TD> <TD><%= bc.Version %></TD>
<TR><TD>Versión Mayor</TD> <TD><%= bc.Majorver %></TD>
<TR><TD>Version Menor</TD> <TD><%= bc.Minorver %></TD>
<TR><TD>Soporta Frames?</TD> <TD><%= CStr(CBool(bc.Frames)) %></TD>
<TR><TD>Soporta Tablas?</TD> <TD><%= CStr(CBool(bc.Tables)) %></TD>
<TR><TD>Acepta Cookies?</TD> <TD><%= CStr(CBool(bc.cookies)) %></TD>
<TR><TD>Puede ejecutar VBScript?</TD> <TD><%= CStr(CBool(bc.VBScript)) %></TD>
<TR><TD>Puede ejecutar JavaScript?</TD> <TD><%= CStr(CBool(bc.Javascript)) %></TD>
</TABLE>
<%
Else
Response.Write "No tienes instalado el componente para poder obtener las propiedas de tu browser."
End if
Function RevisarComponente(ProgId) 'Funcion para revisar la existencia de un componente x
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
RevisarComponente = True
Else
RevisarComponente = False
End If
Set tmpObject = Nothing
End Function
%>
---------------------
Tan libre como gratuito!!!
