<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt0 = "select to_char(LOGDATE,'MM/DD/YYYY HH24:MI:SS') LDATE,OPERATOR,LOCATION,ROWID from ASSEMBLY.ASM_MODULE_LOG " SQLStmt0 = SQLStmt0 & " where LOGDATE=" SQLStmt0 = SQLStmt0 & "(select max(aml.LOGDATE) from ASSEMBLY.ASM_MODULE_LOG aml " SQLStmt0 = SQLStmt0 & "where aml.ACTION='"+Request("REQ_ACTION")+"' and aml.MODULE_ID='"+Request("REQ_MODULE_ID")+"')" Set RS0 = Connection.Execute(SQLStmt0) If Not RS0.EoF Then SQLStmt1 = "select amml.DESCRIPTION,am.MEASUREMENT_VALUE,amml.UNITS from ASSEMBLY.ASM_MODULE_LOG aml, ASSEMBLY.ASM_MOD_MEASUREMENT am, ASSEMBLY.ASM_MOD_MEASUREMENT_LIST amml " SQLStmt1 = SQLStmt1 & " where aml.LOGDATE=am.STARTDATE and am.MEASUREMENT_ID=amml.MEASUREMENT_ID " SQLStmt1 = SQLStmt1 & " and aml.ROWID='" & CStr(RS0("ROWID")) & "'" Set RS1 = Connection.Execute(SQLStmt1) %> View various assembly-related measurements

MODULE ID : <%= Request("REQ_MODULE_ID")%>

<% Do While Not RS1.EOF %> <% RS1.MoveNext Loop %>
Date Operator Location Measurement Result
<% response.write Cstr(RS0("LDATE")) %> <% response.write Cstr(RS0("OPERATOR")) %> <% response.write Cstr(RS0("LOCATION")) %> <% response.write Cstr(RS1("DESCRIPTION")) %> <% response.write( Cstr(RS1("MEASUREMENT_VALUE")) & " [" & Cstr(RS1("UNITS")) & "]") %>
<% Else %>

No Data for this measurement

<% End If Connection.Close %>