Superficie e volume di un cono

Grazie al seguente script è possibile calcolare il volume e la superficie di un cono.

<%

function cono(h,r,a)

dim pi

pi = 4*atn(1)

cono = "Superficie cono : " & pi*r*a + pi*(r^2)

cono = cono & "<br>Volume cono : " & (1/3)*pi*(r^2)*h

end function

dim dblAltezza

dblAltezza = 10.65

dim dblRaggio

dblRaggio = 5.64

dim dblApotema

dblApotema = 9.45

response.write cono(dblAltezza,dblRaggio,dblApotema)

%>