<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% DIM ScreenWidth, ScreenHeight DIM timeout DIM gen_parent, gen_child DIM x1, x2 'horizontal DIM y1, y2 'vertical DIM msg '-- for errors DIM CS_1 'Connection String DIM RS_0, Q_0, SID 'RecordSet, Query - for sessionID DIM RS_1, RS_2, RS_3, RS_4, RS_5 'RecordSet DIM Q_1, Q_2, Q_3, Q_4, Q_5 'SQL query against the db DIM RWline1, RWline2, RWline3 DIM opt_A, opt_B DIM V_1x, V_1y, V_2x, V_2y, V_3x, V_3y DIM V_1ax, V_1ay, V_1bx, V_1by, V_1cx, V_1cy DIM V_2ax, V_2ay, V_2bx, V_2by, V_2cx, V_2cy DIM V_3ax, V_3ay, V_3bx, V_3by, V_3cx, V_3cy DIM varyRange_x, varyRange_y '' 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") opt_A = Request.Cookies("Humble")("Opt_A") opt_B = Request.Cookies("Humble")("Opt_B") CS_1 = "DSN=evolve" gen_parent = 1 gen_child = 2 ' start random number generator RANDOMIZE V_1x = 800 V_1y = 200 V_2x = 500 V_2y = 500 V_3x = 200 V_3y = 800 varyRange_x = 50 varyRange_y = 50 V_1ax = ROUND( V_1x - varyRange_x/2 + RND*varyRange_x) V_1ay = ROUND( V_1y - varyRange_y/2 + RND*varyRange_y) V_1bx = ROUND( V_1x - varyRange_x/2 + RND*varyRange_x) V_1by = ROUND( V_1y - varyRange_y/2 + RND*varyRange_y) V_1cx = ROUND( V_1x - varyRange_x/2 + RND*varyRange_x) V_1cy = ROUND( V_1y - varyRange_y/2 + RND*varyRange_y) V_2ax = ROUND( V_2x - varyRange_x/2 + RND*varyRange_x) V_2ay = ROUND( V_2y - varyRange_y/2 + RND*varyRange_y) V_2bx = ROUND( V_2x - varyRange_x/2 + RND*varyRange_x) V_2by = ROUND( V_2y - varyRange_y/2 + RND*varyRange_y) V_2cx = ROUND( V_2x - varyRange_x/2 + RND*varyRange_x) V_2cy = ROUND( V_2y - varyRange_y/2 + RND*varyRange_y) V_3ax = ROUND( V_3x - varyRange_x/2 + RND*varyRange_x) V_3ay = ROUND( V_3y - varyRange_y/2 + RND*varyRange_y) V_3bx = ROUND( V_3x - varyRange_x/2 + RND*varyRange_x) V_3by = ROUND( V_3y - varyRange_y/2 + RND*varyRange_y) V_3cx = ROUND( V_3x - varyRange_x/2 + RND*varyRange_x) V_3cy = ROUND( V_3y - varyRange_y/2 + RND*varyRange_y) ' set it up for a graph bounding box of 2000 horizontal by 1000 vertical ' the viewBox has to be larger, to allow for left (and right?) parameter stuff ' the graph should have 20 by 10 internal dividers (grid pattern) %> 100 90 80 70 60 50 40 30 20 10 0 0 10 20 30 40 50 60 70 80 90 100 3 children each, with variability: different each time you reload the page parent children Attribute A Attribute B <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>