<%@ LANGUAGE="VBScript" %>
<%
'
' get input control parameters
'
If IsEmpty(Request("days")) Then
days=2
Else
days=CInt(Request("days"))-1
If days<0 Then
days=1
End If
End If
'
' Open Database connection, read only !
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select to_char(logdate,'mm/dd/yyyy hh24:mi:ss') ddate, "
SQLStmt = SQLStmt & " status,status_str "
SQLStmt = SQLStmt & " FROM phoffline.magnet_monitoring "
SQLStmt = SQLStmt & " where logdate>to_date(to_char(sysdate,'MM/DD/YYYY'),'MM/DD/YYYY')-" & days
SQLStmt = SQLStmt & " order by logdate "
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Magnet Status Log
Magnet Status Changes
Change Date
New Status
Status Flag
<%
Status_Old=-1
Do While Not RS.Eof
If Not IsNull(RS("Status_str")) Then
Status_Str=CStr(RS("Status_str"))
Else
Status_Str="?"
End If
Status=CLng(RS("Status"))
If Status<>Status_Old Then
%>