<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd timedate=Request("timedate") If timedate="" Then SQLStmt = " select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') timedate from dual " ' response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) timedate = CStr(RS("timedate")) Set RS=nothing End If If Not IsDate(timedate) Then message="Wrong Time/Date format " & timedate %> <% End If ' ' Get bit settings ' SQLStmt = " select to_char(tbs.startdate,'MM/DD/YY HH24:MI') ldate,tbs.bit_position, " SQLStmt = SQLStmt & " tbs.bit_name,to_char(tbs.crdate,'MM/DD/YY HH24:MI') ddate, " SQLStmt = SQLStmt & " tbs.ifscaledown,tbs.ifsettable,tbs.description from phoffline.trigger_bit_setting tbs, " SQLStmt = SQLStmt & " (select max(startdate) startdate,bit_position from phoffline.trigger_bit_setting " SQLStmt = SQLStmt & " where startdate<=to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') " SQLStmt = SQLStmt & " group by bit_position) xx " SQLStmt = SQLStmt & " where xx.startdate=tbs.startdate " SQLStmt = SQLStmt & " and xx.bit_position=tbs.bit_position " SQLStmt = SQLStmt & " order by tbs.bit_position " ' response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %> Trigger Configurations

Latest Trigger Bit Setting

<% Do While Not RS.EOF bit_position=CStr(RS("BIT_POSITION")) bit_name=CStr(RS("BIT_NAME")) ifscaledown=CLng(RS("IFSCALEDOWN")) ifsettable=CInt(RS("IFSETTABLE")) ldate=CStr(RS("LDATE")) ddate=CStr(RS("DDATE")) desc=CStr(RS("DESCRIPTION")) If bit_position=16 Then %>
Bit Bit Name Max Scaledwn ON/OFF/SET Validity Date Set Date Description

<% End If %> <% RS.MoveNext Loop %>
Bit Bit Name Max Scaledwn ON/OFF/SET Validity Date Set Date Description
<%=bit_position%> <%=bit_name%> <% If ifscaledown=0 Then Response.Write("1") Else Response.Write(ifscaledown) End If %> <% If ifsettable=0 Then Response.Write("OFF") Elseif ifsettable=1 Then Response.Write("ON") Else Response.Write("SET") End If %> <%=ldate %> <%=ddate %> <%=desc %>

<% Connection.Close %>