<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% DIM ScreenWidth, ScreenHeight DIM timeout DIM ownername DIM Tx 'TO joint DIM Ty 'TO joint DIM Fx 'FROM joint DIM Fy 'FROM joint DIM Min_PS_fy, Min_PS_ty, Min_PS_Y 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 distance, direction, level DIM diam, colour '' extend the timeout to allow for long files timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" Server.ScriptTimeout = 1200 CS_1 = "DSN=f_humble" SID = Request.Cookies("Humble")("SID") IF SID > 0 THEN Q_0 = "SELECT * FROM Audience WHERE SID=" & SID ' Response.Write Q_0 & "
" SET RS_0 = Server.CreateObject("ADODB.Recordset") RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText IF RS_0.EOF THEN Response.Redirect("http:../help/session.htm") END IF ScreenWidth = RS_0.Fields("ScreenWidth") ScreenHeight = RS_0.Fields("ScreenHeight") direction = RS_0.Fields("direction") level = RS_0.Fields("level") distance = RS_0.Fields("distance") ELSE ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") direction = 0 level = 0 distance = 1000 END IF ownername = "Skelly_body" ' 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) %> <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>