<%@ 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_value, par_comment, par_ID 'parameter name, value, comment, ID
DIM check_ID 'only update if the box is checked
DIM form_check 'form params of the form c1 and v1; c2 and v2; 'c'&par_ID
DIM form_value 'form params of the form c1 and v1; c2 and v2; 'c'&par_ID
' 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 position_Pose"
' 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_value = "v" & par_ID
check_ID = Trim(Request.Form(form_check))
par_value = Trim(Request.Form(form_value))
IF check_ID = "yes" THEN
par_name = RS_0.Fields("param")
' RS_0.Fields("value") = par_value
' RS_0.Update
ELSE
END IF
RS_0.MoveNext
LOOP
Response.Redirect("toc_top.htm")
END IF
%>