<%@ LANGUAGE="VBScript" %>
<%
registered=0
If Request.Cookies("PHOBOSPORTAL").HasKeys Then
strCookie1=Request.Cookies("PHOBOSPORTAL")("OPERATOR1")
If Not (IsNull(strCookie1) OR ( Len(strCookie1) = 0)) Then
registered=1
End If
End if
If Request("run_min")="" Then
Run_min=0
Else
Run_min= CLng(Request("run_min"))
End If
If Request("run_max")="" Then
Run_max=9999999
Else
Run_max= CLng(Request("run_max"))
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
If Request("nruns")<>"" Then
SQLStmt0 = "select max(RUN) maxrun from phoffline.runs "
' response.write(SQLStmt0 & " " )
Set RS0 = Connection.Execute(SQLStmt0)
run_min=CLng(RS0("maxrun"))-CLng(Request("nruns"))+1
run_max=9999999
If run_min<0 Then
run_min=0
End If
Set RS0=nothing
End If
SQLStmt = " select rs.run,rs.sequence,to_char(rs.seq_date,'MM/DD/YYYY HH24:MI:SS') sdate, "
SQLStmt= SQLStmt & " vtx_t_average,VTX_B_AVERAGE,OCTAGON_AVERAGE,SPEC_P_AVERAGE, "
SQLStmt= SQLStmt & " SPEC_N_AVERAGE,RINGS_N_AVERAGE,RINGS_P_AVERAGE "
SQLStmt= SQLStmt & " from PHOFFLINE.HIST_NOISE hn,phoffline.runseqs rs,phoffline.runs r "
SQLStmt= SQLStmt & " where hn.run=rs.run and rs.run=r.run and hn.sequence=rs.sequence "
SQLStmt =SQLStmt & " and r.run between " & run_min & " and " & run_max
SQLStmt= SQLStmt & " order by r.run"
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Silicon Noise Summaries
List of Silicon Noise Summaries
Run
Sequence
Time
VTX T
VTX B
Oct Avg
Spec P
Spec N
Ring P
Ring N
<%
total_size=0
Do While Not RS.EOF
run=CStr(RS("run"))
sequence=CStr(RS("sequence"))
sdate=CStr(RS("sdate"))
vtxt=CStr(Round(RS("vtx_t_average"),2))
vtxb=CStr(Round(RS("vtx_b_average"),2))
octag=CStr(Round(RS("octagon_average"),2))
specp=CStr(Round(RS("spec_p_average"),2))
specn=CStr(Round(RS("spec_n_average"),2))
ringp=CStr(Round(RS("rings_p_average"),2))
ringn=CStr(Round(RS("rings_n_average"),2))
%>