<%@ 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_level, par_direction, par_twist 'parameter name, value, comment, ID
DIM par_comments
' 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 limb_Pose"
' Response.Write Q_0 & " "
SET RS_0 = Server.CreateObject("ADODB.Recordset")
RS_0.Open Q_0, CS_1, adOpenKeySet, adLockPessimistic, adCmdText
%>
A general model of simple action from an information processing perspective
