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

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

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