<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select action,description,action_order,action_type,action_group from phoffline.log_actions " SQLStmt = SQLStmt & " order by action_type,action_order" Set RS = Connection.Execute(SQLStmt) %> Logbook Action Codes

Action Codes for Logbook/Data Tracking activities recorded in LOG_ENTRIES table

<% old_type=-1 Do While Not RS.EOF If old_type<>CInt(RS("Action_Type")) Then If old_type<>-1 Then Response.write("") Response.write("") Response.write("

") End If %>

<% old_type=CInt(RS("Action_Type")) End If %> <% RS.Movenext Loop Connection.Close %>
Action Description Action Order Action Type Action Group
<%=CStr(RS("Action")) %> <% If Not IsNull(RS("Description")) Then Response.write(CStr(RS("Description"))) Else Response.write("") End if %> <% If Not IsNull(RS("Action_Order")) Then Response.write(CInt(RS("Action_Order"))) Else Response.write("") End if %> <% If Not IsNull(RS("Action_Type")) Then Select Case CInt(RS("Action_Type")) Case 0 Response.write("Logbook") Case 1 Response.write("Run Tracking") Case 2 Response.write("Sequence Tracking") Case 3 Response.write("Job Submissions") Case 4 Response.write("Monte Carlo") Case Else Response.write("Unknown") End Select Else Response.write("Undefined") End if %> <% If Not IsNull(RS("Action_Group")) Then Response.write((RS("Action_Group"))) Else Response.write("") End if %>