' OptimaliQ Page Tag Phase 2
    ' concat info on plugins using MSIE-compatible code

    on error resume next

    'Flash
	For i = 2 to 10
		If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
		    ielist = ielist & "ShockwaveFlash." & i & ";"
		End If
	Next

    'Real player
    If IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")) then
	    ielist = ielist & "RealPlayer;"
	End If

    'Real player
    If IsObject(CreateObject("rmocx.RealPlayer G2 Control")) then
	    ielist = ielist & "RealPlayerG2;"
	End If

    'PDF
    If IsObject(CreateObject("Acrobat")) then
	    ielist = ielist & "Acrobat;"
	End If

    'PDF
	For i = 2 to 10
        If IsObject(CreateObject("Pdf.PdfCtrl.[" & i & "]")) then
		    ielist = ielist & "PdfCtrl." & i & ";"
		End If
	Next