on error resume next

                                                               If MSDetect = "true" Then

                                                               var flashMode

                                                               flashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))

                                                               if flashMode = True Then

                                                                              flashinstalled = 2

                                                               else

                                                                              flashinstalled = 0

                                                               end if

                                                               End If