<%@ 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, nvl(LOCATION,'???') location, DESCRIPTION,CONFIG, aml.COMMENTS from ASSEMBLY.ASM_MODULE_LOG aml, ASSEMBLY.ASM_MODULE_ACTION ama where MODULE_ID='"+Request("REQ_MODULE_ID")+"' and aml.ACTION=ama.ACTION order by LOGDATE" Set RS0 = Connection.Execute(SQLStmt0) SQLStmt1 = "select ahl.HYBRID_ID, to_char(LOGDATE,'MM/DD/YYYY HH24:MI:SS') LDATE, OPERATOR, LOCATION, DESCRIPTION, CONFIG, ahl.ACTION,ahl.COMMENTS, WURST_ID, ahl.ROWID " SQLStmt1= SQLStmt1 & " from ASSEMBLY.ASM_HYBRID_LOG ahl, ASSEMBLY.ASM_HYBRID_ACTION aha,ASSEMBLY.ASM_HYBRID_BOND_ID ahbi " SQLStmt1= SQLStmt1 & " where ahl.ACTION=aha.ACTION and ahbi.HYBRID_ID=ahl.HYBRID_ID " SQLStmt1= SQLStmt1 & " and ahbi.MODULE_ID='"+Request("REQ_MODULE_ID")+"' order by ahbi.HYBRID_POS,ahl.HYBRID_ID,LOGDATE" Set RS1 = Connection.Execute(SQLStmt1) ' Response.write(SQLStmt1 & "
") %> Log Table Entries for Module

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

<% Do While Not RS0.EOF %> <% RS0.MoveNext Loop Set RS0=nothing %>
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")) %> <% 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 %> <% If Isnull(RS0("COMMENTS")) Then Response.write("N/A") Else Response.write(Cstr(RS0("COMMENTS"))) End If%>

<% hybrid_id_old="XXXXXXX" Do While Not RS1.EOF If CStr(RS1("HYBRID_ID"))<>hybrid_id_old Then If Not hybrid_id_old="XXXXXXX" Then ' finish previous table if need be Response.Write("") End If hybrid_id_old=CStr(RS1("HYBRID_ID")) %>

HYBRID ID : <%=hybrid_id_old%>

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