function InsertFlash(sDivID, sParams, sSrc,sFlashVars)
//       ~~~~~~~~~~~
{
  var oDictionary = new ActiveXObject("Scripting.Dictionary");
  oDictionary.add ("sWidth", "100%");
  oDictionary.add ("sHeight", "100%");
  oDictionary.add ("sBgColor", "");
  oDictionary.add ("sAlign", "");
  oDictionary.add ("sID", "");
  oDictionary.add ("sWmode", "");  
  oDictionary.add ("sSalign", "");  
  oDictionary.add ("sFlashVars", "");  
  oDictionary.add ("sScale", "showall");
  oDictionary.add ("sMenu", "true");
  oDictionary.add ("sSwliveconnect", "false");
  oDictionary.add("sAllowFullScreen ", "false");

  arrParams = sParams.split('&');  
   
  for (var i=0; i< arrParams.length; i++)
    oDictionary.Item(arrParams[i].split("=")[0]) = arrParams[i].split("=")[1];                
    
  if(sFlashVars != undefined)
    oDictionary.Item('sFlashVars') = sFlashVars;
    
  var oDiv = document.getElementById(sDivID);
  var sFlash = '<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"' + 
               ' WIDTH=' + oDictionary.Item("sWidth") + ' HEIGHT=' + oDictionary.Item("sHeight") + ' id=' + oDictionary.Item("sID") + ' ALIGN=' + oDictionary.Item("sAlign") + ' VIEWASTEXT>' + 
               ' <PARAM NAME="movie" VALUE=' + sSrc + '>' + 
               ' <PARAM NAME="quality" VALUE="high">' + 
               ' <PARAM NAME="scale" VALUE=' + oDictionary.Item("sScale") + '>' + 
               ' <PARAM NAME="FlashVars" VALUE=\'' + oDictionary.Item("sFlashVars") + '\'>' + 
               ' <PARAM NAME="bgcolor" VALUE=' + oDictionary.Item("sBgColor") + '>' + 
               ' <PARAM NAME="menu" VALUE="false">' + 
               ' <PARAM NAME="wmode" VALUE=' + oDictionary.Item("sWmode") + '>' + 
                ' <PARAM NAME="menu" VALUE=' + oDictionary.Item("sMenu") + '>' +                
               ' <PARAM NAME="salign" VALUE=' + oDictionary.Item("sSalign") + '>' + 
               ' <PARAM NAME="swliveconnect" VALUE=' + oDictionary.Item("sSwliveconnect") + '>' +
               ' <PARAM NAME="allowFullScreen" VALUE=' + oDictionary.Item("sAllowFullScreen") + '>' +
               ' <EMBED src=' + sSrc + ' quality="high" bgcolor=' + oDictionary.Item("sBgColor") + ' WIDTH=' + oDictionary.Item("sWidth") + ' HEIGHT=' + oDictionary.Item("sHeight") + ' menu=' + oDictionary.Item("sMenu") + ' swliveconnect =' + oDictionary.Item("sSwliveconnect") + ' allowFullScreen =' + oDictionary.Item("sAllowFullScreen ") +
               ' NAME=' + oDictionary.Item("sID") + ' ALIGN=' + oDictionary.Item("sAlign") + ' salign=' + oDictionary.Item("sSalign") + ' TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>' + 
               ' </OBJECT>';
  
  InsertHtml (sDivID, sFlash);    
}
//-------------------------------------------------

function InsertHtml(sDivID, sFlashHTML)
{
  var oDiv = document.getElementById(sDivID);
  if (oDiv != null)
  {
    if (document.all)
      oDiv.outerHTML = sFlashHTML;
    else
      oDiv.innerHTML = sFlashHTML;
  }
}