<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' 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)

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 %> <% else %>
Flash Enabled Site Not Available
(recommended; requires a fast connection)
<% end if %>
<% if (MM_FlashControlVersion >= 5) then %>
Flash Enabled Site
(recommended; recommended for fast connections)

Non-Flash Enabled Site
(regular HTML page; for slower connections)