%@LANGUAGE="VBSCRIPT"%> <% Set objBCap = Server.CreateObject("MSWC.BrowserType") vBrowser = objBCap.browser vVersion = objBCap.Version vParent = objBCap.parent vPlatform = objBCap.platform If objBCap.vbscript = True Then vVBScript = -1 Else vVBScript = 0 End If If objBCap.vJavaScript = True Then vJavaScript = -1 Else vJavaScript = 0 End If If objBCap.AOL = True Then vAOL = -1 Else vAOL = 0 End If %>