<%@ 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
slocation=CStr(Request("location"))
SQLStmt = "select count(logdate) totnum from assembly.asm_hybrid_log"
Set RS_max = Connection.Execute(SQLStmt)
itot=CLng(RS_max("totnum"))
If irows>itot Then
irows=itot
End If
SQLStmt = "select hl.HYBRID_ID,to_char(hl.LOGDATE,'MM/DD/YYYY HH24:MI:SS') lldate,hl.OPERATOR,ha.DESCRIPTION,hl.COMMENTS, "
SQLStmt = SQLStmt & " to_char(hl.logdate,'MM/DD/YYYY') ldate "
SQLStmt = SQLStmt & " from assembly.asm_hybrid_log hl, assembly.asm_hybrid_action ha "
SQLStmt = SQLStmt & " where rownum<=" & Cstr(irows) & " and hl.action=ha.action "
If CStr(Request("location"))<>"" Then
SQLStmt = SQLStmt & " and hl.location='" & CStr(Request("location")) & "' "
End If
SQLStmt = SQLStmt & " order by logdate desc"
Set RS = Connection.Execute(SQLStmt)
%>
Hybrid Log
Log of activities with Hybrids, last <%=irows%> entries
Color Code:
Today
Yesterday
More than 1 day ago
Hybrid ID
Measurement Date
Operator
Action
Comment
<%
Do While Not RS.EoF
ddate=(date-datevalue(CStr(RS("ldate"))))
%>
