<%@ LANGUAGE="VBScript" %> <% If IsEmpty(Request("days")) Then days=1 Else days=CInt(Request("days"))-1 If days<0 Then days=0 End If End If Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd_repl SQLStmtx = "select to_char(sysdate,'MM/DD/YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name " ' response.write(SQLStmtx & "
" ) Set RSx = Connection.Execute(SQLStmtx) If Not RSx.EOF Then select case CStr(RSx("global_name")) case "PHDB.WORLD" dbname="BNL" case "ORACLE.WORLD" dbname="Chemistry" case "KRPHOBOS.WORLD" dbname="Krakow" case "ROCHESTER.WORLD" dbname="Rochester" end select Else dbname="Undefined Database" End If ddate=CStr(RSx("ddate")) ttime=CStr(RSx("ttime")) Set RSx=nothing SQLStmt = " select to_char(max(le.log_date),'MM/DD/YYYY') ldate,to_char(max(le.log_date),'DD-MON-YYYY HH24:MI:SS') ddate, max(le.logid) logidd, " SQLStmt = SQLStmt & " max(le.log_date) log_date_s, max(le.action) action,max(lc.text) user_comment,min(lo.operator) operator1,max(operator) operator2 " SQLStmt = SQLStmt & " FROM phoffline.log_entries le, phoffline.log_comments lc,phoffline.log_operators lo " SQLStmt = SQLStmt & " where lc.logid(+)=le.logid and lo.logid(+)=le.logid " SQLStmt = SQLStmt & " and (le.action='SHIFT_COMMENT' or le.action='LOGBOOK_PICTURE') " SQLStmt = SQLStmt & " and le.log_date>to_date(to_char(sysdate,'DD-MON-YYYY'),'DD-MON-YYYY')-" & days SQLStmt = SQLStmt & " group by le.logid " SQLStmt = SQLStmt & " order by log_date_s desc " ' ' response.write(SQLStmt & "
" ) ' Set RS = Connection.Execute(SQLStmt) %> Shift Logbook
<%=dbname%> Online Logbook, on <%=ddate%> at <%=ttime%>
Search
<% Do While Not RS.EoF ddate=(date-datevalue(CStr(RS("ldate")))) If ddate=0 Then rcolor="#BEBE7C" Elseif ddate=1 Then rcolor="#AEBEEE" Else rcolor="#FFFFFF" End if If Not IsNull(RS("operator1")) Then operator=CStr(RS("operator1")) If Not RS("operator2")=RS("operator1") Then operator=operator & " and " & RS("operator2") End If Else operator="Unknown" End If If Not IsNull(RS("user_comment")) Then comments=CStr(RS("user_comment")) commentsbr= Replace(comments,Chr(13) & Chr(10),"
",1,-1,1) Else comments="" commentsbr="" End If If RS("action")="BEGIN_SHIFT_COMMENT" Then ccolor="#66FF33" ccomment="Begin" Elseif RS("action")="SHIFT_COMMENT" Then ccolor="#FFFFFF" ccomment="" Elseif RS("action")="END_SHIFT_COMMENT" Then ccolor="#FF3333" ccomment="End" Else ccolor="#FFFFFF" ccomment="" End If %> <% RS.MoveNext Loop %>
  Log Date

Comments
<%=ccomment%>   <%= response.write(RS("ddate") & "
" & operator) %>  		 <%= commentsbr %> <% If RS("action")="LOGBOOK_PICTURE" Then response.write(" ") response.write(" ") End If %>  
<% Set RS=nothing Connection.Close Set Connection=nothing %>