<%@ Language=VBScript%>
<%Option Explicit%>
<%Response.buffer=true%>
Calculate radius
Calculate area and circumference of a circle
<%
Dim radius, intArea, intRadius, intCircumference
Const conPi = 3.14159
'Change the entry on the form to an integer
intRadius = CInt(Request.Form("txtRadius"))
'Calculate Area of a circle
intArea = conPi*(intRadius*intRadius)
'Calculate Circumference of a circle
intCircumference = 2*conPi*intRadius
'Write out the result
Response.Write("Radius is " & intRadius & ".")
Response.Write("Area is " & intArea & ".")
Response.Write("Circumference is " & intCircumference & ".")
'End the session
Session.Abandon
%>