Function doFlashActiveXCheck(version) 
	On error resume next
	Set doFlashActiveXCheck = false
	Set flashObject = CreateObject("ShockwaveFlash.ShockwaveFlash." & version)
	If IsObject(flashObject) Then
		doFlashActiveXCheck = true
	End If
End Function

Function doRealActiveXCheck
	On error resume next
	Set doRealActiveXCheck = false
	Set realObject = CreateObject("rmocx.RealPlayer G2 Control")
	If IsObject(realObject) Then
		doRealActiveXCheck = true
	End If
End Function