<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select * from sitester.testkey_ono,sitester.sensor_log,sitester.batch_info where testkey_ono.batch = batch_info.batch and startdate=logdate AND testkey_ono.batch='"+Request("batch")+"' AND testkey_ono.sensor="+Request("sensor")+" order by keynumber,startdate" Set RS = Connection.Execute(SQLStmt) %> Batch <%= RS("Batch") %>, Sensor <%= RS("Sensor") %> ONO Selection

Batch <%= RS("Batch") %>, Sensor <%= RS("Sensor") %> ONO Selection

<% Do While Not RS.EOF %> <% RS.MoveNext Loop %>
Keynumber Testdate Capacitance[pF] Capacitance/Area [pF/mm2] Comments
.value='<%= precision(calc_c_per_area_ONO(CInt(RS("keynumber")),CDbl(RS("capacitance")),CInt(RS("sensor_type"))),2) %>';self.close()"> <%= RS("keynumber") %> <%= RS("testdate") %> <%= RS("capacitance") %> <%= precision(calc_c_per_area_ONO(CInt(RS("keynumber")),CDbl(RS("capacitance")),CInt(RS("sensor_type"))),2) %> <%= RS("comments") %>
<% Connection.Close %>