%@ Language=VBScript %>
Infiltration Treatment Cost Analysis
<% sessid1=session("agpm") sessid2=session("cost") sessid3=session("percent") if isNumeric(Request.Form("agpm")) then Session("agpm") = Request.Form("agpm") if isNumeric(Request.Form("cost")) then Session("cost") = Request.Form("cost") if isNumeric(Request.Form("percent")) then Session("percent") = Request.Form("percent") Session("total") = Session("agpm")* 60 Session("total1") = Session("total")* 24 Session("total2") = Session("total1")* 365 Session("newcent") = Session("percent") / 100 Session("total3") = session("total2") / 1000 * session("cost") * session("newcent")%> Based on your input of <%response.write ((session("AGPM") & " GPM"))%> <%response.write(", ")%> <%response.write(FormatCurrency(Session("cost")) & " average cost to")%> <%response.write(" 'TREAT' ")%> <%response.write(" and a ")%> <%response.write ((session("percent") & " percent active infiltration time:"))%>