<%@ LANGUAGE="VBScript" %> <% start_time = Time %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd If Request("rows")="" Then irows=100 Else irows=CLng(Request("rows")) End If SQLStmt = "select count(logdate) totnum from assembly.asm_module_log" Set RS_max = Connection.Execute(SQLStmt) itot=CLng(RS_max("totnum")) If irows>itot Then irows=itot End If SQLStmt = "select ml.MODULE_ID,to_char(ml.LOGDATE,'MM/DD/YYYY HH24:MI:SS') lldate,ml.OPERATOR,ma.DESCRIPTION,ml.COMMENTS, " SQLStmt = SQLStmt & " to_char(ml.logdate,'MM/DD/YYYY') ldate " SQLStmt = SQLStmt & " from assembly.asm_module_log ml, assembly.asm_module_action ma " SQLStmt = SQLStmt & " where rownum<=" & Cstr(irows) & " and ml.action=ma.action order by ml.logdate desc" Set RS = Connection.Execute(SQLStmt) %> Module Log

Log of activities with Modules, last <%=irows%> entries

Color Code: Today Yesterday More than 1 day ago
<% Do While Not RS.EoF ddate=(date-datevalue(CStr(RS("ldate")))) %> <% If ddate=0 Then %> <% Elseif ddate=1 Then %> <% Else %> <% End If %> <% RS.MoveNext Loop %>
  Module ID Measurement Date Operator Action Comment
"><%= RS("MODULE_ID") %> <%= RS("Lldate") %> <%= RS("Operator") %> <%= RS("Description") %> <%= RS("Comments") %><%= RS("MODULE_ID") %> <%= RS("Lldate") %> <%= RS("Operator") %> <%= RS("Description") %> <%= RS("Comments") %><%= RS("MODULE_ID") %> <%= RS("Lldate") %> <%= RS("Operator") %> <%= RS("Description") %> <%= RS("Comments") %>
<% Connection.Close %>