var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;

function player_DoFSCommand(command, args) {
  var playerObj = InternetExplorer ? player : document.player;
  var theVarFromFlash = args;

  if (command=="player")
  parent.frames[1].window.document.loop.SetVariable("k", theVarFromFlash);

  if (command=="checkloop")
  parent.frames[1].window.document.loop.SetVariable("checkloop", theVarFromFlash);

  if (command=="checkequ")
  parent.frames[1].window.document.loop.SetVariable("checkequ", theVarFromFlash);

  if (command=="setthumb")
  parent.frames[1].window.document.loop.SetVariable("setthumb", theVarFromFlash);

  if (command=="getthumb")
  parent.frames[1].window.document.loop.SetVariable("getthumb", theVarFromFlash);

}

if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && 
	  navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1) {
	document.write('<SCRIPT LANGUAGE=VBScript\> \n');
	document.write('on error resume next \n');
	document.write('Sub player_FSCommand(ByVal command, ByVal args)\n');
	document.write('  call player_DoFSCommand(command, args)\n');
	document.write('end sub\n');
	document.write('</SCRIPT\> \n');
}