%@ LANGUAGE="VBScript" %>
<%
Dim column_name(30)
Dim parameter_name(30)
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd_repl
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
%>
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
<% SQLStmt = " select column_name,parameter_name from assembly.fec_hardware_columns where mercury>=1 order by mercury" Set RS0 = Connection.Execute(SQLStmt) ncols=0 Do While Not RS0.EoF column_name(ncols)=CStr(RS0("column_name")) parameter_name(ncols)=CStr(RS0("parameter_name")) ncols=ncols+1 RS0.Movenext Loop ncols=ncols-1 SQLStmt = " select to_char(startdate,'MM/DD HH24:MI:SS') sdate,fec_number,fec_string" For icols=0 to ncols SQLStmt = SQLStmt & "," & CStr(column_name(icols)) Next SQLStmt = SQLStmt & " from assembly.fec_hardware_now " SQLStmt = SQLStmt & " order by fec_number,fec_string " Set RS = Connection.Execute(SQLStmt) ' response.write(SQLStmt) response.write("Last Configuration Change | " & vbCrLf) response.write("FEC # | " & vbCrLf) response.write("String # | " & vbCrLf) For icols=0 to ncols response.write("" & CStr(parameter_name(icols)) & " | " & vbCrLf) Next response.write("" & CStr(RS("sdate")) & " | " & vbCrLf) response.write("" & CStr(RS("fec_number")) & " | " & vbCrLf) response.write("" & CStr(RS("fec_string")) & " | " & vbCrLf) For icols=0 To ncols response.write("" & CStr(RS(column_name(icols))) & " | " & vbCrLf) Next response.write(" " & vbCrLf) RS.Movenext Loop response.write("