<%@ Language=VBScript %><% option explicit %>
<% Response.Buffer = FALSE %>
<%
'--- general ---
DIM ScreenWidth, ScreenHeight
DIM timeout
DIM msg '-- for errors
DIM CS_1 'Connection String
DIM SID 'sessionID
DIM RS_0, RS_1 'RecordSet
DIM Q_0, Q_1 'SQL query against the db
DIM RWline1, RWline2, RWline3
DIM iCounter 'counts through rows - records in the db and table
DIM par_name, par_before, par_after, par_comment, par_ID 'parameter name, value, comment, ID
DIM par_values, par_keyTimes
DIM check_ID 'only update if the box is checked
DIM form_check 'form params of the form c1; 'c'&par_ID
DIM form_before 'form params of the form b1 and b2; 'b'&par_ID
DIM form_after 'form params of the form a1 and a2; 'a'&par_ID
DIM form_values 'form: v1, v2
DIM form_keyTimes 'form: k1, k2
' use mm as dimensions, using the same scale for horizontal and vertical
' use degrees as measures for angles (rather than radians) - familiarity
' use % where a relative value is required
'--------------
'' 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=action"
Q_0 = "SELECT * FROM joint_angle_move"
' Response.Write Q_0 & " "
SET RS_0 = Server.CreateObject("ADODB.Recordset")
RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText
IF NOT Request.QueryString("Update") = "true" THEN
%>
A general model of simple action from an information processing perspective
<% '---------------------------------------------------------------------
ELSE
iCounter = 0
RS_0.MoveFirst
DO UNTIL RS_0.EOF
par_ID = RS_0.Fields("ID")
form_check = "c" & par_ID
' form_before = "b" & par_ID
' form_after = "a" & par_ID
form_values = "v" & par_ID
form_keyTimes = "k" & par_ID
check_ID = Trim(Request.Form(form_check))
par_values = Trim(Request.Form(form_values))
par_keyTimes = Trim(Request.Form(form_keyTimes))
IF check_ID = "yes" THEN
par_name = RS_0.Fields("param")
RS_0.Fields("values") = par_values
RS_0.Fields("keyTimes") = par_keyTimes
RS_0.Update
ELSE
END IF
RS_0.MoveNext
LOOP
Response.Redirect("toc_top.htm")
END IF
%>
