<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Macromedia Flash Dispatcher -- a scriptable detector for Flash Player
'
'
' copyright (c) 2000 Macromedia, Inc.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Check for the Flash ActiveX control.
'
' This script will be ignored by browsers that do not support
' VBScript (although Microsoft Internet Explorer will warn the
' user that a script in an unsupported language has been
' encountered if the user has checked "Show unsupported scripting
' language errors" in Preferences->Web Browser->Web Content).
'
' This technique due to Jeff Brown and Rafael M. Muņoz of
' Microsoft Corporation. Version testing adapted from Macromedia
' Flash Technical Note #12853.
Private i, x
On Error Resume Next
MM_FlashControlInstalled = False
For i = 6 To 1 Step -1
Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
MM_FlashControlInstalled = IsObject(x)
If (MM_FlashControlInstalled) Then
MM_FlashControlVersion = CStr(i)
Exit For
End If
Next
%>
Focus Enterprises, Inc.
660 Morthland Drive, Suite A · Valparaiso, IN 46385
219-464-4600 · 219-465-0156 (Fax)
http://www.focushotels.com/
You have Macromedia Flash version <% response.write MM_FlashControlVersion %> installed on your computer system.
<%
if (MM_FlashControlVersion >= 5) then
else
%>
Your computer system needs version 5 or later of Macromedia Flash to take advantage of the graphical version of the Focus
Enterprises website. It is strongly recommended that you download and install the latest version of the Macromedia Flash Player by clicking here as your web browsing experience will not only be more exciting here but on other websites as well.
<%
end if
%>