BLM SPikes

<%@ LANGUAGE="VBScript" %> BLM SPikes

<% ' ' get input control parameters ' If IsEmpty(Request("days")) Then days=2 Else days=CInt(Request("days")) If days<0 Then days=1 End If End If ' ' Open Database connection, read only ! ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select to_char(bs.startdate,'mm/dd/yyyy hh24:mi:ss') ddate, " SQLStmt = SQLStmt & " round((bs.stopdate-bs.startdate)*24*60,0) dtm, " SQLStmt = SQLStmt & " bc.blm_name,bc.blm_position,round(d_over_th,1) dose,n_over_th " SQLStmt = SQLStmt & " FROM phoffline.blm_spikes bs,phoffline.blm_config bc " SQLStmt = SQLStmt & " where bs.startdate>sysdate-" & days SQLStmt = SQLStmt & " and bs.blm_name=bc.blm_name " SQLStmt = SQLStmt & " and bs.startdate between bc.startdate and bc.stopdate " SQLStmt = SQLStmt & " order by bs.startdate desc,bc.blm_position " ' response.write(SQLStmt & "
" ) Set RS = Connection.Execute(SQLStmt) %>

<% Old_Spike=-1 Do While Not RS.Eof ddate=RS("ddate") If Old_Spike<>ddate Then td_style="style=""border-top-style: solid; border-top-color: #FF0000""" ffirst=true Old_Spike=ddate Else ffirst=false td_style="style=""border-top-style: solid; border-top-color: #FFFFFF""" End If %> <% RS.MoveNext Loop Set RS=nothing Connection.Close Set Connection=nothing %>

Spike Date	BLM Position	BLM Name	Dose	Spikes/interval
			[mrad]	1/[min]
> <% If ffirst Then Response.write(RS("ddate")) Else Response.write("""") End If %>	><%=RS("blm_position")%>	><%=RS("blm_name")%>	><%=RS("dose")%>	><%=RS("n_over_th")%>/<%=RS("dtm")%>