<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
%>
Complete FEC List
Complete FEC List (as of NOW)
Back
to Configuration Page
<%
SQLStmt = " select fall.sdate,fall.fec_num fec_num,fnow.fec_num fec_active from "
SQLStmt = SQLStmt & " (select to_char(max(startdate),'MM/DD/YYYY HH24:MI:SS') sdate,max(abs(fec_number)) fec_num "
SQLStmt = SQLStmt & " from assembly.fec_config where startdate<=sysdate "
SQLStmt = SQLStmt & " group by abs(fec_number)) fall, "
SQLStmt = SQLStmt & " (select max(abs(fec_number)) fec_num "
SQLStmt = SQLStmt & " from assembly.fec_hardware_now "
SQLStmt = SQLStmt & " group by abs(fec_number)) fnow "
SQLStmt = SQLStmt & " where fnow.fec_num(+)=fall.fec_num "
SQLStmt = SQLStmt & " order by fall.fec_num "
Set RS = Connection.Execute(SQLStmt)
' response.write(SQLStmt)
response.write("" & vbCrLf)
response.write(" " & vbCrLf)
response.write("" & vbCrLf)
response.write("| FEC # | " & vbCrLf)
response.write("Last Configuration Change | " & vbCrLf)
response.write("Current Status | " & vbCrLf)
response.write("
")
Do While Not RS.EOF
response.write(" FEC # " & CStr(RS("FEC_NUM")) & " | " & vbCrLf)
response.write(" " & CStr(RS("sdate")) & " | " & vbCrLf)
If Not IsNull(RS("fec_active")) Then
response.write(" " & "On" & " | " & vbCrLf)
Else
response.write(" " & "Off" & " | " & vbCrLf)
End If
response.write(" " & vbCrLf)
RS.Movenext
Loop
response.write("
" & vbCrLf)
response.write(" " & vbCrLf)
Connection.Close %>