' Created by Tom Salmon, TSI Incorporated 09/06/00

' Updated 09/06/00 by Tom Salmon

' This script will only run on IE or VBSCRIPT browsers

'

' This script checks IE for the Flash plug-in and sets a 

'   variable "FlashMode" to either true or 

'   false to check for Flash plug-in. 

' Start code in page with 'If FlashMode = True Then'.   





Private i, x, MM_FlashControlVersion

On Error Resume Next

x = null

MM_FlashControlVersion = 0

var Flashmode

FlashMode = False

For i = 5 To 1 Step -1

	Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)



	MM_FlashControlInstalled = IsObject(x)



	If MM_FlashControlInstalled Then

		 MM_FlashControlVersion = CStr(i)

		 Exit For

	End If

Next

FlashMode = (MM_FlashControlVersion >= 4)