<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt0 = "select LOGDATE,OPERATOR,LOCATION,ROWID from ASSEMBLY.ASM_HYBRID_LOG " SQLStmt0 = SQLStmt0 & " where LOGDATE=" SQLStmt0 = SQLStmt0 & "(select max(ah.LOGDATE) from ASSEMBLY.ASM_HYBRID_LOG ah " SQLStmt0 = SQLStmt0 & "where ah.ACTION='"+Request("REQ_ACTION")+"' and ah.HYBRID_ID='"+Request("REQ_HYBRID_ID")+"')" Set RS0 = Connection.Execute(SQLStmt0) If Not RS0.EoF Then SQLStmt1 = "select aml.DESCRIPTION,am.MEASUREMENT_VALUE,aml.UNITS from ASSEMBLY.ASM_HYBRID_LOG ahl, ASSEMBLY.ASM_MEASUREMENT am, ASSEMBLY.ASM_MEASUREMENT_LIST aml " SQLStmt1 = SQLStmt1 & " where ahl.LOGDATE=am.STARTDATE and am.MEASUREMENT_ID=aml.MEASUREMENT_ID " SQLStmt1 = SQLStmt1 & " and ahl.ROWID='" & CStr(RS0("ROWID")) & "'" Set RS1 = Connection.Execute(SQLStmt1) %> View various assembly-related measurements

HYBRID ID : <%= Request("REQ_HYBRID_ID")%>

<% Do While Not RS1.EOF %> <% RS1.MoveNext Loop %>
Date Operator Location Measurement Result
<% response.write Cstr(RS0("LOGDATE")) %> <% 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 %>