<%@ LANGUAGE="VBScript" %>
<% start_time = Time %>
<%
Run=CInt(Request("run"))
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd_repl
SQLStmt = " select max(lx.log_date) log_date,max(lx.action) action,max(lx.text) user_comment, "
SQLStmt = SQLStmt & " min(nvl(lx.operator,'')) operator1,max(nvl(lx.operator,'')) operator2, "
SQLStmt = SQLStmt & " to_char(max(lx.log_date),'MM/DD/YYYY') ldate, "
SQLStmt = SQLStmt & " to_char(max(lx.log_date),'MM/DD/YYYY HH24:MI:SS') ddate from "
SQLStmt = SQLStmt & " (select le.logid,le.LOG_DATE,le.ACTION,lc.TEXT,lo.operator "
SQLStmt = SQLStmt & " from phoffline.log_entries le,phoffline.run_numbers rn,phoffline.log_comments lc, "
SQLStmt = SQLStmt & " phoffline.log_operators lo "
SQLStmt = SQLStmt & " where le.logid=rn.logid and lc.logid(+)=le.logid "
SQLStmt = SQLStmt & " and lo.logid(+)=le.logid "
SQLStmt = SQLStmt & " and rn.run=" & run & ") lx "
SQLStmt = SQLStmt & " group by lx.logid order by max(lx.log_date) "
' response.write(SQLStmt)
Set RS = Connection.Execute(SQLStmt)
%>
Run Details
Details of Run <%=run%>
Log Date
Action
Operator
Comment
<%
Do While Not RS.EoF
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=""
End If
If Not IsNull(RS("user_comment")) Then
comments=CStr(RS("user_comment"))
Else
comments=""
End If
commentsbr= Replace(comments,Chr(13) & Chr(10)," ",1,-1,1)
%>