<%@ 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_x")+"' AND testkey_sog.sensor="+Request("sensor_x")+" order by keynumber,startdate" Set RS = Connection.Execute(SQLStmt) %> SOG Data

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

<% Do While Not RS.EOF %> <% RS.Movenext Loop %>
Keynumber Testdate Capacitance[pF] Capacitance/Area [pF/mm2] Comments
<%= 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 %>