新涂层 高硬度:播放器代码错误

下面的:

<tr>
<td colspan="18"><img src="play/r1_c1.gif" width="275" height="22" border="0"></td>
<td><img src="spacer.gif" width="1" height="22" border="0"></td>
</tr>
<tr>
<td><img src="play/r2_c1.gif" width="10" height="227" border="0"></td>
<td colspan="16" background=play/r2_c2.gif width="254" height="227"><EMBED height=222
pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash
src=Images/tiaoqu1.swf type=application/x-shockwave-flash width=254
quality="high"> </EMBED>
<script LANGUAGE="javaScript">
var ERR_NonePlayer="您的系统中没有安装Real Player播放器。请安装!\n\n播放器将关闭。";
var ERR_FileNotFind="未发现你要点播的舞曲。\n\n请更换其他舞曲！";
var ERR_NotLocateServer="播放器链接本舞曲所在服务器超时，请重新点播！";
var ERR_UnkownError="目前本站在线用户过多，服务器限制，请抢线或稍后试听！";
</script>
<script LANGUAGE="VBScript">
on error resume next
RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))
RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))
if not RealPlayerG2 and RealPlayer5 and RealPlayer4 then
if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then
window.location = "ftp://dllishui.pchome.net/multimedia/media/RealOneGOLDcn.exe"
end if
end if