<%@ LANGUAGE="VBScript" %> <% timedate=Request("timedate") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd If timedate="" Then SQLStmtX = " select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') timedate from dual " Set RSX = Connection.Execute(SQLStmtX) timedate = CStr(RSX("timedate")) End If ' response.write(SQLStmtX) If Not IsDate(timedate) Then message="Wrong Time/Date format " & timedate %> <% End If timedate_par=replace(timedate," ","%20") %> All Configured FEC's

All configured FEC's valid on <%=timedate%>

Back to configuration Page

 <% SQLStmt = " select reqdate,fconn.fec_number,fconn.fec_port,fconn.fec_id,fconn.fec_powerboard_id, " SQLStmt = SQLStmt & " gconn.geo_mod,gconn.shybrid_npos,grl.hybrid_npos from " SQLStmt = SQLStmt & " (select reqdate,fall.fec_number,fall.fec_port,fsele.fec_id,fsele.fec_powerboard_id from " SQLStmt = SQLStmt & " (select to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') reqdate from dual), " SQLStmt = SQLStmt & " (select distinct fs.fec_number,round((fs.fec_string-0.01)/2,0) fec_port,fecc.fec_id,fecc.fec_powerboard_id " SQLStmt = SQLStmt & " from ASSEMBLY.FEC_STRINGS fs, " SQLStmt = SQLStmt & " (select fec_number,fec_id,fec_powerboard_id from ASSEMBLY.FEC_CONFIG where fec_number>0 " SQLStmt = SQLStmt & " and (startdate,abs(fec_number)) in (select max(startdate),max(abs(fec_number)) " SQLStmt = SQLStmt & " from ASSEMBLY.FEC_CONFIG where startdate<=to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') " SQLStmt = SQLStmt & " GROUP BY abs(fec_number))) fecc" SQLStmt = SQLStmt & " where fecc.fec_number=fs.fec_number and fs.fec_number>0 " SQLStmt = SQLStmt & " and (fs.startdate,abs(fs.fec_number),fs.fec_string) in " SQLStmt = SQLStmt & " (select max(startdate),max(abs(fec_number)),max(fec_string) " SQLStmt = SQLStmt & " from ASSEMBLY.FEC_STRINGS where startdate<=to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') " SQLStmt = SQLStmt & " GROUP BY abs(fec_number),fec_string)) fsele, " SQLStmt = SQLStmt & " (select distinct abs(fec_number) fec_number,round((fec_string-0.01)/2,0) fec_port from ASSEMBLY.FEC_STRINGS) fall " SQLStmt = SQLStmt & " where fsele.fec_number(+)=fall.fec_number and fsele.fec_port(+)=fall.fec_port) fconn, " SQLStmt = SQLStmt & " (select distinct fec_number,round((fec_string-0.01)/2,0) fec_port,geo_mod,shybrid_npos " SQLStmt = SQLStmt & " from (select to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') reqdate from dual),assembly.fec_connect " SQLStmt = SQLStmt & " where (startdate,geo_mod,shybrid_npos,swurst_id,reqdate) " SQLStmt = SQLStmt & " in (select max(startdate),max(geo_mod),max(shybrid_npos),max(swurst_id),max(reqdate) " SQLStmt = SQLStmt & " from (select * from assembly.fec_connect, " SQLStmt = SQLStmt & " (select to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') reqdate from dual) " SQLStmt = SQLStmt & " where reqdate>=startdate) " SQLStmt = SQLStmt & " group by geo_mod,shybrid_npos,swurst_id) and fec_number>=0) gconn, " SQLStmt = SQLStmt & " (select distinct gmods.geo_mod,gmods.smod_type,sr.shybrid_npos,hybrid_npos " SQLStmt = SQLStmt & " from assembly.smod_readout sr,(select geo_mod,smod_type from assembly.geo_mods, " SQLStmt = SQLStmt & " (select to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS') reqdate from dual) " SQLStmt = SQLStmt & " where startdate<=reqdate and reqdate <% fec_old=-999999 Do While Not RS.EOF If CInt(RS("FEC_NUMBER"))<>fec_old Then If fec_old<>-999999 Then Response.write("") End If If Not IsNull(RS("FEC_ID")) Then response.write("

FEC# " & CStr(RS("FEC_NUMBER")) & " ID: " & CStr(RS("FEC_ID")) & "/" & CStr(RS("FEC_POWERBOARD_ID"))& "

") Else response.write("

FEC# " & CStr(RS("FEC_NUMBER")) & " is not read out" & "

" & vbCrLf) End If response.write(" " & vbCrLf) response.write("" & vbCrLf) response.write(" " & vbCrLf) response.write(" " & vbCrLf) response.write(" " & vbCrLf) response.write("") fec_old=CInt(RS("FEC_NUMBER")) End If response.write(" " & vbCrLf) If Not IsNull(RS("GEO_MOD")) Then If Left(CStr(RS("GEO_MOD")),2)="GS" Or Left(CStr(RS("GEO_MOD")),2)="GV" Then If CInt(RS("HYBRID_NPOS"))=0 Then side="(L)" Else side="(R)" End If Else side="" End If response.write(" " & vbCrLf) response.write(" " & vbCrLf) Else response.write("" & vbCrLf) response.write(" " & vbCrLf) End If response.write(" " & vbCrLf) RS.Movenext Loop response.write("
FEC PortConnected ModuleAction
" & CStr(RS("FEC_PORT")) & " " & CStr(RS("GEO_MOD")) & side & " " & vbCrLf) response.write(" ") response.write(" " & "Not Connected" & "" & vbCrLf) response.write(" ") response.write("
" & vbCrLf) Else %>

There are no defined Front End Controllers <% End If Connection.Close %>