Superficie e volume di una sfera

Grazie al seguente script è possibile calcolare il volume e la superficie di una sfera di raggio variabile.

<%

function sfera(r)

dim pi

pi = 4*atn(1)

sfera = "Superficie della sfera : " & 4*pi*(r^2)

sfera = sfera & "<br> Volume sfera" & ( 4/3 ) * pi * ( r^3)

end function

dim dblRaggio

dblRaggio = 2

response.write sfera(dblraggio)

%>