// Copyright (C) 1999 LiveUpdate division of LABTECH 
// Permission for use granted to all music lovers on the net
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"" " & _
          "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