on error resume next
If weblog_MSDetect = "true" Then
 For i = 2 to 15
  If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
  Else
   weblog_flash = i
  End If
 Next

 If(IsObject(CreateObject("rmocx.RealPlayer G2 Control.1"))) Then
  weblog_real="Y"
 End If
 If(IsObject(CreateObject("PDF.PdfCtrl.5"))) Then
  weblog_acro="Y"
 End If
 If(IsObject(CreateObject("MediaPlayer.MediaPlayer.1"))) Then
  weblog_mplay="Y"
 End If
 If(IsObject(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1"))) Then
  weblog_qtplay="Y"
 End If

End If

If weblog_flash = "U" Then
 weblog_flash = "N"
End If