<%@ 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, ahl.ACTION, DESCRIPTION, ACTION_ORDER, CONFIG, ahl.COMMENTS, WURST_ID, ahl.ROWID from ASSEMBLY.ASM_HYBRID_LOG ahl, ASSEMBLY.ASM_HYBRID_ACTION aha where HYBRID_ID='"+Request("REQ_HYBRID_ID")+"' and ahl.ACTION=aha.ACTION order by LOGDATE" Set RS0 = Connection.Execute(SQLStmt0) %> Log Table Entries for Hybrid

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

<% Do While Not RS0.EOF %> <% RS0.MoveNext Loop %>
Date Operator Location ACTION STATUS Comments
<% response.write Cstr(RS0("LDATE")) %> <% response.write Cstr(RS0("OPERATOR")) %> <% response.write Cstr(RS0("LOCATION")) %> <% response.write Cstr(RS0("DESCRIPTION")) %> <% If Not IsNull(RS0("WURST_ID")) Then If Left(RS0("action"),3)="M_s" And CStr(RS0("action"))<>"M_spec" Then Response.write(" " & CStr(RS0("CONFIG")) & " ") Else%><%Response.Write ("Wurst " & Cstr(RS0("WURST_ID")))%>: ">P, ">N, ">G, ">C, ">V <% End If Else Select Case Cstr(RS0("CONFIG")) Case "NOT OK" %> <% response.write Cstr(RS0("CONFIG"))%> <% Case "OK" %> <% response.write Cstr(RS0("CONFIG"))%> <% Case Else response.write "N/A" End Select End If %> <% If Isnull(RS0("COMMENTS")) Then Response.write("N/A") Else Response.write(Cstr(RS0("COMMENTS"))) End If%>
<% Connection.Close %>