<% Private i, x, MM_FlashControlVersion On Error Resume Next x = null MM_FlashControlVersion = 0 var SeeMovie SeeMovie = False var do_dw_var var browser_flash_version For i = 9 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 x = null SeeMovie = (MM_FlashControlVersion >= 7) browser_flash_version = MM_FlashControlVersion If SeeMovie Then %>

<% Else %>

Sorry - you need Flash Version 7 to see the video on this page. If you'd like to install it, go to www.macromedia.com

<% End If %>