<%@ 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 %> FEC_HARDWARE_NOW

Parameters sent to Mercury

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("
" & vbCrLf) response.write(" " & vbCrLf) response.write("" & vbCrLf) response.write(" " & vbCrLf) response.write(" " & vbCrLf) response.write(" " & vbCrLf) For icols=0 to ncols response.write(" " & vbCrLf) Next response.write("") Do While Not RS.EOF response.write("" & vbCrLf) response.write("" & vbCrLf) response.write("" & vbCrLf) For icols=0 To ncols response.write("" & vbCrLf) Next response.write(" " & vbCrLf) RS.Movenext Loop response.write("
Last Configuration ChangeFEC #String #" & CStr(parameter_name(icols)) & "
" & CStr(RS("sdate")) & "" & CStr(RS("fec_number")) & "" & CStr(RS("fec_string")) & "" & CStr(RS(column_name(icols))) & "
" & vbCrLf) response.write("
" & vbCrLf) Connection.Close %>