' ----- NetArchitects insertion flash procedure : v2.0 --------------------------------------------------------------------

function checkSecurity(url,param,width,height,version,id,alt)
	on error resume next
	var Flashmode

	FlashMode = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & version))

	If FlashMode = True Then
		call flash(url,param,width,height,version,id,alt)
	else
		call altflash(url,param,width,height,version,id,alt)
	end if
end function