// check for Flash on IE 
		       on error resume next 
		       //set a variable to hold the detection result 
		       Dim checkForFlash6   
			   Dim text
			
			   
				text = "<div class=""text"" style=""padding : 10px 10px 0 10px"">In order to view this page properly you are required to have the latest version of &copy;Macromedia Flash.<br>"
		  		text = text & "Please click <a href=""http://www.macromedia.com/go/getflashplayer"">here</a> to download the latest version. Thank you.</div>"
		       //assign a boolean value 
		       checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))) 
		       if checkForFlash6 = true then 
		          document.write("<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='142' HEIGHT='269' id='kino' ALIGN=''><PARAM NAME=movie VALUE='../flash/kino.swf'><PARAM NAME=quality VALUE=high><PARAM NAME=bgcolor VALUE=#FFFFFF><EMBED src='../flash/kino.swf' quality=high bgcolor=#FFFFFF  WIDTH='142' HEIGHT='269' NAME='kino' ALIGN='' TYPE='application/x-shockwave-flash' PLUGINSPAGE='http://www.macromedia.com/go/getflashplayer'></EMBED></OBJECT>") 
		       else 
		          document.write(text) 
		       end If