<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmtx = "select to_char(sysdate,'MM/DD/YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name " ' response.write(SQLStmtx & "
" ) Set RSx = Connection.Execute(SQLStmtx) If Not RSx.EOF Then select case CStr(RSx("global_name")) case "PHDB.WORLD" dbname="Main Phobos Database" case "ORACLE.WORLD" dbname="Phobos Server (old) Database" case "KRPHOBOS.WORLD" dbname="Krakow Database" case "ROCHESTER.WORLD" dbname="Rochester Database" end select Else dbname="Undefined Database" End If ' SQLStmt = "select fml.ROWID,to_char(fml.REQDATE,'MM/DD/YYYY HH24:MI') reqdate,to_char(fml.CRDATE ,'MM/DD/YYYY HH24:MI') crdate, " SQLStmt = SQLStmt & " to_char(fml.REQDATE ,'YYYYMMDDHH24MISS') ndate,fml.operator,fml.comments " SQLStmt = SQLStmt & " from ASSEMBLY.FB_MAP_LOG fml " SQLStmt = SQLStmt & " ORDER BY fml.reqdate desc " Set RS = Connection.Execute(SQLStmt) ' response.write(SQLStmt & "
" & vbCrLf) %> List of all available Fastbus Maps

List of all available Fastbus Maps

Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>

<% If ivalid=1 Then fcolor="#008000" else fcolor="#FF0000" End If %>

<%=mess%>

<% Do While Not RS.EOF %> <% RS.Movenext Loop %>

File, sorted by crate,slot,channel	File, sorted by sensor,position,type	Validity Date	Creation Date	Created by	Comments
&sort_type=F">	&sort_type=S">	<%=RS("REQDATE")%>	<%=RS("CRDATE")%>	<%=RS("Operator")%>	<%=RS("Comments")%>

<% Connection.Close Set Connection=nothing Set RS=nothing %>