<!--
On Error  Resume Next
Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
On Error  goto 0
If IsObject(theObject) Then
If theObject.IsQuickTimeAvailable(0) Then   'Just check for file'
haveqt = true
End If
End If
// -->