Trigger Configurations

<%@ LANGUAGE="VBScript" %> <% ' ' Check if people registered for shift/logbook writing ' registered=0 If Request.Cookies("PHOBOSPORTAL").HasKeys Then strCookie1=Request.Cookies("PHOBOSPORTAL")("OPERATOR1") If Not (IsNull(strCookie1) OR ( Len(strCookie1) = 0)) Then registered=1 End If End if Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd ' ' Get the complete list of configurations ' SQLStmt = " select config_id,to_char(crdate,'MM/DD/YYYY HH24:MI:SS') cd,to_char(crdate,'MMDDYYYYHH24MISS') ccrdate,valid,description" SQLStmt = SQLStmt & " from phoffline.trigger_config_log order by crdate desc " ' response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %> Trigger Configurations

Trigger Configurations (help)

<% If registered=1 Then %>

Create New Trigger Configuration

<% Else %>

You need to register on the Portal to be able to create new configurations

<% End If %>

Inspect Current Bit Setting

<% Do While Not RS.EOF config_id=CStr(RS("CONFIG_ID")) crdate=CStr(RS("CD")) ccrdate=CStr(RS("ccrdate")) If Not IsNull(RS("DESCRIPTION")) Then descr=CStr(RS("DESCRIPTION")) Else descr="no description" End If %> <% RS.MoveNext Loop %>

Configuration	Start Validity Date/Time	Description	Valid ?
<%=config_id%>	<%=crdate%>	<%=descr%>	<% If CInt(RS("VALID"))=1 Then Response.Write("Yes") Else Response.Write("No") End If %>

<% Connection.Close %>