Superficie e volume di un cono

Questo semplice script permette di calcolare il volume e la superficie di un cono:

<%
function cono(h,r,a)
dim pi
pi = 4atn(1) 
cono = "Superficie cono : " &amp; pira + pi(r^2)
cono = cono &amp; "<br>Volume cono : " &amp; 
(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)
%>