<%@ Language=VBScript%> <%Option Explicit%> <%Response.buffer=true%> Conversion Results

Feet Conversion

<% Dim intInches, sngFeet Const conConvFactor = 12 'Change the entry on the form to an integer intInches = CInt(Request.Form("txtInches")) 'Convert feet to inches sngFeet = round((intInches / conConvFactor),1) 'Write out the result Response.Write("There are " & sngFeet & " feet in " & intInches & " inches.") 'End the session Session.Abandon %>