%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select distinct keynumber,tp.batch bat,tp.sensor sen,sl.rowid rowid_key from testkey_polysi tp,sensor_log sl where startdate=logdate" SQLStmt = SQLStmt & " and sl.rowid='" & Request("rowid_x") & "'" Set RS = Connection.Execute(SQLStmt) %>
| Key Number | Measurement |
| <%= RS("keynumber") %> | <% Response.Write "IV" %> |