<%@ 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 '' 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") CS_1 = "DSN=evolve" gen_parent = 0 gen_child = 2 Q_0 = "SELECT * FROM gen_" & gen_parent ' Response.Write Q_0 & "
" SET RS_0 = Server.CreateObject("ADODB.Recordset") RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText ' msg = " *** found data *** " IF RS_0.EOF THEN msg = " *** no data gen_parent=" & gen_parent & " *** " ' Response.Redirect("http:/help/session.htm") END IF '-- main table with log data Q_1 = "SELECT * FROM gen_" & gen_child ' Response.Write Q_1 & "
" '--causes SVG error, see with copy SVG SET RS_1 = Server.CreateObject("ADODB.Recordset") RS_1.Open Q_1, CS_1, adOpenStatic, adLockOptimistic, adCmdText IF RS_1.EOF THEN msg = msg & " *** no data gen_child=" & gen_child & " *** " END IF '-- population -- ' RS_1.MoveLast ' RS_1.MoveFirst ' 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 generations: ur_parent=<%=gen_parent%> child=<%=gen_child%> Attribute A Attribute B <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> <%'----------------------------------------------------------------------%> <% Response.Write msg RWline1 = " " & vbCrLf RS_0.MoveFirst DO UNTIL RS_0.EOF x1 = RS_0.Fields("A") y1 = 1000 - RS_0.Fields("B") IF NOT IsNull( y1) THEN Response.Write RWline1 & x1 & RWline2 & y1 & RWline3 END IF RS_0.MoveNext LOOP %> <% Response.Write msg RWline1 = " " & vbCrLf RS_1.MoveFirst DO UNTIL RS_1.EOF x1 = RS_1.Fields("A") y1 = 1000 - RS_1.Fields("B") IF NOT IsNull( y1) THEN Response.Write RWline1 & x1 & RWline2 & y1 & RWline3 END IF RS_1.MoveNext LOOP %> <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>