On Error Resume Next
lngMP70 = IsObject(CreateObject("WMPlayer.OCX"))

' Windows Media Player 7 Code
If (lngMP70) Then
	document.write "<OBJECT ID=objPlayer "
	document.write " CLASSID=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6"
	document.write " standby=""Loading Microsoft Windows Media Player components..."" "
	document.write " TYPE=""application/x-oleobject"" width=""0"" height=""0"">"
	document.write "<PARAM NAME=""AutoStart"" VALUE=""false"">"
	document.write "<PARAM NAME=""ShowControls"" VALUE=""0"">"
	document.write "<PARAM NAME=""uiMode"" VALUE=""invisible"">"
	document.write "</OBJECT>"

' Windows Media Player 6.4 Code
Else
	document.write "<OBJECT ID=objPlayer "
	document.write " CLASSID=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
	document.write "CODEBASE=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
	document.write " standby=""Loading Microsoft Windows Media Player components..."" "
	document.write " TYPE=""application/x-oleobject"" width=""286"" height=""225"">"
	document.write "<PARAM NAME=""AutoStart"" VALUE=""false"">"
	document.write "<PARAM NAME=""ShowControls"" VALUE=""0"">"
	document.write "</OBJECT>"
End If