function createFlash (movie, width, height, flashVars, allowscale, allowtransparent, alternative) {
	// set any undefined vars
	if (allowscale == undefined) { allowscale = 0; }
	if (allowtransparent == undefined) { allowtransparent = 1; }
	// detect plugin
	plugin = 0;
	if (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin && navigator.plugins && navigator.plugins["Shockwave Flash"]) {
plugin = 1;
	} else if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 && (navigator.userAgent.indexOf("Windows 95")>=0 || navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0)) {
if ( IEDetectObject("ShockwaveFlash.ShockwaveFlash") ) {
	plugin = 1;
}
i=21;
while (plugin == 0 && i > 0) {
	i--;
	if ( IEDetectObject("ShockwaveFlash.ShockwaveFlash."+i) ) {
plugin = 1;
	}
}
	}
	// output code
	if (plugin == 1) {
// write code for plugin
document.write("<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0\" width=\"" + width + "\" height=\""+height+"\">");
document.write("	<param name=\"movie\" value=\""+movie+"\">");
document.write("	<param name=\"flashvars\" value=\""+flashVars+"\">");
document.write("	<param name=\"quality\" value=\"high\">");
document.write("	<param name=\"wmode\" value=\"transparent\">");
if (allowscale) {
	document.write("	<param name=\"scale\" value=\"exactfit\">");
}
if (!allowtransparent) {
	document.write("	<param name=\"bgcolor\" value=\"#FFFFFF\">");
}
document.write("	<embed src=\""+movie+"\" quality=\"high\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" width=\""+width+"\" height=\""+height+"\" wmode=\"transparent\" flashVars=\""+flashVars+"\"></embed>");
document.write("</object>");
	} else if (alternative != undefined) {
// no plugin, write alternative
document.write(alternative);
	}
}
function IEDetectObject(ClassID)
{
	result = false;
	document.write('<SCRIPT LANGUAGE=VBScript\> \n');
	document.write('on error resume next \n');
	document.write('result = IsObject(CreateObject("' + ClassID + '")) \n');
	document.write('</SCRIPT\> \n');
	return result;
}