<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd ' SQLStmt = "select sl.rowid,sl.logdate,sl.measurement_type,sl.action,sl.batch,sl.sensor,sl.comments,location from sitester.sensor_log,sitester. where batch='"+Request("batch_x")+"' and sensor='"+Request("sensor_x")+"'" SQLStmt = "select sl.rowid,sl.logdate,sl.measurement_type,sl.action,sl.batch,sl.sensor,sl.comments,sl.location,sml.description " SQLStmt = SQLStmt & " from sitester.sensor_log sl,sitester.sensor_measurement_list sml where batch='"+Request("batch_x")+"' " SQLStmt = SQLStmt & " and sensor='"+Request("sensor_x")+"' " SQLStmt = SQLStmt & " and sl.action=sml.action and sl.measurement_type=sml.measurement_type order by sl.logdate" Set RS = Connection.Execute(SQLStmt) %> Sensor Details

Batch "><%= RS("Batch") %>, sensor <%= RS("Sensor") %>, history of measurements.

&sensor=<%= RS("sensor")%>">Click me to add Log Entry.
(Requires personal Account and Password on PHOBOS Windows NT domain)

<% Do While Not RS.EOF mt=CStr(RS("Measurement_type")) %> <% RS.Movenext Loop %>
Date Action Measurement Type Test Data
<%= RS("logdate") %> <%= RS("Action") %> <%= RS("Description") %> <% If (CStr(RS("Action")) = "IV_test") Then If (mt = "IV_bias_guard_gnd" Or CStr(RS("Measurement_type")) = "IV_guard_bias_gnd") Then %>

">IV <% Elseif (mt = "Pinhole") Then %> ">pinholes <% Elseif (mt = "IV_PolySI_testkey") Then %> ">polysi <% Else Response.Write mt End If End If If (CStr(RS("Action")) = "CV_test") Then If (mt="CV_Regular") Then %> ">CV <% Elseif (mt = "CV_PN_testkey") Then %> ">PN Key <% Else Response.Write mt End If End If If (CStr(RS("Action")) = "Cap_test") Then If (mt = "C_SOG_testkey") Then %> &sensor_x=<%=RS("sensor")%>">C <% Elseif (mt = "C_ONO_testkey") Then %> &sensor_x=<%=RS("sensor")%>">C <% Else Response.Write mt End If End If If (CStr(RS("Action")) = "Logging") Then If (mt = "Arrival") Then Response.write(Cstr(RS("location"))) Else If Isnull(RS("comments")) Then Response.write("") Else Response.write(Cstr(RS("comments"))) End If End If End If If (CStr(RS("Action")) = "Long_current") Then %> ">Long Term Current <% End If %>

<% Connection.Close %>