on error resume next
Dim checkForFlash6
checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
Sub doFlashVB()
If checkForFlash6 = True Then
document.write("")
Else
document.write("")
End If
End Sub
Sub doFlashVBGallery
If checkForFlash6 = True Then
document.write("")
Else
document.write("")
End If
End Sub
")
End If
End Sub
Sub doFlashVBGallery
If checkForFlash6 = True Then
document.write("")
Else
document.write("