' VBScript File
Function CheckForFlash(ByVal pValue, ByVal eSrc, ByVal Image, ByVal wid, ByVal hei, ByVal elementID, ByVal bgValue)
    Dim str 
    str = "<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,47,0"" id=""Flash"" width="""& wid &""" height="""& hei &""">" & _
    "<param name=""movie"" value="""+ pValue +""" />" & _
    "<param name=""quality"" value=""high"" />" & _
    "<param NAME=""wmode"" VALUE="""" />" & _
    "<param name=""bgcolor"" value="""+ bgValue +""" />" & _
    "<EMBED src="""& eSrc &""" quality=""high"" bgcolor="""+bgValue+""" WIDTH="""& wid &""" HEIGHT="""& hei &""" NAME=""HomeMov"" ALIGN="""" TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/go/getflashplayer"">" & _
    "</EMBED>" & _
    "</object>"
    On Error Resume Next
    if (navigator.appName = "Microsoft Internet Explorer")  then
        if (isObject(createObject("shockwaveFlash.shockwaveFlash.3")) or isObject(createObject("shockwaveFlash.shockwaveFlash.4")) or isObject(createObject("shockwaveFlash.shockwaveFlash.5"))) then
            document.getElementById(elementID).innerHTML = str                 
        else
           document.getElementById(elementID).innerHTML = "<img src="""& Image &""" alt="""">"
        end if
     end if
     if Err.Number <> 0 then
	document.getElementById(elementID).innerHTML = "<img src="""& Image &""" alt="""">"
     End if
End Function