%@ LANGUAGE="VBScript" %>
<%
If request("config_id")<>"" Then
config_id=CStr(request("config_id"))
ccrdate=CStr(request("ccrdate"))
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = " select to_char(crdate,'MM/DD/YYYY HH24:MI:SS') crdate,description "
SQLStmt = SQLStmt & " from phoffline.trigger_config_log tcl "
SQLStmt = SQLStmt & " where tcl.config_id='" & config_id & "' and tcl.crdate=to_date('" & ccrdate & "','MMDDYYYYHH24MISS')"
' response.write(SQLStmt)
Set RS = Connection.Execute(SQLStmt)
If Not RS.EOF Then
crdate=CStr(RS("Crdate"))
If Not IsNull(RS("DESCRIPTION")) Then
descr=CStr(RS("DESCRIPTION"))
Else
descr="
Description: <%=descr%>
Bit | Bit Name | On/Off | Scaledown |
Bit | Bit Name | On/Off | Scaledown |
<%=bit_position%> | <%=response.write(lfmt & bit_name & rfmt)%> | <%=response.write(lfmt & enabled & rfmt)%> | <% If ifscaledown=0 Then response.write(lfmt & "-" & rfmt) Else response.write(lfmt & scaledown & rfmt) End If %> | <% RS0.MoveNext Loop %>