on error resume next
GotFlash=False
  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash.6")
  if (IsObject(swControl)) then
		 swVersion = mid(swControl.GetVariable("$version"),5,2)
		 if right(swVersion,1) = "," then swVersion=left(swVersion,1)
	 	 if swVersion >= 6 then GotFlash = True 
		
  End if
If GotFlash = True  Then
document.write "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""360"" height=""270"" id=""flashmovie"" ALIGN=""""><PARAM NAME=movie VALUE=""/flash/before_after.swf""><PARAM NAME=loop VALUE=true><PARAM NAME=quality VALUE=high><PARAM NAME=bgcolor VALUE=""#FFFFFF""><param name=""wmode"" value=""transparent""></object>"
End If