<%@ LANGUAGE="VBScript" %> <% timedate=Request("timedate") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd If Not IsEmpty(request.form("Latest")) Then timedate="" End If 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 If Not IsDate(timedate) Then message="Wrong Time/Date format " & timedate %> <% End If timedate_par=replace(timedate," ","%20") SQLStmt = "select to_char(logdate,'MM/DD/YYYY HH24:MI:SS') timedates from phoffline.daq_scalers " SQLStmt = SQLStmt & "where logdate between to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS')-0.01 and to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS')" Set RSD = Connection.Execute(SQLStmt) timedates = CStr(RSD("timedates")) timedate = timedates %> Phobos Trigger Scalers

               

<% SQLStmt = "select to_char(logdate,'MM/DD/YYYY HH24:MI:SS')," SQLStmt = SQLStmt & "ch_00,ch_01,ch_02,ch_03,ch_04,ch_05,ch_06,ch_07,ch_08,ch_09,ch_10,ch_11,ch_12,ch_13,ch_14,ch_15 " SQLStmt = SQLStmt & "from phoffline.daq_scalers " SQLStmt = SQLStmt & "where logdate = to_date('" & timedate & "','MM/DD/YYYY HH24:MI:SS')" 'response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %>

Phobos Trigger Scalers

Scaler name Source Content Hz
Collision triggers A8B <%response.write RS("ch_09")%>
Recorded Collisions L1.CO11 <%response.write RS("ch_01")%>
Recorded triggers L1.CO0 <%response.write RS("ch_13")%>
Pn&Pp Narrow A2B <%response.write RS("ch_00")%>
RHIC scaler D8A <%response.write RS("ch_02")%>
Pn A1A <%response.write RS("ch_03")%>
Pp A1B <%response.write RS("ch_04")%>
Pn&Pp Wide A2C <%response.write RS("ch_08")%>
Zn D6A <%response.write RS("ch_05")%>
Zp D6B <%response.write RS("ch_06")%>
Zn&Zp Narrow D3B <%response.write RS("ch_07")%>
Central Trigger A12B <%response.write RS("ch_12")%>
     
     
     
Crossing clock C12.2 <%response.write RS("ch_15")%>