<%@ LANGUAGE="VBScript" %> <% If InStr(Trim(Request.ServerVariables("SERVER_NAME")),"phobosch")<>0 Then image_link=rdserv & "/Detectors/ASP/DAQ/getimage_file.asp" Else image_link="getimage_file.asp" End If Response.Expires=0 Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead On Error Resume Next Connection.Open phdb_rd ' ' check if database is available ' %> <% If Err.Number=0 Then SQLStmt = " select to_char(max(le.log_date),'MM/DD/YYYY') ldate,to_char(max(le.log_date),'MM/DD HH24:MI') ddate, max(le.logid) logidd, " SQLStmt = SQLStmt & " max(le.log_date) log_date_s, max(le.action) action,max(lc.text) user_comment,min(substr(lo.firstname,1,1) || '.' || ' ' || lo.operator) operator1,max(substr(lo.firstname,1,1) || '.' || ' ' || lo.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>sysdate-2 " SQLStmt = SQLStmt & " group by le.logid " SQLStmt = SQLStmt & " order by log_date_s desc " ' ' response.write(SQLStmt & "
" ) ' Set RS = Connection.Execute(SQLStmt) %> <% If Not RS.EoF Then lentot=0 Do While (Not RS.EoF) and Lentot<10000 ddate=(date-datevalue(CStr(RS("ldate")))) If ddate=0 Then rcolor="#BEBE7C" Elseif ddate=1 Then rcolor="#AEBEEE" Else rcolor="#000000" End if If Not IsNull(RS("operator1")) Then operator=CStr(RS("operator1")) If Not RS("operator2")=RS("operator1") Then operator=operator & " & " & RS("operator2") End If Else operator="Unknown" End If If Not IsNull(RS("user_comment")) Then comments=CStr(RS("user_comment")) commentsbr= Replace(comments,"<","",1,-1,1) commentsbr= Replace(comments,">","",1,-1,1) commentsbr= Replace(comments,Chr(13) & Chr(10),"
",1,-1,1) Else comments="" commentsbr="" End If lentot=lentot+Len(commentsbr) %> <% RS.MoveNext Loop %> <% Else %> <% End If %>

<%= response.write(" (" & CStr(RS("ddate")) & " " & operator & ") ") %> <% If RS("action")="LOGBOOK_PICTURE" Then response.write(" ") commentsbr=Replace(commentsbr,"Picture:"," Picture: ",1,-1,1) Elseif RS("action")="UPDATE_DETSYSTEM" Then response.write("Ch. Det. Status: ") End If response.write(commentsbr) %>

No recent Logbook comments

<% Connection.Close End If ' opening database %>