ActiveX control support

This shows how to check whether ActiveX controls are supported , many users disable ActiveX controls or have no support for them this is worth checking especially if you have plug-ins on your pages such as shockwave etc.

Code :

<%
'our variables
Dim blnActiveX , objBrow
'create an instance of browsertype object
Set objBrow = Server.createObject("MSWC.BrowserType")
'blnActiveX will be either true or false
blnActiveX = objBrow.ActiveXControls
'if it is true display a message
If blnActiveX = True Then
Response.Write "ActiveX controls are supported"
'if false display a different message
Else
Response.Write "ActiveX controls are not supported"
End If
'destroy the instance of the object
Set objBrow = Nothing
%>