'#########################################
'#
'#  MSIEWinDetectFlash()
'#
'#  Indicates Flash support in MSIE by returning whether or not an instance of the player could be created
'#
'#  Author:         Andy Hames 21/09/2007
'#  Parameters:
'#    flashVersion  The version of Flash that is required
'#
'#########################################
Function MSIEWinDetectFlash(flashVersion)
  On Error Resume Next
  MSIEWinDetectFlash = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & flashVersion)))
End Function