<%@ LANGUAGE="VBScript" %>
<%
Run=CInt(Request("run"))
Sequence=CInt(Request("sequence"))
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = " select to_char(le.LOG_DATE,'MM/DD/YYYY HH24:MI:SS') ddate,la.description "
SQLStmt = SQLStmt & " from phoffline.log_entries le, "
SQLStmt = SQLStmt & " phoffline.runseq_numbers rsn,phoffline.log_actions la "
SQLStmt = SQLStmt & " where le.logid=rsn.logid "
SQLStmt = SQLStmt & " and le.action=la.action "
SQLStmt = SQLStmt & " and rsn.run=" & CStr(run)
SQLStmt = SQLStmt & " and rsn.sequence=" & CStr(sequence)
SQLStmt = SQLStmt & " order by le.log_date "
' response.write(SQLStmt)
Set RS = Connection.Execute(SQLStmt)
%>
Raw Sequence Details
Details of Run <%=run%> Sequence <%=sequence%>
| Action |
Log Date |
<%
Do While Not RS.EoF
%>
| <%= RS("Description") %>
|
<%= RS("ddate") %>
|
<%
RS.MoveNext
Loop
%>
<%
Connection.Close
%>