<%@ LANGUAGE="VBScript" %>
Daily Dose in Chipmunks
<%
Dim mrads()
Dim ddate()
'
' get input control parameters
'
If IsEmpty(Request("days")) Then
days=7
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 ff.id,ff.ddate,nvl(rr.mrad,0) mrad from "
SQLStmt = SQLStmt & " (select id,max(to_char(starttime,'MM/DD/YYYY')) ddate, round(sum(pulses*0.003),1) mrad "
SQLStmt = SQLStmt & " from phoffline.chipmunk_data where starttime>=trunc(sysdate-" & days & "+1) and pulses>6 "
SQLStmt = SQLStmt & " group by to_char(starttime,'YYYYMMDD'),id) rr, "
SQLStmt = SQLStmt & " (select id,max(to_char(starttime,'MM/DD/YYYY')) ddate "
SQLStmt = SQLStmt & " from phoffline.chipmunk_data where starttime>=trunc(sysdate-" & days & "+1) "
SQLStmt = SQLStmt & " group by to_char(starttime,'YYYYMMDD'),id) ff "
SQLStmt = SQLStmt & " where rr.id(+)=ff.id and rr.ddate(+)=ff.ddate order by ff.ddate,ff.id "
'SQLStmt = "select id,max(to_char(starttime,'MM/DD/YYYY')) ddate,round(sum(pulses*0.003),1) mrad from phoffline.chipmunk_data "
'SQLStmt = SQLStmt & " where starttime>=trunc(sysdate-" & days & "+1)"
'SQLStmt = SQLStmt & " and pulses>6"
'SQLStmt = SQLStmt & " group by to_char(starttime,'YYYYMMDD'),id "
'SQLStmt = SQLStmt & " order by to_char(starttime,'YYYYMMDD'),id "
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Integrated dose
Date
Chipmunk 1
Chipmunk 2
Chipmunk 3
[mrad]
[mrad]
[mrad]
<%
'
' take into account that we added third chipmunk in the middle of the run and that old data has no chipmunks
' count chipmunks correctly
nchip=0
nmeas=-1
Do While Not RS.Eof
id=CInt(RS("id"))
nchip=nchip+1
' response.write(CStr(nchip) & " " & Cstr(id) & " ")
If id=1 Then
nmeas=nmeas+1
ReDim Preserve mrads(3,nmeas+1)
ReDim Preserve ddate(nmeas+1)
ddate(nmeas)=CStr(RS("ddate"))
mrads(0,nmeas)=CLng(RS("mrad"))
If nchip<>1 Then
'
' missing chipmunk (old data)
'
mrads(2,nmeas)=0
End If
nchip=1
Elseif id=2 Then
mrads(1,nmeas)=CLng(RS("mrad"))
Elseif id=3 Then
mrads(2,nmeas)=CLng(RS("mrad"))
nchip=0
End If
RS.MoveNext
Loop
For i=0 to nmeas
%>
<%=CStr(ddate(i))%>
<%=Round(mrads(0,i),1)%>
<%=Round(mrads(1,i),1)%>
<%=Round(mrads(2,i),1)%>
<%
Next
Set RS=nothing
Connection.Close
Set Connection=nothing
%>