<%@ LANGUAGE="VBScript" %> <% ' ' Get Input parameters, allow for multiple refreshing ' ndate=CStr(Request("ndate")) ' ' Sensor ' If IsEmpty(Request.Form("geo_sensor")) Then geo_sensor="NA01" Else geo_sensor=Trim(CStr(Request.Form("geo_sensor"))) End If ' ' Column ' If IsEmpty(Request.Form("sensor_row")) Then sensor_row=0 Else sensor_row=CInt(Request.Form("sensor_row")) End If ' ' Row ' If IsEmpty(Request.Form("sensor_column")) Then sensor_column=0 Else sensor_column=CInt(Request.Form("sensor_column")) End If ' response.write(" fec number " & CStr(fec_number) & " string " & CStr(fec_string) & " channel " & CStr(chan)) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd_repl SQLStmt = " select to_char(to_date('" & ndate & "','YYYYMMDDHH24MISS'),'MM/DD/YYYY HH24:MI:SS') ddate from dual" ' response.write(SQLStmt & "
" & vbCrLf) Set RS = Connection.Execute(SQLStmt) ddate=CStr(RS("ddate")) Set RS=nothing SQLStmt = "select fec_number,fec_string,chan, " SQLStmt = SQLStmt & " BONDING_PATTERN,PAD,CHIP_NUMBER,CHIP_TYPE " SQLStmt = SQLStmt & " from ASSEMBLY.FEC_MAP " SQLStmt = SQLStmt & " where reqdate=to_date('" & ndate & "','YYYYMMDDHH24MISS') " SQLStmt = SQLStmt & " and geo_sensor='" & geo_sensor & "'" SQLStmt = SQLStmt & " and sensor_row=" & CStr(sensor_row) SQLStmt = SQLStmt & " and sensor_column=" & CStr(sensor_column) SQLStmt = SQLStmt & " order by fec_number,fec_string,chan " ' response.write(SQLStmt & "
" & vbCrLf) Set RS = Connection.Execute(SQLStmt) ' %> Sensor To FEC
FEC To Sensor
Map: <%=ddate%>
Sensor Row Column
size="4"> size="4"> size="4">
<% ' Expect lots of rows, possibly ' nrows=0 If Not RS.EOF Then %> <% Do While Not RS.EOF and nrows<10 nrows=nrows+1 %> <% RS.MoveNext Loop %>
FEC # FEC String Channel
<%=CStr(RS("fec_number"))%> <%=CStr(RS("fec_string"))%> <%=CStr(RS("chan"))%>
<% If nrows=10 Then response.write(" List is truncated, too many possibilities ") End If Else response.write(" Sensor/column/row not in the database ") End if %>

  

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