Sub checkflash()

	on error resume next 
	Dim checkForFlash7 
	checkForFlash7 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7"))) 

	if checkForFlash7 = false then 
		Dim ans
		ans = msgbox("Content on this page requires a newer version of Macromedia Flash Player. Do you want to download it now?",vbYesNo)
		if ans = vbYes then
			window.location = "http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash"
		end if
	end If 
End Sub