function PlayIE(musicFile)
if IsObject(navigator) and (navigator.appName = "Microsoft Internet Explorer") then
   dim cObj
   dim objTag
   on error resume next
   set cObj = CreateObject("Crescendo")
   cres = IsObject(cObj)
   if (cres) then
        document.write "<OBJECT ID=Crescendo " & _
          "CLASSID=""clsid:0FC6BF2B-E16A-11CF-AB2E-0080AD08A326"" " & _
          "CODEBASE=""http://activex.liveupdate.com/controls/cres.cab"" " & _
          "HEIGHT=55 WIDTH=200> "
        document.write "<PARAM NAME=""Song"" VALUE=""" & musicFile & """>"
        document.write "</OBJECT>"
   else
      document.write "<bgsound src=""" & musicFile & """ loop=infinite>"
   end if
end if
end function