<%@ Language=VBScript %><% option explicit %> <% DIM ScreenWidth, ScreenHeight DIM timeout DIM gen_parent, gen_child DIM msg '-- for errors DIM action DIM stat_pop, stat_growth, stat_dist_avg, stat_dist_max, stat_dist_min DIM stat_A_var, stat_B_var '' extend the timeout to allow for long files timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" Server.ScriptTimeout = 1200 ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") IF Request.QueryString("Submitted") = "true" THEN stat_pop = Trim(Request.Form("stat_pop")) stat_growth = Trim(Request.Form("stat_growth")) stat_dist_avg = Trim(Request.Form("stat_dist_avg")) stat_dist_max = Trim(Request.Form("stat_dist_max")) stat_dist_min = Trim(Request.Form("stat_dist_min")) stat_A_var = Trim(Request.Form("stat_A_var")) stat_B_var = Trim(Request.Form("stat_B_var")) Response.Cookies("Humble")("stat_pop")=stat_pop Response.Cookies("Humble")("stat_growth")=stat_growth Response.Cookies("Humble")("stat_dist_avg")=stat_dist_avg Response.Cookies("Humble")("stat_dist_max")=stat_dist_max Response.Cookies("Humble")("stat_dist_min")=stat_dist_min Response.Cookies("Humble")("stat_A_var")=stat_A_var Response.Cookies("Humble")("stat_B_var")=stat_B_var Response.Redirect "toc_top.htm" ' msg = " *** " & opt_A & "," & opt_B & "," & choice_1 & " ***" END IF '---*** Request.QueryString("Submitted") ***------------------------ action = "in_Stats.asp?submitted=true" %>


Selecting the statistical measures to be reported for each generation

> <% IF Len(msg) > 0 THEN %> <% END IF %>

Please select the measures by checking the box(es)

<%=msg%>
			Population size relative to the limit
			Population growth
			distance relative to the optimum
			maximum distance
			minimum distance
			Variance in attribute A
			Variance in attribute B

Future: <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>