<%@ LANGUAGE=VBScript %>
Browser Capabilities Test
<%
Dim objBrowserCap
Dim blnUseVBScript 'will be True if OK to use VBScript, else False
'create Browser Capabilities Component
Set objBrowserCap = Server.CreateObject("MSWC.BrowserType")
'determine if VBScript is usable, store in variable
blnUseVBScript = objBrowserCap.vbscript
Set objBrowserCap = nothing 'release object reference
If blnUseVBScript Then
'write a VBScript Event Handler using DHTML
Response.Write "" & vbcrlf
Else
'Javascript will be written inline with the image
End if
%>
WIDTH="260" HEIGHT="79">