<%@ LANGUAGE="VBScript" %> <% ' ' 0 name ' 1 internal name ' 2 selected ? ' Dim pname(2,30) ' nplots=0 pname(0,nplots)="Hybrid_Temperature" pname(1,nplots)="FEC_TEMP" ' nplots=nplots+1 pname(0,nplots)="Vbc" pname(1,nplots)="FEC_VBC" ' nplots=nplots+1 pname(0,nplots)="Ibc" pname(1,nplots)="FEC_IBC" ' nplots=nplots+1 pname(0,nplots)="Shabias" pname(1,nplots)="FEC_SHABIAS" ' nplots=nplots+1 pname(0,nplots)="Outbias" pname(1,nplots)="FEC_OUTBIAS" ' nplots=nplots+1 pname(0,nplots)="Prebias" pname(1,nplots)="FEC_PREBIAS" ' nplots=nplots+1 pname(0,nplots)="Vfs" pname(1,nplots)="FEC_VFS" ' nplots=nplots+1 pname(0,nplots)="Vfp" pname(1,nplots)="FEC_VFP" ' nplots=nplots+1 pname(0,nplots)="Low Voltage Supply Voltage" pname(1,nplots)="VLV" ' nplots=nplots+1 pname(0,nplots)="Low Voltage Supply Current" pname(1,nplots)="ILV" ' nplots=nplots+1 pname(0,nplots)="Bias Supply Voltage" pname(1,nplots)="VHV" ' nplots=nplots+1 pname(0,nplots)="Bias Supply Current" pname(1,nplots)="IHV" ' nplots=nplots+1 pname(0,nplots)="Low Voltage Supply Temperature" pname(1,nplots)="LVTEMP" ' nplots=nplots+1 pname(0,nplots)="Tunnel Temperature" pname(1,nplots)="TEMPERATURE" ' nplots=nplots+1 pname(0,nplots)="Tunnel Humidity" pname(1,nplots)="HUMIDITY" ' nplots=nplots+1 pname(0,nplots)="Cooling System Pressure" pname(1,nplots)="COOLING_PRESSURE" ' nplots=nplots+1 pname(0,nplots)="Cooling System Temperature" pname(1,nplots)="COOLING_TEMPERATURE" ' nplots=nplots+1 pname(0,nplots)="Chipmunk Dose" pname(1,nplots)="CHIPMUNK_DOSE" ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd ' ' All parameters come in as Form parameters ' If IsEmpty(Request.Form("day_start")) Or IsEmpty(Request.Form("day_stop")) Then SQLStmtX = " select to_char(sysdate-2,'MM/DD/YYYY HH24:MI:SS') day_start,to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') day_stop from dual " Set RSX = Connection.Execute(SQLStmtX) day_start = CStr(RSX("day_start")) day_stop = CStr(RSX("day_stop")) Set RSX=nothing Else day_start = CStr(Request.Form("day_start")) day_stop = CStr(Request.Form("day_stop")) If Not (IsDate(day_start) And IsDate(day_stop)) Then message="Wrong Time/Date format start " & day_start & " or stop " & day_stop %> <% End If End If ' If IsEmpty(Request.Form("plot_defined")) Then plot_defined=0 Else plot_defined=CInt(Request.Form("plot_defined")) End If If IsEmpty(Request.Form("measurement_id")) Then ' measurement_id="TEMPERATURE" measurement_id="" Else measurement_id=CStr(Request.Form("measurement_id")) End If ' ' remember selected quantity ' For iplots=0 To nplots If pname(1,iplots)=measurement_id Then pname(2,iplots)=1 Else pname(2,iplots)=0 End If Next %> General Graph

Monitoring Graph

<% If measurement_id="COOLING_PRESSURE" Then %> <% Else %> <% End If %> <% Case "VLV","ILV","VHV","IHV","LVTEMP" If IsEmpty(Request.Form("node_id")) Then plot_defined=0 node_id=0 Else node_id=CInt(Request.Form("node_id")) id0=node_id id1=0 End If %> <% Case "FEC_VBC","FEC_TEMP","FEC_OUTBIAS","FEC_IBC","FEC_PREBIAS","FEC_SHABIAS","FEC_VFP","FEC_VFS" If IsEmpty(Request.Form("fec_number")) Or IsEmpty(Request.Form("fec_port")) Then plot_defined=0 fec_number=1 fec_port=-1 Else fec_number=CInt(Request.Form("fec_number")) fec_port=CInt(Request.Form("fec_port")) id0=fec_number id1=fec_port End If %> <% Case "CHIPMUNK_DOSE" If IsEmpty(Request.Form("position")) Then plot_defined=0 position=0 Else position=CInt(Request.Form("position")) id0=position id1=0 End If %> <% Case Else plot_defined=0 End Select %>
Start Date/time
Stop Date/time
Plot <% Select Case measurement_id Case "TEMPERATURE","HUMIDITY" plot_defined=1 id0=0 id1=0 Case "COOLING_PRESSURE","COOLING_TEMPERATURE" If IsEmpty(Request.Form("sensor_id")) Then plot_defined=0 sensor_id=0 Else sensor_id=CInt(Request.Form("sensor_id")) id0=sensor_id id1=0 End If %>
Sensor (1-2)Sensor (1-11)
Node ID
FEC #
Port #
Position
<% ' Response.write(day_start & "
") ' Response.write(day_stop & "
") ' Response.write(measurement_id & "
") ' Response.write(plot_defined & "
") %>

Back to monitoring Page

<% If plot_defined=1 Then day_start_par=replace(day_start," ","%20") day_stop_par=replace(day_stop," ","%20") Response.write ("Plot from " & day_start & " to " & day_stop) %>
<% Else Response.write ("Keep selecting plot options, no picture yet !") End If %>
<% Connection.Close Set Connection=nothing %>