<param name=quality value=high><embed src=''"&codetext&"'' quality=high pluginspage=''http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'' type=''application/x-shockwave-flash'' width=''500'' height=''500''>",1,1,1)
cText=replace(cText,"<object classid=''clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'' codebase=''http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0'' width=''500'' height=''500''><param name=movie value=''"&codetext&"''><param name=quality value=high><embed src=''"&codetext&"'' quality=high pluginspage=''http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'' type=''application/x-shockwave-flash'' width=''500'' height=''500''>"&"[/swf]","<object classid=''clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'' codebase=''http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0'' width=''500'' height=''500''><param name=movie value=''"&codetext&"''><param name=quality value=high><embed src=''"&codetext&"'' quality=high pluginspage=''http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'' type=''application/x-shockwave-flash'' width=''500'' height=''500''>"&"</embed></object>",1,1,1)
end select
loop
Convert=cText
end function
