<%@ LANGUAGE="VBScript" %>
<%
rowid=Request("REQ_ROWID")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select max(REQDATE) reqdate,max(STARTDATE) startdate,max(GEO_MOD) geo_mod, max(SHYBRID_NPOS) shybrid_npos, "
SQLStmt = SQLStmt & " max(FEC_NUMBER) fec_number,round((FEC_STRING-0.05)/2,0) fec_connector "
SQLStmt = SQLStmt & " from (select af.REQDATE,af.STARTDATE,af.GEO_MOD,af.SHYBRID_NPOS,af.SWURST_ID,af.FEC_NUMBER,af.FEC_STRING,nc.NCHAN "
SQLStmt = SQLStmt & " from ASSEMBLY.ACTIVE_FECS_PERM af,ASSEMBLY.FEC_MAP_LOG fml, "
SQLStmt = SQLStmt & " (select max(fec_number) fec_number,max(fec_string) fec_string,count(FEC_NUMBER) nchan "
SQLStmt = SQLStmt & " from ASSEMBLY.FEC_MAP fmt1,ASSEMBLY.FEC_MAP_LOG fml1 "
SQLStmt = SQLStmt & " where fmt1.reqdate=fml1.reqdate and fml1.rowid='" & rowid & "' "
SQLStmt = SQLStmt & " GROUP BY fmt1.FEC_NUMBER,fmt1.FEC_STRING) nc "
SQLStmt = SQLStmt & " where nc.fec_number(+)=af.fec_number and nc.fec_string(+)=af.fec_string) "
SQLStmt = SQLStmt & " group by FEC_NUMBER,round((FEC_STRING-0.05)/2,0) "
SQLStmt = SQLStmt & " order by fec_number,fec_connector "
Set RS = Connection.Execute(SQLStmt)
' response.write(SQLStmt)
%>
Active FEC cables
<%
If Not RS.EOF Then
%>
List of cables connected
to active FEC valid on <%=RS("REQDATE") %>
Geometrical Module |
Hybrid Position |
FEC # |
FEC Port (connector) |
<%
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
fec_old=CInt(RS("FEC_NUMBER"))
End If
%>
| "><%=RS("GEO_MOD")%> |
<%=RS("SHYBRID_NPOS")%>
|
<%=RS("FEC_NUMBER")%>
|
<%=RS("FEC_CONNECTOR")%>
|
<%
RS.Movenext
Loop
%>
<%
Else
%>
No active FEC's defined <%
End If
Connection.Close %>