<script LANGUAGE="VBScript">
<!--
On Error Resume Next
lngMP70 = IsObject(CreateObject("WMPlayer.OCX"))
If (lngMP70) Then
document.write "<OBJECT ID=MediaPlayer "
document.write " CLASSID=CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6"
document.write " standby=""Please wait while we start the radio!"" "
document.write " TYPE=""application/x-oleobject"" width=""160"" height=""40"">"
document.write "<PARAM NAME=""url"" VALUE=""ip here"">"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "<PARAM NAME=""uiMode"" VALUE=""mini"">"
document.write "<PARAM NAME=""volume"" VALUE=""100"">"
document.write "</OBJECT>"
Else
document.write "<OBJECT ID=MediaPlayer "
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=""160"" height=""40"">"
document.write "<PARAM NAME=""FileName"" VALUE=""ip here"">"
document.write "<PARAM NAME=""AutoStart"" VALUE=""true"">"
document.write "<PARAM NAME=""ShowControls"" VALUE=""1"">"
document.write "<PARAM NAME=""volume"" VALUE=""100"">"
document.write "</OBJECT>"
End If
-->
</SCRIPT>