Obtain a Plot3D in webMathematica?

Hello friends

Can any body give me an example to represent a graphics 3D (using Plot3D) in webMathematica?

I copied the file Plot3D included in webMathemaica documentantion
(Basic Examples—Wolfram Language Documentation )

Live 3D Plotting , It worked some time ago (years) but now it does´t work

I realize at Basic Examples—Wolfram Language Documentation includes an example of Plot3D but a package called Cluster whose code is not shown is requiered .

Guillermo

The function included in Basic Examples—Wolfram Language Documentation for Live 3D Plotting is

MSPLive3D[Plot3D[fun, {x, x0, x1}, {y, y0, y1}, PlotPoints ->pts]] 

I realize that using MSPShow instead of MSPLive3D the example works but the graphics can not be moved.
I suppose that MSPLive3D requires some add in the browser (Flash?) and this add is not allow in the new version of the browsers.

Can someone confirm it?