'Flash Fonksiyonları

Function CheckFlashVersion(Version)
	Dim checkForFlash
	On Error Resume Next
	checkForFlash = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & Version)))
	if checkForFlash = false then
		window.location.href="noflash.html"
	end If
End Function