'************************************
'	vb_flashDetect.vbs
'	 -> Detects installed FLASH version for IE
'************************************/
on error resume next

reqVersion = 5

If MSDetect = true Then
	For i = 2 to reqVersion
		If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
			flashinstalled = 2
			flashversion = i
		End If
	Next
End If

If flashinstalled = 0 Then
	flashinstalled = 1
End If

' Flash 5 or higher is required for the Flash site
'location.href = "html/default.aspx"
If flashinstalled = 0 or flashinstalled = 1 or flashversion < reqVersion Then
	location.href = "html/default.aspx"
Else
	location.href = "flash/default.aspx"
End If