<%@ LANGUAGE="VBScript" %> <% ' ' Open Database connection, read only ! ' Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd 'Monster sqlstatement SQLstmt = "select sum(avedose) aveintdose, sum(maxdose) maxintdose, sum(mindose) mindose, to_char(min(startinterval),'MM/DD/YYYY') startdate, to_char(max(stopinterval),'MM/DD/YYYY') stopdate, position, description, x, y, z from" SQLstmt = SQLstmt & " (select avg(intervaldose) avedose, max(intervaldose) maxdose, min(intervaldose) mindose, startinterval, stopinterval, tp.position position, description, x, y, z from" SQLstmt = SQLstmt & " (select dose*(stopinterval-startinterval)/(stopdate-startdate) intervaldose, startinterval, stopinterval, td.position position from" SQLstmt = SQLstmt & " (select startinterval, min(stopinterval) stopinterval, position from" SQLstmt = SQLstmt & " (select startinterval, stopinterval, starttable.position position from" SQLstmt = SQLstmt & " (select unique datetemp startinterval, position from" SQLstmt = SQLstmt & " ((select startdate datetemp, position" SQLstmt = SQLstmt & " from phoffline.tld_data" SQLstmt = SQLstmt & " where stopdate is not null" SQLstmt = SQLstmt & " and dose is not null)" SQLstmt = SQLstmt & " union" SQLstmt = SQLstmt & " (select stopdate datetemp, position" SQLstmt = SQLstmt & " from phoffline.tld_data" SQLstmt = SQLstmt & " where stopdate is not null" SQLstmt = SQLstmt & " and dose is not null))) starttable," SQLstmt = SQLstmt & " (select unique datetemp stopinterval, position from" SQLstmt = SQLstmt & " ((select startdate datetemp, position" SQLstmt = SQLstmt & " from phoffline.tld_data" SQLstmt = SQLstmt & " where stopdate is not null" SQLstmt = SQLstmt & " and dose is not null)" SQLstmt = SQLstmt & " union" SQLstmt = SQLstmt & " (select stopdate datetemp, position" SQLstmt = SQLstmt & " from phoffline.tld_data" SQLstmt = SQLstmt & " where stopdate is not null" SQLstmt = SQLstmt & " and dose is not null))) stoptable" SQLstmt = SQLstmt & " where starttable.position=stoptable.position" SQLstmt = SQLstmt & " and startinterval=stopinterval) doseintervaltable," SQLstmt = SQLstmt & " phoffline.tld_positions tp" SQLstmt = SQLstmt & " where doseintervaltable.position=tp.position" SQLstmt = SQLstmt & " group by tp.position, startinterval, stopinterval, description, x, y, z)" SQLstmt = SQLstmt & " group by position, description, x, y, z" SQLstmt = SQLstmt & " order by position" Set RS = Connection.Execute(SQLstmt) %> TLD Dose List

Doses to areas around Phobos

<% Dim position_array() num_positions=0 Do While Not RS.EOF ReDim Preserve position_array(num_positions) position_array(num_positions)=CInt(RS("position")) num_positions=num_positions+1 %> <% RS.MoveNext Loop %>
Plot? Position X [mm] Y [mm] Z [mm] Position Description Startdate Stopdate Integrated Dose [mRads]
" value="ON"> <%=CStr(RS("position"))%> <%=CInt(RS("x"))%> <%=CInt(RS("y"))%> <%=CInt(RS("z"))%> <%=CStr(RS("description"))%> <%=CStr(RS("startdate"))%> <%=CStr(RS("stopdate"))%> <%=CStr(Round(CDbl(RS("aveintdose"))))%>

<% Connection.Close Set Connection=nothing Set RS=nothing %>