Function CheckPlugin()
	On Error Resume Next
	Set FL = CreateObject("ShockwaveFlash.ShockwaveFlash")
	If IsObject(FL) Then
		If FL.FlashVersion >= 327680 Then
			document.write("")
		Else
			document.write "Bilgisayarınızda Macromedia Flash Player 6 olması gerekmektedir! Ücretsiz yüklemek için tıklayınız.&nbsp;&nbsp;<a href='http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash&promoid=BIO'><img src=http://www.elearningsolutions.net/ideaLMS/images/flashplayer.gif border='0' ></a>"			
		End If
	Else
		document.write("Bilgisayarınızda Macromedia Flash Player yüklü değil! Ücretsiz yüklemek için tıklayınız.&nbsp;&nbsp;&nbsp;<a href='http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash&promoid=BIO'><img src=images/get_flash_player1.gif border='0' ></a>")		
	End If
End Function
CheckPlugin()