on error resume next

If MSDetect = true Then
	For i = 2 to 6
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
		Else
			flashinstalled = 2
			flashversion = i
		End If
	Next
End If

If flashinstalled = 0 Then
	flashinstalled = 1
End If

'ACTIONS
If flashinstalled = 1 Then
	document.write("<img src='images/graphics/header_left.jpg'/>")
Else
	document.write("<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='281' height='106'>")
	document.write("<param name=movie value='flash/webcastlogo.swf'>")
	document.write("<param name=quality value=high>")
	document.write("<embed src='flash/webcastlogo.swf' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='281' height='106'></embed>")
	document.write(" ")
	document.write("</object>")
End If